diff -Nru libgtkada-2.24.4/configure libgtkada-2.24.4dfsg/configure --- libgtkada-2.24.4/configure 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/configure 2014-11-09 09:55:51.000000000 +0000 @@ -3961,7 +3961,7 @@ libdir='${prefix}/lib' -ac_config_files="$ac_config_files Makefile src/Makefile.common src/Makefile src/tools/gtkada-config src/tools/Makefile testgtk/Makefile src/opengl/Makefile src/gnome/Makefile docs/Makefile docs/gtkada_rm/Makefile po/Makefile src/config.h projects/gtkada.pc projects/gtkada_install_dynamic.gpr projects/gtkada_install_dynamic_gl.gpr" +ac_config_files="$ac_config_files Makefile src/Makefile.common src/Makefile src/tools/gtkada-config src/tools/Makefile testgtk/Makefile src/opengl/Makefile src/gnome/Makefile po/Makefile src/config.h projects/gtkada.pc projects/gtkada_install_dynamic.gpr projects/gtkada_install_dynamic_gl.gpr" cat >confcache <<\_ACEOF # This file is a shell script that caches the results of configure @@ -4677,8 +4677,6 @@ "testgtk/Makefile") CONFIG_FILES="$CONFIG_FILES testgtk/Makefile" ;; "src/opengl/Makefile") CONFIG_FILES="$CONFIG_FILES src/opengl/Makefile" ;; "src/gnome/Makefile") CONFIG_FILES="$CONFIG_FILES src/gnome/Makefile" ;; - "docs/Makefile") CONFIG_FILES="$CONFIG_FILES docs/Makefile" ;; - "docs/gtkada_rm/Makefile") CONFIG_FILES="$CONFIG_FILES docs/gtkada_rm/Makefile" ;; "po/Makefile") CONFIG_FILES="$CONFIG_FILES po/Makefile" ;; "src/config.h") CONFIG_FILES="$CONFIG_FILES src/config.h" ;; "projects/gtkada.pc") CONFIG_FILES="$CONFIG_FILES projects/gtkada.pc" ;; diff -Nru libgtkada-2.24.4/configure.in libgtkada-2.24.4dfsg/configure.in --- libgtkada-2.24.4/configure.in 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/configure.in 2014-11-09 09:55:20.000000000 +0000 @@ -53,4 +53,4 @@ libdir='${prefix}/lib' -AC_OUTPUT(Makefile src/Makefile.common src/Makefile src/tools/gtkada-config src/tools/Makefile testgtk/Makefile src/opengl/Makefile src/gnome/Makefile docs/Makefile docs/gtkada_rm/Makefile po/Makefile src/config.h projects/gtkada.pc projects/gtkada_install_dynamic.gpr projects/gtkada_install_dynamic_gl.gpr) +AC_OUTPUT(Makefile src/Makefile.common src/Makefile src/tools/gtkada-config src/tools/Makefile testgtk/Makefile src/opengl/Makefile src/gnome/Makefile po/Makefile src/config.h projects/gtkada.pc projects/gtkada_install_dynamic.gpr projects/gtkada_install_dynamic_gl.gpr) diff -Nru libgtkada-2.24.4/debian/changelog libgtkada-2.24.4dfsg/debian/changelog --- libgtkada-2.24.4/debian/changelog 2014-10-06 18:44:08.000000000 +0000 +++ libgtkada-2.24.4dfsg/debian/changelog 2014-11-09 14:27:38.000000000 +0000 @@ -1,3 +1,14 @@ +libgtkada (2.24.4dfsg-1) unstable; urgency=medium + + * Repackage without GFDL documentation. Closes: #768539. + - control: drop sphinx build-deps and javascript binary-deps. + - patches/*, rules, libgtkada-doc.*: do not patch/build/install docs. + - control: update description of -doc package. + - copyright, README.source: adjust comments about stripped parts. + - TODO: no hope to generate the reference manual anymore. + + -- Nicolas Boulenguez Sun, 09 Nov 2014 11:10:15 +0100 + libgtkada (2.24.4-2) unstable; urgency=medium * Avoid Suggesting: -doc (=binary:Version). During binNMUs, -doc is not diff -Nru libgtkada-2.24.4/debian/control libgtkada-2.24.4dfsg/debian/control --- libgtkada-2.24.4/debian/control 2014-10-06 18:41:51.000000000 +0000 +++ libgtkada-2.24.4dfsg/debian/control 2014-11-09 09:34:51.000000000 +0000 @@ -20,11 +20,6 @@ libx11-dev, libglu1-mesa-dev | libglu-dev, libgl1-mesa-dev | libgl-dev -Build-Depends-Indep: - python-sphinx, - texlive-fonts-recommended, - texlive-latex-extra, - texlive-latex-recommended Standards-Version: 3.9.6 Homepage: http://libre.adacore.com/libre/tools/gtkada Vcs-Browser: http://www.ada-france.org:8081/branch/changes/org.debian.libgtkada2 @@ -173,10 +168,7 @@ Package: libgtkada-doc Section: doc Architecture: all -Depends: ${misc:Depends}, -# Link to the packaged versions instead of embedding the source. - libjs-jquery, - libjs-underscore +Depends: ${misc:Depends} Suggests: gnat Replaces: libgtkada2-doc Breaks: libgtkada2-doc @@ -184,5 +176,13 @@ GtkAda is a library that allows programmers to write GTK+ applications in the Ada programming language. . - This package contains the User's Guide for GtkAda, in - HTML, PDF and plain text formats. + This package contains examples, lists of known problems and comments + about the Debian packaging.. + . + The complete GTKAda user guide cannot be distributed by Debian + because it is licensed under the GNU Free Documentation License with + Invariant Sections and Cover Texts. The reference manual cannot be + generated from source without the user guide. + They are published by upstream authors at + http://docs.adacore.com/gprbuild-docs/html/gprbuild_ug.html and + http://docs.adacore.com/gtkada-docs/gtkada_ug/_build/html. diff -Nru libgtkada-2.24.4/debian/copyright libgtkada-2.24.4dfsg/debian/copyright --- libgtkada-2.24.4/debian/copyright 2014-10-06 17:17:42.000000000 +0000 +++ libgtkada-2.24.4dfsg/debian/copyright 2014-11-09 10:01:05.000000000 +0000 @@ -1,17 +1,22 @@ Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/ Upstream-Name: GtkAda Source: https://libre.adacore.com/libre/download/ -Comment: All the content available on libre.adacore.com is licensed +Comment: Most of the content available on libre.adacore.com is licensed under the terms of the pure GPL, despite the fact that AdaCore have - not yet adjusted the licensing boilerplate in documentation. + not yet adjusted some licensing boilerplates. . This is stated for example at http://lists.adacore.com/pipermail/gtkada/2009-June/003789.html. The actual license is a decision of AdaCore. Please contact them at - libre@adacore.com for any clarification. . + libre@adacore.com for any clarification. . This is confirmed in COPYING and README. . + However, the GTKAda user guide is licensed separately under the GNU + Free Documentation License with Invariant Sections and Cover Texts, + so Debian cannot distribute it. The reference manual is also excluded + because its generation process relies on parts of the user manual. + . In a previous version of Debian, libgtkada2 2.4.0 was licensed under the terms of the GNAT-Modified GNU General Public License (GMGPL). This new version is licensed under the terms of the pure GPL. As a diff -Nru libgtkada-2.24.4/debian/libgtkada-doc.doc-base.gtkada-ug libgtkada-2.24.4dfsg/debian/libgtkada-doc.doc-base.gtkada-ug --- libgtkada-2.24.4/debian/libgtkada-doc.doc-base.gtkada-ug 2014-10-06 17:17:42.000000000 +0000 +++ libgtkada-2.24.4dfsg/debian/libgtkada-doc.doc-base.gtkada-ug 1970-01-01 00:00:00.000000000 +0000 @@ -1,16 +0,0 @@ -Document: gtkada-ug -Title: GtkAda User Guide -Author: E. Briot, J. Brobecker, A. Charlet (from Adacore) -Abstract: This user guide documents the Ada binding - to the GTK+ library, useful to build graphical user interfaces. -Section: Programming - -Format: HTML -Index: /usr/share/doc/libgtkada-doc/gtkada_ug.html/index.html -Files: /usr/share/doc/libgtkada-doc/gtkada_ug.html - -Format: text -Files: /usr/share/doc/libgtkada-doc/gtkada_ug.text - -Format: pdf -Files: /usr/share/doc/libgtkada-doc/gtkada_ug.pdf.gz diff -Nru libgtkada-2.24.4/debian/libgtkada-doc.docs libgtkada-2.24.4dfsg/debian/libgtkada-doc.docs --- libgtkada-2.24.4/debian/libgtkada-doc.docs 2014-10-06 17:17:42.000000000 +0000 +++ libgtkada-2.24.4dfsg/debian/libgtkada-doc.docs 2014-11-09 09:26:17.000000000 +0000 @@ -6,11 +6,6 @@ debian/README.Debian debian/README.source -# Embedded Javascript libraries are linked in libxmlada-doc.links. -docs/gtkada_ug/_build/gtkada_ug.html -docs/gtkada_ug/_build/gtkada_ug.text -docs/gtkada_ug/_build/latex/gtkada_ug.pdf - features known-problems README diff -Nru libgtkada-2.24.4/debian/libgtkada-doc.links libgtkada-2.24.4dfsg/debian/libgtkada-doc.links --- libgtkada-2.24.4/debian/libgtkada-doc.links 2014-10-06 17:17:42.000000000 +0000 +++ libgtkada-2.24.4dfsg/debian/libgtkada-doc.links 1970-01-01 00:00:00.000000000 +0000 @@ -1,5 +0,0 @@ -# Replace Javascript libraries embedded in HTML documentation with -# symbolic links to Debian packages. - -usr/share/javascript/jquery/jquery.js usr/share/doc/libgtkada-doc/gtkada_ug.html/_static/jquery.js -usr/share/javascript/underscore/underscore.js usr/share/doc/libgtkada-doc/gtkada_ug.html/_static/underscore.js diff -Nru libgtkada-2.24.4/debian/libgtkada-doc.lintian-overrides libgtkada-2.24.4dfsg/debian/libgtkada-doc.lintian-overrides --- libgtkada-2.24.4/debian/libgtkada-doc.lintian-overrides 2014-10-06 18:40:59.000000000 +0000 +++ libgtkada-2.24.4dfsg/debian/libgtkada-doc.lintian-overrides 1970-01-01 00:00:00.000000000 +0000 @@ -1,3 +0,0 @@ -# The license is not mentioned verbatim, but these file have to exist. -extra-license-file usr/share/doc/libgtkada-doc/gtkada_ug.html/_sources/license.txt -extra-license-file usr/share/doc/libgtkada-doc/gtkada_ug.text/license.txt diff -Nru libgtkada-2.24.4/debian/libgtkada-doc.TODO libgtkada-2.24.4dfsg/debian/libgtkada-doc.TODO --- libgtkada-2.24.4/debian/libgtkada-doc.TODO 2014-10-06 17:17:42.000000000 +0000 +++ libgtkada-2.24.4dfsg/debian/libgtkada-doc.TODO 2014-11-09 10:14:12.000000000 +0000 @@ -1,30 +1,6 @@ * Consider using upstream build system and splitting in small libraries. See xmlada/debian/split.diff for the consequences. -* Try to build and install the reference manual. - -The gtkada reference manual is intended to be built by the -generate-docs script, using the gnat-gps tool, itself depending on the -gtkada library. - -List: debian-devel -Subject: Re: On accepting pre-generated doc from upstream - -For the moment, the Debian packaging breaks this circular dependency -by not building the reference manual. A better solution would be to -have two source packages: - -Package: libgtkada2.18-dev - -Package: gnat-gps -Build-Depends: libgtkada2.18-dev - -Package: libgtkada-doc -Build-Depends: gnat-gps - -The method described at https://wiki.debian.org/DebianBootstrap -seems to avoid duplicating the source package. - * Split architecture dependent and independent data in libgtkada-dev Lintian rightfully complains that most data diff -Nru libgtkada-2.24.4/debian/patches/01-doc.patch libgtkada-2.24.4dfsg/debian/patches/01-doc.patch --- libgtkada-2.24.4/debian/patches/01-doc.patch 2014-10-06 17:17:42.000000000 +0000 +++ libgtkada-2.24.4dfsg/debian/patches/01-doc.patch 2014-11-09 10:02:36.000000000 +0000 @@ -1,8 +1,7 @@ Author: Ludovic Brenta Author: Nicolas Boulenguez Description: adapt documentation to Debian guidelines - * Adjust the info and man page files to Debian. - * Move the Info documentation to "GNU Ada Tools". + * Adjust the man page files to Debian. * Fix incorrect description of --prefix option of gtkada-config. =================================================================== @@ -129,17 +128,3 @@ +any purpose and without fee is hereby granted, provided that the above +copyright notice appear in all copies and that both that copyright +notice and this permission notice appear in supporting documentation. ---- a/docs/gtkada_rm/gtkada_rm.texi -+++ b/docs/gtkada_rm/gtkada_rm.texi -@@ -11,9 +11,9 @@ - @c o - @c oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo - --@dircategory User Interface Toolkit -+@dircategory GNU Ada Tools - @direntry --* GtkAda_Rm: (gtkada_rm). Ada graphical tookit based on GTK+ (Reference Manual) -+* GtkAda Reference Manual: (gtkada_rm). Ada graphical tookit based on GTK+ (Reference Manual) - @end direntry - - @c -------------------------------------------- diff -Nru libgtkada-2.24.4/debian/patches/avoid_repeating_whole_gpl.diff libgtkada-2.24.4dfsg/debian/patches/avoid_repeating_whole_gpl.diff --- libgtkada-2.24.4/debian/patches/avoid_repeating_whole_gpl.diff 2014-10-06 17:17:42.000000000 +0000 +++ libgtkada-2.24.4dfsg/debian/patches/avoid_repeating_whole_gpl.diff 1970-01-01 00:00:00.000000000 +0000 @@ -1,23 +0,0 @@ -Description: replace the whole GPL text with a link to /usr/share/doc -Author: Nicolas Boulenguez ---- a/docs/gtkada_ug/index.rst -+++ b/docs/gtkada_ug/index.rst -@@ -41,4 +41,6 @@ - with this program; if not, write to the Free Software Foundation, Inc., - 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. - --A copy of the license is included in the section entitled 'License'. -+On Debian GNU/Linux systems, the complete text of the GNU General -+Public License can be found in -+:file:`/usr/share/common-licenses/GPL-2`. ---- a/docs/gtkada_ug/license.rst -+++ b/docs/gtkada_ug/license.rst -@@ -2,5 +2,6 @@ - License - ******* - --.. include:: ../../COPYING -- :literal: -+On Debian GNU/Linux systems, the complete text of the GNU General -+Public License can be found in -+:file:`/usr/share/common-licenses/GPL-2`. diff -Nru libgtkada-2.24.4/debian/patches/clean_forgotten_files.diff libgtkada-2.24.4dfsg/debian/patches/clean_forgotten_files.diff --- libgtkada-2.24.4/debian/patches/clean_forgotten_files.diff 2014-10-06 17:17:42.000000000 +0000 +++ libgtkada-2.24.4dfsg/debian/patches/clean_forgotten_files.diff 1970-01-01 00:00:00.000000000 +0000 @@ -1,15 +0,0 @@ -Description: clean gtkada_ug build directory - Remove the directory, which is created during the build. - Report errors except for non existing dir (-f is enough, no leading minus needed). -Author: Nicolas Boulenguez ---- a/docs/gtkada_ug/Makefile -+++ b/docs/gtkada_ug/Makefile -@@ -34,7 +34,7 @@ - @echo " doctest to run all doctests embedded in the documentation (if enabled)" - - clean: -- -rm -rf $(BUILDDIR)/* -+ rm -rf $(BUILDDIR) - - html: - $(SPHINXBUILD) -b html $(ALLSPHINXOPTS) $(BUILDDIR)/html diff -Nru libgtkada-2.24.4/debian/patches/series libgtkada-2.24.4dfsg/debian/patches/series --- libgtkada-2.24.4/debian/patches/series 2014-10-06 17:17:42.000000000 +0000 +++ libgtkada-2.24.4dfsg/debian/patches/series 2014-11-09 09:45:07.000000000 +0000 @@ -3,5 +3,3 @@ example_makefiles.patch avoid_hardening_flags_errors.patch include_only_glib_h.patch -avoid_repeating_whole_gpl.diff -clean_forgotten_files.diff diff -Nru libgtkada-2.24.4/debian/README.source libgtkada-2.24.4dfsg/debian/README.source --- libgtkada-2.24.4/debian/README.source 2014-10-06 17:17:42.000000000 +0000 +++ libgtkada-2.24.4dfsg/debian/README.source 2014-11-09 14:24:22.000000000 +0000 @@ -13,8 +13,13 @@ Unfortunately, there are significative changes between this public view and the snapshots on the download site. -Because of the licensing changes described below, and to track -intermediate releases, the Debian packaging stores upstream sources in +Because of the licensing changes described below, +in order to track intermediate releases, +to disable gtk extra modules (version 2.4 is not packaged in Debian), +and to remove the documentation (the user guide is licensed under the + GFDL with Invariant Sections and Cover Texts, and parts of it are + needed to generate the reference manual), +the Debian packaging stores upstream sources in the branch com.adacore.gtkada.debian of the www.ada-france.org monotone database. You may find them at @@ -29,8 +34,6 @@ - (compared to VCS) clarify the license change described below - (compared to VCS) remove .cvsignore and .gitignore files - (compared to snapshots) keep a record of old/intermediate releases -- (compared to both) disable gtk extra modules (dead upstream, not packaged in - Debian anymore) - (compared to VCS) apply changes from snapshots needed to build. Licensing changes @@ -60,4 +63,4 @@ only to remove confusion. The actual license is a decision of AdaCore. Please contact them at libre@adacore.com for any clarification. - -- Nicolas Boulenguez , Sun, 11 May 2014 14:33:43 +0200 + -- Nicolas Boulenguez , Sun, 9 Nov 2014 15:24:22 +0100 diff -Nru libgtkada-2.24.4/debian/rules libgtkada-2.24.4dfsg/debian/rules --- libgtkada-2.24.4/debian/rules 2014-10-06 17:17:42.000000000 +0000 +++ libgtkada-2.24.4dfsg/debian/rules 2014-11-09 09:39:08.000000000 +0000 @@ -224,27 +224,6 @@ rm -f $(TESTGTK_TGZ) ###################################################################### -UG_DIR := docs/gtkada_ug -UG_BUILD := $(UG_DIR)/_build - -override_dh_auto_build-indep: $(UG_BUILD) -$(UG_BUILD): - $(MAKE) -C $(UG_DIR) html latexpdf text SPHINXOPTS=-j$(BUILDER_JOBS) -# Avoid name clash with the reference manual during install. - cd $(UG_BUILD)/latex; mv GtkAda.pdf gtkada_ug.pdf - cd $(UG_BUILD); mv html gtkada_ug.html - cd $(UG_BUILD); mv text gtkada_ug.text -override_dh_auto_clean:: - $(MAKE) -C $(UG_DIR) clean - -###################################################################### - -# TODO: the reference manual needs generated parts: -# docs/gtkada_rm/generated.texi docs/gtkada_rm/generated_menu.texi: -# cd docs/gtkada_rm && \ ./generate_doc.pl `find -# $(addprefix ../../src/, . generated gnome opengl) -name "*.ads"` - -###################################################################### override_dh_compress: dh_compress --package=libgtkada-doc \ diff -Nru libgtkada-2.24.4/docs/generate_docs.gpr libgtkada-2.24.4dfsg/docs/generate_docs.gpr --- libgtkada-2.24.4/docs/generate_docs.gpr 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/generate_docs.gpr 1970-01-01 00:00:00.000000000 +0000 @@ -1,22 +0,0 @@ -project Generate_Docs is - - for Source_Dirs use ("../src/generated", "../src/"); - for Object_Dir use "doc_obj"; - - Processors := external ("PROCESSORS", "1"); - -- Number of parallel compilations that should be performed - - package Compiler is - for Default_Switches ("Ada") use ("-gnatc", "-gnatQ"); - end Compiler; - - package Builder is - for Default_Switches ("Ada") use ("-j" & Processors); - end Builder; - - package IDE is - for Documentation_Dir use "html"; - end IDE; - -end Generate_Docs; - diff -Nru libgtkada-2.24.4/docs/gtkada_rm/checkbutton.eps libgtkada-2.24.4dfsg/docs/gtkada_rm/checkbutton.eps --- libgtkada-2.24.4/docs/gtkada_rm/checkbutton.eps 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_rm/checkbutton.eps 1970-01-01 00:00:00.000000000 +0000 @@ -1,577 +0,0 @@ -%!PS-Adobe-2.0 EPSF-2.0 -%%Title: /home/briot/gtk/GtkAda/t/checkbutton.eps -%%Creator: XV Version 3.10a Rev: 12/29/94 (PNG patch 1.2) - by John Bradley -%%BoundingBox: 268 362 344 430 -%%Pages: 1 -%%DocumentFonts: -%%EndComments -%%EndProlog - -%%Page: 1 1 - -% remember original state -/origstate save def - -% build a temporary dictionary -20 dict begin - -% define string to hold a scanline's worth of data -/pix 228 string def - -% define space for color conversions -/grays 76 string def % space for gray scale line -/npixls 0 def -/rgbindx 0 def - -% lower left corner -268 362 translate - -% size of image (on paper, in 1/72inch coords) -76.03200 67.96800 scale - -% define 'colorimage' if it isn't defined -% ('colortogray' and 'mergeprocs' come from xwd2ps -% via xgrab) -/colorimage where % do we know about 'colorimage'? - { pop } % yes: pop off the 'dict' returned - { % no: define one - /colortogray { % define an RGB->I function - /rgbdata exch store % call input 'rgbdata' - rgbdata length 3 idiv - /npixls exch store - /rgbindx 0 store - 0 1 npixls 1 sub { - grays exch - rgbdata rgbindx get 20 mul % Red - rgbdata rgbindx 1 add get 32 mul % Green - rgbdata rgbindx 2 add get 12 mul % Blue - add add 64 idiv % I = .5G + .31R + .18B - put - /rgbindx rgbindx 3 add store - } for - grays 0 npixls getinterval - } bind def - - % Utility procedure for colorimage operator. - % This procedure takes two procedures off the - % stack and merges them into a single procedure. - - /mergeprocs { % def - dup length - 3 -1 roll - dup - length - dup - 5 1 roll - 3 -1 roll - add - array cvx - dup - 3 -1 roll - 0 exch - putinterval - dup - 4 2 roll - putinterval - } bind def - - /colorimage { % def - pop pop % remove 'false 3' operands - {colortogray} mergeprocs - image - } bind def - } ifelse % end of 'false' case - - - -76 68 8 % dimensions of data -[76 0 0 -68 0 68] % mapping matrix -{currentfile pix readhexstring pop} -false 3 colorimage - -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8f8fcf8f8fcf8 -f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000000000 -000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0000000000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000 -d0d4d0000000000000000000000000000000000000d0d4d0d0d4d0000000000000000000 -d0d4d0d0d4d0d0d4d0000000d0d4d0000000000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000 -d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0000000000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000 -d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000 -d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000 -d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000000000 -d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0000000000000d0d4d0d0d4d0d0d4d0d0d4d0000000000000d0d4d0000000 -d0d4d0d0d4d0000000000000d0d4d0000000000000d0d4d0d0d4d0000000000000000000 -d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0909490 -909490909490909490909490909490909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000000000000000 -000000000000000000000000000000000000000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000 -000000000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0888888888888888888 -888888888888888888888888888888888888888888d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0888888000000000000 -000000000000000000000000000000000000f8fcf8d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0000000000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000 -d0d4d0000000000000000000000000000000000000d0d4d0d0d4d0000000000000000000 -d0d4d0d0d4d0d0d4d0000000d0d4d0000000000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0888888000000c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0f8fcf8d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000 -d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0000000000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0888888000000c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0f8fcf8d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000 -d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0888888000000c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0f8fcf8d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000 -d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0888888000000c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0f8fcf8d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000 -d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0888888000000c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0f8fcf8d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000000000 -d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0888888000000c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0f8fcf8d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0000000000000d0d4d0d0d4d0d0d4d0d0d4d0000000000000d0d4d0000000 -d0d4d0d0d4d0000000000000d0d4d0000000000000d0d4d0d0d4d0000000000000000000 -d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0000000000000 -000000000000000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0888888000000c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0f8fcf8d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0888888f8fcf8f8fcf8 -f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000000000d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0 - -showpage - -% stop using temporary dictionary -end - -% restore original state -origstate restore - -%%Trailer Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/checkbutton.jpg and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/checkbutton.jpg differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/checkbutton.pdf and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/checkbutton.pdf differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/childtree2.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/childtree2.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/childtree3.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/childtree3.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/childtree4.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/childtree4.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/childtree.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/childtree.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/color-button.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/color-button.png differ diff -Nru libgtkada-2.24.4/docs/gtkada_rm/docgen_gtkada.py libgtkada-2.24.4dfsg/docs/gtkada_rm/docgen_gtkada.py --- libgtkada-2.24.4/docs/gtkada_rm/docgen_gtkada.py 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_rm/docgen_gtkada.py 1970-01-01 00:00:00.000000000 +0000 @@ -1,124 +0,0 @@ -""" - Docgen plugin to generate the GtkAda Reference Manual. - - Invoke with: - gps -Pgenerate_docs.gpr --load=python:docgen_gtkada.py - -""" - -import GPS, re, os -import shutil - -class ScreenshotTagHandler (GPS.DocgenTagHandler): - """Handling for screenshots""" - def __init__ (self): - GPS.DocgenTagHandler.__init__ ( - self, "screenshot", - on_match = self.on_match, - on_start=self.on_start, - on_exit=self.on_exit) - - def on_start (self, docgen): - self.pictureslist = {} - - def on_match (self, docgen, attrs, value, entity_name, entity_href): - file = docgen.get_current_file() - srcdir = os.path.normpath (GPS.Project.root().file().directory()) - fullfile = os.path.join (srcdir, value.strip()) - - screenshot_found = False - for extension in ["", ".png", ".jpg"]: - if os.path.exists(fullfile + extension): - pict = value.strip() + extension - screenshot_found = True - break - if not screenshot_found: - GPS.Console ("Messages").write ("could not find screenshot %s\n" % (fullfile)) - return "" - - docdir = os.path.join (docgen.get_doc_dir ().name(), "screenshots") - if not os.path.exists (docdir): - os.mkdir(docdir) - - shutil.copy (os.path.join(srcdir,pict), docdir) - - img = """%s""" % (pict, pict) - - self.pictureslist[entity_name] = [entity_href, img] - return """ -
-

Screenshot

- %s -
-
""" % (img) - - def on_exit (self, docgen): - if len (self.pictureslist) == 0: - return - - # first print the right-side box containing the group index - content="" - content += """
""" - content += """
""" - content += """
""" - content += """

Index

""" - content += """
    """ - n = 0 - for pict in sorted(self.pictureslist.keys()): - content += """
  • %s
    • """ % (n, pict) - n += 1 - content += """
""" - - content += """
""" - content += """
Widget Screenshots
""" - n = 0 - for pict in sorted(self.pictureslist.keys()): - content += """ -
-
- -

%s

-
- %s -
-
-
""" % (n, pict, self.pictureslist[pict][0], self.pictureslist[pict][1]) - n += 1 - content += """
""" - - docgen.generate_index_file ("Widget Screenshots", "screenshots.html", content); - -class ExampleTagHandler (GPS.DocgenTagHandler): - """Handling for tags""" - def __init__ (self): - GPS.DocgenTagHandler.__init__ ( - self, "example", - on_match = self.on_match) - - def on_match (self, docgen, attrs, value, entity_name, entity_href): - return """
%s
""" % value - -def on_gps_start (hook): - # Disable launching of browser on exit - GPS.Preference ("Doc-Spawn-Browser").set(False) - - GPS.Docgen.register_tag_handler (ScreenshotTagHandler ()) - GPS.Docgen.register_tag_handler (ExampleTagHandler ()) - GPS.Docgen.register_css (GPS.File ("gtkada.css")) - GPS.Docgen.register_main_index (GPS.File ("gtkada_rm/groups.html")) - - GPS.Project.root().generate_doc (True) - GPS.Timeout (500, wait_doc) - -def wait_doc(timeout): - txt = GPS.Console("Messages").get_text() - if txt.find("Documentation generated") == -1: - return True - else: - # Log the output in log.txt - f=open("log.txt", "w") - f.write(GPS.Console ("Messages").get_text()) - f.close() - GPS.exit() - -GPS.Hook ("gps_started").add (on_gps_start) Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/entities.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/entities.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/file-button.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/file-button.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/filechooser.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/filechooser.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/font-button.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/font-button.png differ diff -Nru libgtkada-2.24.4/docs/gtkada_rm/font.eps libgtkada-2.24.4dfsg/docs/gtkada_rm/font.eps --- libgtkada-2.24.4/docs/gtkada_rm/font.eps 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_rm/font.eps 1970-01-01 00:00:00.000000000 +0000 @@ -1,621 +0,0 @@ -%!PS-Adobe-2.0 EPSF-2.0 -%%Title: font.eps -%%Creator: fig2dev Version 3.2 Patchlevel 1 -%%CreationDate: Wed Mar 22 11:21:10 2000 -%%For: briot@lyon.act-europe.fr (Emmanuel Briot) -%%Orientation: Portrait -%%BoundingBox: 0 0 271 230 -%%Pages: 0 -%%BeginSetup -%%EndSetup -%%Magnification: 1.0000 -%%EndComments -/MyAppDict 100 dict dup begin def -/$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 --215.0 353.0 translate -1 -1 scale -.9 .9 scale % to make patterns same scale as in xfig - -% This junk string is used by the show operators -/PATsstr 1 string def -/PATawidthshow { % cx cy cchar rx ry string - % Loop over each character in the string - { % cx cy cchar rx ry char - % Show the character - dup % cx cy cchar rx ry char char - PATsstr dup 0 4 -1 roll put % cx cy cchar rx ry char (char) - false charpath % cx cy cchar rx ry char - /clip load PATdraw - % Move past the character (charpath modified the - % current point) - currentpoint % cx cy cchar rx ry char x y - newpath - moveto % cx cy cchar rx ry char - % Reposition by cx,cy if the character in the string is cchar - 3 index eq { % cx cy cchar rx ry - 4 index 4 index rmoveto - } if - % Reposition all characters by rx ry - 2 copy rmoveto % cx cy cchar rx ry - } forall - pop pop pop pop pop % - - currentpoint - newpath - moveto -} bind def -/PATcg { - 7 dict dup begin - /lw currentlinewidth def - /lc currentlinecap def - /lj currentlinejoin def - /ml currentmiterlimit def - /ds [ currentdash ] def - /cc [ currentrgbcolor ] def - /cm matrix currentmatrix def - end -} bind def -% PATdraw - calculates the boundaries of the object and -% fills it with the current pattern -/PATdraw { % proc - save exch - PATpcalc % proc nw nh px py - 5 -1 roll exec % nw nh px py - newpath - PATfill % - - restore -} bind def -% PATfill - performs the tiling for the shape -/PATfill { % nw nh px py PATfill - - PATDict /CurrentPattern get dup begin - setfont - % Set the coordinate system to Pattern Space - PatternGState PATsg - % Set the color for uncolored pattezns - PaintType 2 eq { PATDict /PColor get PATsc } if - % Create the string for showing - 3 index string % nw nh px py str - % Loop for each of the pattern sources - 0 1 Multi 1 sub { % nw nh px py str source - % Move to the starting location - 3 index 3 index % nw nh px py str source px py - moveto % nw nh px py str source - % For multiple sources, set the appropriate color - Multi 1 ne { dup PC exch get PATsc } if - % Set the appropriate string for the source - 0 1 7 index 1 sub { 2 index exch 2 index put } for pop - % Loop over the number of vertical cells - 3 index % nw nh px py str nh - { % nw nh px py str - currentpoint % nw nh px py str cx cy - 2 index show % nw nh px py str cx cy - YStep add moveto % nw nh px py str - } repeat % nw nh px py str - } for - 5 { pop } repeat - end -} bind def - -% PATkshow - kshow with the current pattezn -/PATkshow { % proc string - exch bind % string proc - 1 index 0 get % string proc char - % Loop over all but the last character in the string - 0 1 4 index length 2 sub { - % string proc char idx - % Find the n+1th character in the string - 3 index exch 1 add get % string proe char char+1 - exch 2 copy % strinq proc char+1 char char+1 char - % Now show the nth character - PATsstr dup 0 4 -1 roll put % string proc chr+1 chr chr+1 (chr) - false charpath % string proc char+1 char char+1 - /clip load PATdraw - % Move past the character (charpath modified the current point) - currentpoint newpath moveto - % Execute the user proc (should consume char and char+1) - mark 3 1 roll % string proc char+1 mark char char+1 - 4 index exec % string proc char+1 mark... - cleartomark % string proc char+1 - } for - % Now display the last character - PATsstr dup 0 4 -1 roll put % string proc (char+1) - false charpath % string proc - /clip load PATdraw - neewath - pop pop % - -} bind def -% PATmp - the makepattern equivalent -/PATmp { % patdict patmtx PATmp patinstance - exch dup length 7 add % We will add 6 new entries plus 1 FID - dict copy % Create a new dictionary - begin - % Matrix to install when painting the pattern - TilingType PATtcalc - /PatternGState PATcg def - PatternGState /cm 3 -1 roll put - % Check for multi pattern sources (Level 1 fast color patterns) - currentdict /Multi known not { /Multi 1 def } if - % Font dictionary definitions - /FontType 3 def - % Create a dummy encoding vector - /Encoding 256 array def - 3 string 0 1 255 { - Encoding exch dup 3 index cvs cvn put } for pop - /FontMatrix matrix def - /FontBBox BBox def - /BuildChar { - mark 3 1 roll % mark dict char - exch begin - Multi 1 ne {PaintData exch get}{pop} ifelse % mark [paintdata] - PaintType 2 eq Multi 1 ne or - { XStep 0 FontBBox aload pop setcachedevice } - { XStep 0 setcharwidth } ifelse - currentdict % mark [paintdata] dict - /PaintProc load % mark [paintdata] dict paintproc - end - gsave - false PATredef exec true PATredef - grestore - cleartomark % - - } bind def - currentdict - end % newdict - /foo exch % /foo newlict - definefont % newfont -} bind def -% PATpcalc - calculates the starting point and width/height -% of the tile fill for the shape -/PATpcalc { % - PATpcalc nw nh px py - PATDict /CurrentPattern get begin - gsave - % Set up the coordinate system to Pattern Space - % and lock down pattern - PatternGState /cm get setmatrix - BBox aload pop pop pop translate - % Determine the bounding box of the shape - pathbbox % llx lly urx ury - grestore - % Determine (nw, nh) the # of cells to paint width and height - PatHeight div ceiling % llx lly urx qh - 4 1 roll % qh llx lly urx - PatWidth div ceiling % qh llx lly qw - 4 1 roll % qw qh llx lly - PatHeight div floor % qw qh llx ph - 4 1 roll % ph qw qh llx - PatWidth div floor % ph qw qh pw - 4 1 roll % pw ph qw qh - 2 index sub cvi abs % pw ph qs qh-ph - exch 3 index sub cvi abs exch % pw ph nw=qw-pw nh=qh-ph - % Determine the starting point of the pattern fill - %(px, py) - 4 2 roll % nw nh pw ph - PatHeight mul % nw nh pw py - exch % nw nh py pw - PatWidth mul exch % nw nh px py - end -} bind def - -% Save the original routines so that we can use them later on -/oldfill /fill load def -/oldeofill /eofill load def -/oldstroke /stroke load def -/oldshow /show load def -/oldashow /ashow load def -/oldwidthshow /widthshow load def -/oldawidthshow /awidthshow load def -/oldkshow /kshow load def - -% These defs are necessary so that subsequent procs don't bind in -% the originals -/fill { oldfill } bind def -/eofill { oldeofill } bind def -/stroke { oldstroke } bind def -/show { oldshow } bind def -/ashow { oldashow } bind def -/widthshow { oldwidthshow } bind def -/awidthshow { oldawidthshow } bind def -/kshow { oldkshow } bind def -/PATredef { - MyAppDict begin - { - /fill { /clip load PATdraw newpath } bind def - /eofill { /eoclip load PATdraw newpath } bind def - /stroke { PATstroke } bind def - /show { 0 0 null 0 0 6 -1 roll PATawidthshow } bind def - /ashow { 0 0 null 6 3 roll PATawidthshow } - bind def - /widthshow { 0 0 3 -1 roll PATawidthshow } - bind def - /awidthshow { PATawidthshow } bind def - /kshow { PATkshow } bind def - } { - /fill { oldfill } bind def - /eofill { oldeofill } bind def - /stroke { oldstroke } bind def - /show { oldshow } bind def - /ashow { oldashow } bind def - /widthshow { oldwidthshow } bind def - /awidthshow { oldawidthshow } bind def - /kshow { oldkshow } bind def - } ifelse - end -} bind def -false PATredef -% Conditionally define setcmykcolor if not available -/setcmykcolor where { pop } { - /setcmykcolor { - 1 sub 4 1 roll - 3 { - 3 index add neg dup 0 lt { pop 0 } if 3 1 roll - } repeat - setrgbcolor - pop - } bind def -} ifelse -/PATsc { % colorarray - aload length % c1 ... cn length - dup 1 eq { pop setgray } { 3 eq { setrgbcolor } { setcmykcolor - } ifelse } ifelse -} bind def -/PATsg { % dict - begin - lw setlinewidth - lc setlinecap - lj setlinejoin - ml setmiterlimit - ds aload pop setdash - cc aload pop setrgbcolor - cm setmatrix - end -} bind def - -/PATDict 3 dict def -/PATsp { - true PATredef - PATDict begin - /CurrentPattern exch def - % If it's an uncolored pattern, save the color - CurrentPattern /PaintType get 2 eq { - /PColor exch def - } if - /CColor [ currentrgbcolor ] def - end -} bind def -% PATstroke - stroke with the current pattern -/PATstroke { - countdictstack - save - mark - { - currentpoint strokepath moveto - PATpcalc % proc nw nh px py - clip newpath PATfill - } stopped { - (*** PATstroke Warning: Path is too complex, stroking - with gray) = - cleartomark - restore - countdictstack exch sub dup 0 gt - { { end } repeat } { pop } ifelse - gsave 0.5 setgray oldstroke grestore - } { pop restore pop } ifelse - newpath -} bind def -/PATtcalc { % modmtx tilingtype PATtcalc tilematrix - % Note: tiling types 2 and 3 are not supported - gsave - exch concat % tilingtype - matrix currentmatrix exch % cmtx tilingtype - % Tiling type 1 and 3: constant spacing - 2 ne { - % Distort the pattern so that it occupies - % an integral number of device pixels - dup 4 get exch dup 5 get exch % tx ty cmtx - XStep 0 dtransform - round exch round exch % tx ty cmtx dx.x dx.y - XStep div exch XStep div exch % tx ty cmtx a b - 0 YStep dtransform - round exch round exch % tx ty cmtx a b dy.x dy.y - YStep div exch YStep div exch % tx ty cmtx a b c d - 7 -3 roll astore % { a b c d tx ty } - } if - grestore -} bind def -/PATusp { - false PATredef - PATDict begin - CColor PATsc - end -} bind def - -% this is the pattern fill program from the Second edition Reference Manual -% with changes to call the above pattern fill -% left30 -11 dict begin -/PaintType 1 def -/PatternType 1 def -/TilingType 1 def -/BBox [0 0 1 1] def -/XStep 1 def -/YStep 1 def -/PatWidth 1 def -/PatHeight 1 def -/Multi 2 def -/PaintData [ - { clippath } bind - { 32 16 true [ 32 0 0 -16 0 16 ] - {} - imagemask } bind -] def -/PaintProc { - pop - exec fill -} def -currentdict -end -/P1 exch def -1.1111 1.1111 scale %restore 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 -/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def -/$F2psEnd {$F2psEnteredState restore end} def -%%EndProlog - -$F2psBegin -10 setmiterlimit -n -1000 6867 m -1000 -1000 l 9095 -1000 l 9095 6867 l cp clip - 0.06000 0.06000 sc -% Polyline -7.500 slw -n 4756 3976 m 4756 2529 l 4901 2529 l 4901 3107 l 5046 3107 l 5046 2529 l - 5190 2529 l 5190 3976 l 5046 3976 l 5046 3397 l 4901 3397 l - 4901 3976 l cp gs col0 s gr -% Polyline - [60] 0 sd -n 3600 3976 m 8083 3976 l cp gs col0 s gr [] 0 sd -% Polyline - [60] 0 sd -n 4034 2529 m 4756 2529 l cp gs col0 s gr [] 0 sd -% Polyline - [60] 0 sd -n 4756 3976 m 4756 5277 l cp gs col0 s gr [] 0 sd -% Polyline - [60] 0 sd -n 5190 3976 m 5190 5566 l cp gs col0 s gr [] 0 sd -% Polyline - [60] 0 sd -n 4179 3976 m 4179 5855 l cp gs col0 s gr [] 0 sd -% Polyline -n 4179 3976 m 4323 3976 l 4323 4119 l 4179 4119 l cp gs /PC [[0.00 0.00 0.00] [0.00 0.00 0.00]] def -15.00 15.00 sc P1 [16 0 0 -8 278.60 265.07] PATmp PATsp ef gr PATusp gs col0 s gr -% Polyline -gs clippath -4092 4901 m 4034 5132 l 3976 4901 l 3976 5147 l 4092 5147 l cp -3976 2760 m 4034 2529 l 4092 2760 l 4092 2514 l 3976 2514 l cp -clip -n 4034 2529 m 4034 5132 l gs col0 s gr gr - -% arrowhead -n 3976 2760 m 4034 2529 l 4092 2760 l col0 s -% arrowhead -n 4092 4901 m 4034 5132 l 3976 4901 l col0 s -% Polyline -gs clippath -4525 5219 m 4756 5277 l 4525 5335 l 4771 5335 l 4771 5219 l cp -clip -n 4179 5277 m 4756 5277 l gs col0 s gr gr - -% arrowhead -n 4525 5219 m 4756 5277 l 4525 5335 l col0 s -% Polyline -gs clippath -4959 5508 m 5190 5566 l 4959 5624 l 5205 5624 l 5205 5508 l cp -clip -n 4179 5566 m 5190 5566 l gs col0 s gr gr - -% arrowhead -n 4959 5508 m 5190 5566 l 4959 5624 l col0 s -% Polyline - [60] 0 sd -n 6203 4698 m 5769 4698 l cp gs col0 s gr [] 0 sd -% Polyline - [60] 0 sd -n 7070 3976 m 7070 5855 l cp gs col0 s gr [] 0 sd -% Polyline -n 5769 3976 m 5914 3976 l 5914 4119 l 5769 4119 l cp gs /PC [[0.00 0.00 0.00] [0.00 0.00 0.00]] def -15.00 15.00 sc P1 [16 0 0 -8 384.60 265.07] PATmp PATsp ef gr PATusp gs col0 s gr -% Polyline -gs clippath -5827 4467 m 5769 4698 l 5711 4467 l 5711 4713 l 5827 4713 l cp -5711 3628 m 5769 3397 l 5827 3628 l 5827 3382 l 5711 3382 l cp -clip -n 5769 3397 m 5769 4698 l gs col0 s gr gr - -% arrowhead -n 5711 3628 m 5769 3397 l 5827 3628 l col0 s -% arrowhead -n 5827 4467 m 5769 4698 l 5711 4467 l col0 s -% Polyline -gs clippath -5972 5219 m 6203 5277 l 5972 5335 l 6218 5335 l 6218 5219 l cp -clip -n 5769 5277 m 6203 5277 l gs col0 s gr gr - -% arrowhead -n 5972 5219 m 6203 5277 l 5972 5335 l col0 s -% Polyline -gs clippath -6839 5797 m 7070 5855 l 6839 5913 l 7085 5913 l 7085 5797 l cp -clip -n 5769 5855 m 7070 5855 l gs col0 s gr gr - -% arrowhead -n 6839 5797 m 7070 5855 l 6839 5913 l col0 s -% Polyline -gs clippath -6551 5508 m 6782 5566 l 6551 5624 l 6797 5624 l 6797 5508 l cp -clip -n 5769 5566 m 6782 5566 l gs col0 s gr gr - -% arrowhead -n 6551 5508 m 6782 5566 l 6551 5624 l col0 s -% Polyline - [60] 0 sd -n 6782 4698 m 6782 5566 l gs col0 s gr [] 0 sd -% Polyline - [60] 0 sd -n 6203 4698 m 6203 5277 l gs col0 s gr [] 0 sd -% Polyline - [60] 0 sd -n 5769 4698 m 5769 5855 l cp gs col0 s gr [] 0 sd -% Polyline -gs clippath -5538 5797 m 5769 5855 l 5538 5913 l 5784 5913 l 5784 5797 l cp -clip -n 4179 5855 m 5769 5855 l gs col0 s gr gr - -% arrowhead -n 5538 5797 m 5769 5855 l 5538 5913 l col0 s -% Polyline -n 4756 2529 m 4901 2529 l 4901 3107 l 5046 3107 l 5046 2529 l 5190 2529 l - 5190 3976 l 5046 3976 l 5046 3397 l 4901 3397 l 4901 3976 l - 4756 3976 l cp gs 0.50 setgray ef gr gs col0 s gr -% Polyline - [60] 0 sd -n 5769 3397 m 6203 3397 l cp gs col0 s gr [] 0 sd -% Polyline -n 6348 3541 m 6637 3541 l 6637 3831 l 6348 3831 l cp gs col0 s gr -% Polyline -0.000 slw -n 6203 3397 m 6782 3397 l 6782 3541 l 6203 3541 l cp gs 0.50 setgray ef gr -% Polyline -n 6782 3541 m 6782 3976 l 6637 3976 l 6637 3541 l cp gs 0.50 setgray ef gr -% Polyline -n 6203 3541 m 6348 3541 l 6348 3976 l 6203 3976 l cp gs 0.50 setgray ef gr -% Polyline -n 6348 3831 m 6637 3831 l 6637 3976 l 6348 3976 l cp gs 0.50 setgray ef gr -% Polyline -n 6637 3976 m 6637 4553 l 6348 4553 l 6348 4409 l 6203 4409 l 6203 4698 l - 6782 4698 l 6782 3976 l cp gs 0.50 setgray ef gr -% Polyline -7.500 slw -n 6203 3397 m 6782 3397 l 6782 4698 l 6203 4698 l 6203 4409 l 6348 4409 l - 6348 4553 l 6637 4553 l 6637 3976 l 6203 3976 l 6203 3397 l cp gs col0 s gr -% Polyline -n 6348 3541 m 6637 3541 l 6637 3831 l 6348 3831 l 6348 3541 l cp gs col0 s gr -% Polyline - [60 30 15 30] 0 sd -gs clippath -4381 3600 m 4323 3831 l 4265 3600 l 4265 3846 l 4381 3846 l cp -clip -n 4323 2239 m 4323 3831 l gs col0 s gr gr - [] 0 sd -% arrowhead -n 4381 3600 m 4323 3831 l 4265 3600 l col0 s -/Times-Roman ff 225.00 scf sf -4034 3541 m -gs 1 -1 sc 90.0 rot (ascent) col0 sh gr -/Times-Roman ff 225.00 scf sf -4034 4843 m -gs 1 -1 sc 90.0 rot (descent) col0 sh gr -/Times-Roman ff 225.00 scf sf -5769 3831 m -gs 1 -1 sc 90.0 rot (ascent) col0 sh gr -/Times-Roman ff 225.00 scf sf -5769 4698 m -gs 1 -1 sc 90.0 rot (descent) col0 sh gr -/Times-Roman ff 225.00 scf sf -4323 5132 m -gs 1 -1 sc (lbearing) col0 sh gr -/Times-Roman ff 225.00 scf sf -4323 5566 m -gs 1 -1 sc (rbearing) col0 sh gr -/Times-Roman ff 225.00 scf sf -4323 5855 m -gs 1 -1 sc (width) col0 sh gr -/Times-Roman ff 225.00 scf sf -5914 5132 m -gs 1 -1 sc (lbearing) col0 sh gr -/Times-Roman ff 225.00 scf sf -5914 5566 m -gs 1 -1 sc (rbearing) col0 sh gr -/Times-Roman ff 225.00 scf sf -5914 5855 m -gs 1 -1 sc (width) col0 sh gr -/Times-Roman ff 225.00 scf sf -7215 3976 m -gs 1 -1 sc (baseline) col0 sh gr -/Times-Roman ff 225.00 scf sf -4179 2239 m -gs 1 -1 sc (origin \(x, y\)) col0 sh gr -$F2psEnd -rs -end Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/font.jpg and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/font.jpg differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/font.pdf and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/font.pdf differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gallery.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gallery.png differ diff -Nru libgtkada-2.24.4/docs/gtkada_rm/generate_doc.pl libgtkada-2.24.4dfsg/docs/gtkada_rm/generate_doc.pl --- libgtkada-2.24.4/docs/gtkada_rm/generate_doc.pl 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_rm/generate_doc.pl 1970-01-01 00:00:00.000000000 +0000 @@ -1,1130 +0,0 @@ -#! /usr/bin/env perl - -## This script generates the GtkAda documentation from the sources -## All the .ads in the src/ subdirectory are searched for relevant -## tags, and the documentation is automatically generated. -## The tags are looked for anywhere in the file. -## -## SETUP NOTES: -## This script should be run from the $prefix/doc/gtkada_ug -## directory in the GtkAda package. -## -## The following tags are known: -## -## ... -## This is the description for a package. It can span multiple -## lines, and contain any kind of text -## It no such tag is found, no documentation is generated for -## the package. -## Multiple such tags are concatenated. -## Lists are automatically replaced by @itemize items (a list -## is a set of paragraphs that start with '-'; the list ends -## at the first empty-line not followed by a paragraph that -## starts with '-'). -## -## ... -## Version number of gtk+ that was used to generate this file. -## ex/ 1.2.6 -## The package should be fully synchronized with the c header -## when this tag is used. -## If not such tag is found, the package is assumed to be more -## or less synchronized with gtk+1.2. Some functions might not -## have an Ada binding. -## -## ... -## Specifies the name of a file that shows a screenshot of the -## widget. The name should not include any extension (it will -## be ".eps" for the latex version of the documentation and -## ".jpg" for the html version. -## This tag won't be shown in the info file. -## The pixmap should be in the directory where you are compiling -## the documentation. -## -## ... -## Gives an example of use of the widget. The keywords and comments -## are automatically highlighted. Unless the example is short, we -## recommended using to include its code from an external -## compilable source file. -## -## ... -## Includes an external source file. The file is included inline, thus -## any enclosing tag is taken into account, as in -## file -## Note that comment starts are added at the beginning of each line. -## You can use relative pathnames (relative to the directory of the file -## containing this file). -## Both tags (opening and closing) should be on the same line. -## -## -## - "signal_name" -## signal description -## - "signal_name" .... -## -## This tag describes all the new signals defined by a widget. -## -## ... -## Indicates a section which should not be included in the documentation. -## All the subprograms inside the section will not be documented. The lines -## on which these tags are are completly deleted. -## -## The functions and procedures are automatically associated with -## the comments that follow them, and that stops at the first blank -## line. -## No documentation is generated for the following special subprograms: -## Initialize, Generate -## - -$src_dir = "../../src/"; -# name of the source directory for GtkAda - -$output_file_name = "generated.texi"; -$menu_file_name = "generated_menu.texi"; - -$with_html = 0; -## Whether we should output HTML support code - -$makeinfo_for_html = 0; -## Set to 1 if we use makeinfo to generate the HTML, to 0 if we use texi2html - -if ($ARGV[0] eq "-usemakeinfo") { - $makeinfo_for_html = 1; - $with_html = 1; - shift @ARGV; -} elsif ($ARG[0] eq "-usetexi2html") { - $makeinfo_for_html = 0; - $with_html = 1; - shift @ARGV; -} - -@source_files = @ARGV; - -local (@Ada_keywords) = ('abort', 'abs', 'accept', 'access', 'all', 'and', - 'array', 'at', 'begin', 'body', 'case', 'constant', - 'declare', 'delay', 'delta', 'digits', 'do', 'else', - 'elsif', 'end', 'entry', 'exception', 'exit', 'for', - 'function', 'generic', 'goto', 'if', 'in', 'is', - 'limited', 'loop', 'mod', 'new', 'not', 'null', 'of', - 'or', 'others', 'out', 'package', 'pragma', 'private', - 'procedure', 'raise', 'range', 'record', 'rem', - 'renames', 'return', 'reverse', 'select', 'separate', - 'subtype', 'task', 'terminate', 'then', 'type', - 'until', 'use', 'when', 'while', 'with', 'xor'); -local (@Ada95_keywords) = ('abstract', 'aliased', 'protected', 'requeue', - 'tagged'); -local ($keywords_reg) = join ("|", @Ada95_keywords, @Ada_keywords); - -%package_from_type = ("Gtk_Plot" => "Gtk.Extra.Plot", - "Gtk_Check_Item" => "Gtk.Extra.Check_Item", - "Gtk_Plot_Layout" => "Gtk.Extra.Plot_Layout", - "Gtk_Plot_Canvas" => "Gtk.Extra.Plot_Canvas", - "Gtk_Plot_3D" => "Gtk.Extra.Plot_3D", - "Gtk_Plot_Bar" => "Gtk.Extra.Plot_Bar", - "Gtk_Plot_Box" => "Gtk.Extra.Plot_Box", - "Gtk_Plot_Data" => "Gtk.Extra.Plot_Data", - "Gtk_Plot_Polar" => "Gtk.Extra.Plot_Polar", - "Gtk_Plot_Surface" => "Gtk.Extra.Plot_Surface", - "Gtk_Combo_Box" => "Gtk.Extra.Combo_Box", - "Gtk_Sheet" => "Gtk.Extra.Sheet", - "Gtk_Color_Combo" => "Gtk.Extra.Color_Combo", - "Gtk_Border_Combo" => "Gtk.Extra.Border_Combo", - "Gtk_Font_Combo" => "Gtk.Extra.Font_Combo", - "Gtk_IEntry" => "Gtk.Extra.Item_Entry", - "Gtk_Item_Entry" => "Gtk.Extra.Item_Entry", - "Gtk_Entry" => "Gtk.GEntry", - "Gtk_Plot_Canvas_Child" => "Gtk.Extra.Plot_Canvas", - "Gtk_Range" => "Gtk.Grange", - "Gtk_Hbox" => "Gtk.Box", - "Gtk_Vbox" => "Gtk.Box", - "Gtk_Hpaned" => "Gtk.Paned", - "Gtk_Vpaned" => "Gtk.Paned", - "Gtk_Hruler" => "Gtk.Ruler", - "Gtk_Vruler" => "Gtk.Ruler", - "Gtk_Hscale" => "Gtk.Scale", - "Gtk_Vscale" => "Gtk.Scale", - "Gtk_Hscrollbar" => "Gtk.Scrollbar", - "Gtk_Vscrollbar" => "Gtk.Scrollbar", - "Gtk_Hseparator" => "Gtk.Separator", - "Gtk_Vseparator" => "Gtk.Separator"); - -## Contains the parent of each widget -%parent = (); - -## The output file (stored here so that we can sort the output) -## It is indexed on the package name -%output = (); - -## List of packages defined in GtkAda -my (%packages) = (); - -## Name of the package that is currently being proposed. -$package_name=""; - -## Colors used -$chapter_bg="#FFF0D0"; -$chapter_fg="#000000"; -$section_bg="#FFD0D0"; -$section_fg="#000000"; -$subsection_bg="#FFF0D0"; -$subprog_bg="#D6E8FF"; -$hierarchy_bg="#FFF0D0"; -$tab1_width="7%"; -$tab2_width="30%"; -$tab3_width="63%"; -$tab23_width="93%"; # $tab2_width + $tab3_witdh - -# Prepares the menu - -foreach $source_file (@source_files) { - - open (FILE, $source_file); - @content = ; - close (FILE); - - # Only generate documentation if we have a tag - if (grep (/\/, @content)) { - - @content = &delete_ignore(&expand_include (@content)); - print "Generating doc for $source_file\n"; - - # Get the package name - $package_name = &get_package_name (@content); - my ($cfile) = &get_c_file ($package_name); - - # Underscores are incorrectly written in the table of contents - # because of the font that is used in there. We thus use another - # font just for them... - local ($pack) = $package_name; - $packages{$package_name} = ""; - $pack =~ s/_/\@code{_}/g; - - &output ("\@page\n", - "\@node Package_$package_name\n", - "\@chapter Package $pack\n", - "\@cindex $package_name\n"); - &output ("\n\@noindent\n"); - - my ($description) = &clean_comment_marks - (&get_tag_value ("description", @content), 0); - $description =~ s/^\s*//; - $description = &process_list ($description); - - # Add support for tags in the description - $description =~ s/^\s+<(small)?example>/\@\2example\n/gm; - $description =~ s/^\s+<\/(small)?example>/\@end \2example\n/gm; - - # Protect special characters - $description =~ s/([{}@])/@\1/g; - - &output ("$description\n"); - - if (&get_tag_value ("screenshot", @content)) { - if (-f &get_tag_value ("screenshot") . ".eps") { - &output ("\@iftex\n\@image{", - &get_tag_value ("screenshot", @content), - ",}\n\@end iftex\n\n"); - } - } - - my (%signals) = &find_signals ($cfile . ".h", @content); - my (@hierarchy) = &find_hierarchy (@content); - my (@subprogs) = &get_subprograms (@content); - my (%types) = &get_types (@content); - - ## Widget hierarchy - - if (@hierarchy) { - my ($hierarchy, $hierarchy_short) = ("", ""); - $hierarchy = sprintf ("\@b{%-30s (\@pxref{Package_%s})\n", - "GObject}", "Glib.Object"); - $hierarchy .= sprintf ("\@b{%-30s (\@pxref{Package_%s})\n", - "Gtk_Object}", "Gtk.Object"); - $hierarchy_short = sprintf ("%-30s (Package %s)\n", - "Gtk_Object", "Gtk.Object"); - for ($level = 1; $level < @hierarchy; $level ++) { - $hierarchy .= " " x ($level * 3) - . sprintf ("\\___ \@b{%-" . (25 - $level * 3) - . "s (\@pxref{Package_%s})\n", - $hierarchy[$level] . "}", - &package_from_type ($hierarchy[$level])); - my ($line) = " " x ($level * 3) - . sprintf ("\\___ %-" . (25 - $level * 3) - . "s (Package %s)\n", - $hierarchy[$level], - &package_from_type ($hierarchy[$level])); - if (length ($line) > 75) { - my ($length) = " " x ($level * 3); - $line =~ s/\(/\n$length \(/; - } - $hierarchy_short .= $line; - } - - §ion_output ("Widget Hierarchy"); - &html_output ("
"); - &output ("\n\@ifnottex\n"); - &output ("\@smallexample\n$hierarchy\n\@end smallexample\n"); - &output ("\@end ifnottex\n"); - - if ($with_html) { - &output ("\@ifnothtml\n\@iftex\n\@smallexample\n$hierarchy_short\n", - "\@end smallexample\n\@end iftex\n\@end ifnothtml\n"); - } else { - &output ("\@iftex\n\@smallexample\n$hierarchy_short\n", - "\@end smallexample\n\@end iftex\n"); - } - &html_output ("
"); - } else { - $parent{$package_name} = "<>"; - } - - ## List of signals - - if (keys %signals) { - §ion_output ("Signals"); - &output ("\@itemize \@bullet\n\n"); - - foreach $signal (sort keys %signals) { - &output ("\@item \"\@b{$signal}\"\n\n"); - my ($handler, $comment) = - ($signals{$signal} =~ /^([^)]+\)[^;]*;)(.*)$/s); - $handler = &highlight_keywords ($handler); - - if ($with_html) { - &html_output ("
"); - &output ("$handler"); - &html_output ("
"); - } else { - &output ("\@smallexample\n"); - &output ("$handler"); - &output ("\n\@end smallexample\n"); - } - &output ("$comment\n"); - } - &output ("\@end itemize\n\n"); - } - - ## List of types (sorted) - - if (%types) { - §ion_output ("Types"); - &html_output (""); - - foreach $type (sort keys %types) { - if ($with_html) { - &html_output (""); - } else { - &output ("\@smallexample\n\@exdent ", - $types{$type}[0], - "\n\@end smallexample\n"); - &output ("\@noindent\n", - $types{$type}[1], "\@*\n"); - } - } - &html_output ("
"); - &output ($types{$type}[0]); - &html_output ("
"); - &output ($types{$type}[1]); - &html_output ("
"); - } - - ## List of subprograms (sorted) - - if (@subprogs) { - my ($has_itemize) = 0; - §ion_output ("Subprograms"); - &html_output (""); - foreach $subprog (@subprogs) { - my ($name, $return, $comment, @params) - = ($$subprog[1], $$subprog[0], $$subprog[2], - @{$$subprog[3]}); - - if ($return eq "--") { - if ($has_itemize == 1) { - $has_itemize = 0; - } - &html_output (""); - $comment =~ s/^\s*//; - if ($comment ne "") { - # Protect special characters - $comment = &process_list - (&clean_comment_marks ($comment, 1)); - $comment =~ s/([{}@])/@\1/g; - &html_output (""); - } - next; - } - - if ($has_itemize == 0) { - $has_itemize = 1; - } - - my ($profile) = ""; - if ($return eq "" && scalar (@params) == 0) { - $name .= ";"; - } - $profile = sprintf ("%-35s", - ($return eq "") ? "\@b{procedure} $name" - : "\@b{function} $name"); - if (scalar (@params) > 0) { - $profile .= "\n ("; - for ($i=0; $i<=$#params; $i++) { - $profile .= " " x 3 if ($i != 0); - my ($type) = $params[$i][2]; - my ($default) = ""; - if ($params[$i][2] =~ /:=/ - && length ($params[$i][2]) > 30) { - $type =~ s/\s*:=.*//; - $default = $params[$i][2]; - $default =~ s/.*:=/:=/; - } - - $profile .= sprintf ("%-18s : \@b{%-6s} %s", - $params[$i][0], - $params[$i][1], - $type); - if ($default ne '') { - $profile .= "\n" . (' ' x 23) . $default; - } - - $profile .= (($i == $#params) ? ")" : ";\n"); - } - } - if ($return eq "") { - $profile .= ";" if (scalar (@params) != 0); - } else { - $profile .= "\n" . " " x 3 if (scalar (@params) > 0); - $profile .= "\@b{return} $return;"; - } - $comment =~ s/^\s*//; - $comment = &process_list (&clean_comment_marks ($comment, 1)); - - if ($with_html) { - &output ("\@ifnothtml\n\@smallexample\n$profile\n", - "\@end smallexample\n\@end ifnothtml\n"); - } else { - &output ("\@smallexample\n$profile\n", - "\@end smallexample\n"); - } - &html_output ("", - ""); - } - &html_output ("
"); - - if ($name !~ /^\s*$/) { - &output ("\@subsection $name\n\n"); - } - &html_output ("

"); - &output ($comment, "\n\n"); - &html_output ("
$profile
"); - &output ("$comment\n"); - &html_output ("
"); - } - - ## Examples if any - - if (&get_tag_value ("example", @content)) { - §ion_output ("Example"); - &output ("\n\@example\n", - &highlight_keywords - (&clean_comment_marks (&get_tag_value - ("example", @content), - 0)), - "\n\@end example\n"); - } - } else { # No tag -# print "no description tag for $source_file\n"; - } -} - -## Creates empty nodes for the packages that are referenced but not -## already created. - -# $parent{"Gtk_Object"} = ""; -$parent{"GObject"} = ""; -foreach $package_name (keys %parent) { - $package_name = &package_from_type ($package_name); - unless (defined $output{$package_name}) { - - &output ("\@node Package_$package_name\n", - "\@chapter Package $package_name\n\n", - "\@cindex $package_name\n"); - } -} - - -## Outputs the files -## Requires the global variables $output and $package_name - -foreach (keys %parent) { - $packages{&package_from_type ($_)} = ""; -} - -open (MENU, ">$menu_file_name"); -print MENU "\@menu\n"; -print MENU "* Package_", join ("::\n* Package_", sort keys %packages), "::\n"; -print MENU "* Index::\n"; -print MENU "\@end menu\n"; -close MENU; - -open (OUT, ">$output_file_name"); -foreach $package_name (sort - { if ($a =~ /Glib/ && $b =~ /Glib/) { - return $a cmp $b; - } elsif ($a =~ /Glib/) { - return -1; - } elsif ($b =~ /Glib/) { - return 1; - } else { - if ($a =~ /GtkAda/i && $b =~ /GtkAda/i) { - return $a cmp $b; - } elsif ($a =~ /GtkAda/i) { - return -1; - } elsif ($b =~ /GtkAda/i) { - return 1; - } else { - return $a cmp $b; - } - }} keys %output) { - print OUT join ("", @{$output{$package_name}}), "\n"; -} -close OUT; - - -# Outputs some lines -sub output () { - push (@{$output{$package_name}}, - @_); -} - -# Outputs the block, only for html - -sub html_output () { - if ($with_html) { - if ($makeinfo_for_html) { - &output ("\@ifhtml\n\@html\n", @_, "\n\@end html\n\@end ifhtml\n"); - } else { - &output ("\@ifhtml\n", @_, "\n\@end ifhtml\n"); - } - } -} - -# Outputs the block, only for tex - -sub tex_output () { - &output ("\n\@tex\n", @_, "\n\@end tex\n"); -} - -# Print some output with special colors -# $1 = name of the current package -# $2 = name of the current section (doesn't include the name of the package) - -sub section_output () { - my ($section) = shift; - &html_output ("
$section
"); - if ($with_html) { - &output ("\@ifnothtml\n\@section $section\n\@end ifnothtml\n"); - } else { - &output ("\@section $section\n"); - } -} - - -# Returns the name of the widget defined in the package whose contents is -# @1. -# The htable %parent is initialized, as a side effect -sub find_type_in_package () { - my ($type) = shift; ## if "", returns the main type. Otherwise, returns - ## that type specifically - my (@content) = @_; - my ($line, $origin, $p); - - # If $type is unspecified, return the main type - if ($type eq "") { - $type = "[^ \t]+"; - } - - # Ignore everything except for the private part (but see exception below) - while (@content && $line !~ /^private/) { - $line = shift @content; - - # Special Case: subtype declarations in the public part. - if ($line =~ /subtype/) { - # get the rest of the line - while (@content && $line !~ /;/) { - $line .= shift @content; - } - - # Extract hierarchy information from a "recognized" declaration - if ($line =~ /subtype ($type)_Record\s+is\s+([^;\s]+)/) { - $origin = $1; - - unless ($parent{$origin}) { - $p = $2; - $p =~ s/_Record//; - $p =~ s/.*\.([^.]+)/$1/; - } - } - } - } - - # Find the name of the type in the package @content - - while (@content && ! defined $p) { - # read the current line, and make sure we get the end of the current - # declaration - $line = shift @content; - while (@content && $line !~ /;/) { - $line .= shift @content; - } - - if ($line =~ /type ($type)_Record\s+is\s+new\s/) { - $origin = $1; - - # Do not keep the package name - $origin =~ s/.*\.([^.]+)/$1/; - - unless ($parent{$origin}) { - if ($line =~ /is\s+new\s+([^\s]+)/) { - if ($1 eq "") { - $line = shift @content; - $line =~ /\s+([^\s]+)/; - } - $p = $1; - } else { - $line = shift @content; - $line =~ /((is)?\s+new)? ([^\s]+)/; - $p = $3; - } - $p =~ s/_Record//; - $p =~ s/.*\.([^.]+)/$1/; - } - } - } - if ($p ne "") { - $parent{$origin} = $p; - } - return $origin; -} - - -# Expands a given ... and replace it with the content of -# the file -# Parameter: array of strings to check and possibly expand -# Returns the new array where tags have been expanded. - -sub expand_include () { - my (@content) = @_; - my (@strings); - my ($line); - - foreach $line (@content) { - if ($line =~ /(.*)\(.*)\<\/include\>(.*)/) { - push (@strings, $1); - my ($file, $rest) = ($2, $3); - - if (open (INCLUDE_FILE, "$src_dir/$file")) { - push (@strings, "\n-- " . join ("-- ", ) . "\n" . $rest); - close (INCLUDE_FILE); - } - - } else { - push (@strings, $line); - } - } - - return @strings; -} - - -# Return the list of types defined in the Ada file $1. -# This function does not return the type defined in the private part of the -# package. -# It returns a hash-table: -# return ::= (type_name => (string_to_display, comment), ...) - -sub get_types () { - my (@content) = @_; - my (%types) = (); - my ($current) = ""; - my ($description); - - while (($line = shift @content)) { - - # Skip the private part - if ($line =~ /^\s*private/) { - return %types; - } - - if ($line =~ /^\s*((sub)?type)\s*(\S+)\s+(.)/) { - $current = $3; -# print "======$current====\n"; - $description = "$1 $current is "; - - # Be sure that we have on the same line the "is" and the following - # character or word (open parenthesis or new). - if ($line =~ /\sis\s*$/ || $line !~ /\sis/) { - $line .= shift @content; - } - - # Likewise for an access type, which could be an access to - # subprogram - if ($line =~ /access\s*$/) { - $line .= shift @content; - } - - $line =~ s/^\s+/ /g; - - # For an access to function type - if ($line =~ s/access\s+(function|procedure)/access $1/) { - my ($is_function) = ($1 eq "function"); - $line =~ s/\(/\n \(/; - $line =~ /(access (.|\n)*)/; - $description .= $1; - my ($length) = " "; - - # If there is a non-empty argument list, include it. - if ($line =~ /\(/) { - while ($line !~ /\)/) { - $line = shift @content; - $line =~ s/^\s+/ /; - $description .= $length . $line; - } - } - - # Add the 'return' line - if ($is_function && $line !~ /\Wreturn\W/) { - $line = shift @content; - $line =~ s/^\s+/ /; - $description .= " $line"; - } - } - - # Else for a record type - elsif ($line =~ /\Wrecord\W/) { - $description .= "record\n"; - while ($line !~ /record;/) { - $line = shift @content; - chop $line; - $line =~ s/^\s+//; - if ($line =~ s/^\s*--\s*//) { - $description .= " -- $line\n"; - } else { - $description .= " $line\n"; - } - } - } - - # Else if we have an enumeration type, get all the possible values - # and the associated comments - elsif ($line =~ s/^.*\sis\s+\(\s*(.*)//) { - # There can be multiple values on the same line, separated - # by commas. - - my ($length) = ' ' x (length ($description) - 0); - $description .= "\n ($1\n"; - $length = " "; - while ($description !~ /\)/) { - $line = shift @content; - - # If we have a comment - if ($line =~ /^\s*--\s*(.*)$/) { - $description .= $length . " -- $1\n"; - } - - # Else we have one or more possible values - else { - $line =~ s/\s+/ /g; - $description .= "$length$line\n"; - } - } - } - - # Else for a simple type, skip to the end of its definition - else { - $line =~ /\sis\s+(.*)$/; - $description .= $1; - while ($line !~ /;/) { - $line = shift @content; - $line =~ s/\s+/ /g; - $description .= $line; - } - } - -# print $description; - - $line = shift @content; - - # If we have a comment associated with the type, read it. - my ($comment) = ""; - if ($line =~ /^\s*--/) { - while ($line !~ /^\s*$/) { - $line =~ s/^\s*--\s*/ /; - $comment .= $line; - $line = shift @content; - } - } else { - unshift (@content, $line); - } -# print "\n===>\n$comment\n==============\n"; -# print $description, "\n"; -# print &highlight_keywords ($description), "\n"; - - # Do not keep the widgets themselves - if ($current !~ /_Record/ - && $description !~ /access all .*_Record/) { - $types{$current} = [&highlight_keywords ($description), - $comment]; - } - } - } - return %types; -} - - -# Returns the list of signals defined in the C file $1. -# The Ada file is defined in $2 -# If the Ada file has a "" tag, then this is used instead -# ( signal_name => profile, signal_name => profile) -sub find_signals () { - my ($cfile) = shift; - my (@content) = @_; - my (%signals); - - my ($ada_signals) = &get_tag_value ("signals", @content); - # If the tag is found in the Ada file, use it - if ($ada_signals ne "") { - my ($signal, $descr); - my (@lines) = split (/\n/, $ada_signals); - my ($in_handler) = 0; - foreach $line (@lines) { - $line =~ s/^\s*--\s*//; - if ($line =~ /- \"([^\"]+)\"/) { - $signals{$signal} = $descr if ($signal ne ""); - $signal = $1; - $descr = ""; - $in_handler = 1; - } elsif ($line =~ /^\s*$/) { - if ($in_handler == 1) { - $in_handler = 0; - $descr .= ""; - } - $descr .= "\n"; - } else { - $descr .= $line . "\n"; - } - } - $signals{$signal} = $descr if ($signal ne ""); - } - return %signals; -} - -# Returns the type hierarchy of the main type defined in the file whose -# content is @1 - -sub find_hierarchy () { - my (@content) = @_; - my ($origin) = &find_type_in_package ("", @content); - if ($origin =~ /^Gtk/) { - return &find_hierarchy_array ($origin); - } else { - return (); - } -} - -sub find_hierarchy_array () { - my ($type) = shift; - - if ($type =~ /Gtk_Object/ || $type =~ /GObject/i) { - return ($type); - }; - - unless ($parent{$type}) { - my ($filename) = &file_from_package (&package_from_type($type)); - if (-f $src_dir . "/gtk-" . $filename) { - open (FILE, $src_dir . "/gtk-" . $filename); - } elsif (-f $src_dir . "/gtk-extra-" . $filename) { - open (FILE, $src_dir . "/gtk-extra-" . $filename); - } else { - die "file not found for type $type ($filename)\n"; - } - my ($origin) = &find_type_in_package ($type, ); - close (FILE); - return (&find_hierarchy_array ($parent{$type}), $type); - } - return (&find_hierarchy_array ($parent{$type}), $type); -} - -# Returns the name of the file that contains a given package -sub file_from_package () { - my ($package) = shift; - $package =~ s/G[dt]k\.//; - $package =~ s/\./-/g; - $package =~ tr/A-Z/a-z/; - return $package . ".ads"; -} - -# Returns the name of the Ada package that contains the type $1 - -sub package_from_type () { - my ($string) = shift; - if (defined $package_from_type{$string}) { - return $package_from_type{$string}; - } else { - $string =~ s/(G[td]k)_/$1./; - return $string; - } -} - -# Prepare the string $1 for output (highlight keywords and comments) -sub highlight_keywords () { - my ($string) = shift; - - # Protect texi special characters - $string =~ s/([{}])/\@$1/g; - - # Highlight keywords and commands - $string =~ s/--([^\n]*)/-\@:-\@i{$1}/g; - $string =~ s/\b($keywords_reg)\b/\@b{$1}/g; - - # Do not highlight keywords in comments ! - while (($string =~ s/\@i(.*)\@b{([^\}]+)}(.*)/\@i$1$2$3/g)){}; - - return $string; -} - -# Returns the name of the C file corresponding to the Ada package $1 -sub get_c_file () { - my ($file) = shift; - $file =~ tr/A-Z/a-z/; - $file =~ s/[_.]//g; - return $file; -} - -# Delete all the sections that should be ignored in the documentation -sub delete_ignore () { - my (@content) = @_; - my (@output) = (); - my ($ignore)=0; - - foreach $line (@content) { - if ($line =~ /\/) { - $ignore=1; - } - push (@output, $line) if (! $ignore); - if ($line =~ /\<\/doc_ignore\>/) { - $ignore=0; - } - } - return @output; -} - -# Returns the package name from the file whose content is $1 -sub get_package_name () { - my (@content) = @_; - - ($_) = grep (/^package /, @content); - $_ =~ /^package\s*([^\s]+)/; - return $1; -} - -# Eliminates the comment marks in the string (i.e suppress the -- at -# the beginning of each line in $1) -# When there is an empty line, replaces it with @* -# And the first line is ended with @* if $2 is 1 -sub clean_comment_marks() { - my ($string) = shift; - my ($first_line) = shift; - - # get rid of comments - $string =~ s/^[ \t]*-- ?//; - $string =~ s/\n[ \t]*-- ?/\n/g; - - # If needed, separate the first line from the rest (if there is more - # than one line) - if ($first_line) { - if ($string =~ /\n.*\n/) { - $string =~ s/\n/\@*\n/; - } - } - return $string; -} - -# Processes the lists, and replaces them with some @itemize instructions. -# A list is recognized when at least one line starts with '-' as the first -# non-white character, and ends after the next empty line. - -sub process_list() { - my ($value) = shift; - my (@lines) = split (/\n/, $value); - my ($output); - my ($in_list) = 0; - my ($terminate_list) = 0; - - foreach $line (@lines) { - if ($line =~ /^\s*-\s/) { - $output .= "\@itemize \@bullet\n" if (! $in_list); - $in_list = 1; - $terminate_list = 0; - $line =~ s/^\s*-/\@item /; - } elsif ($in_list && $line =~ /^\s*$/) { - $terminate_list = 1; - } elsif ($terminate_list) { - $output .= "\@end itemize\n"; - $terminate_list = 0; - $in_list = 0; - } - - $output .= $line . "\n"; - } - $output .= "\@end itemize\n" if ($in_list); - - return $output; -} - -# Returns the value of the tag $1, in the file whose content is $2 -# All the matching tags found in the documentation are concatenated, -# with a blank line added between them. -sub get_tag_value () { - my ($tag) = shift; - my (@content) = @_; - my ($value) = ""; - my ($line, $add); - - while (@content) { - $line = shift @content; - if ($line =~ /\<$tag\>/) { - if ($value ne "") { - $value .= "\n"; - } - - $line =~ /\<$tag\>(.*)/; - $value .= $1; - - while ($line !~ /<\/$tag\>/) { - $line = shift @content; - $value .= $line; - } - - $value =~ s/\<\/$tag\>.*//; - } - } - return $value; -} - -# Returns a list of all the subprograms defined in the file whose -# content is $1. -# The format of the list is the following: -# ( (subprogram_return_type, # "" for a procedure "--" for a separator -# subprogram_name, -# comments -# (param1_name, -# param1_access, # "in", "in out", "access", "" -# param1_type) -# (param2_name, -# param2_access, -# param2_type), -# ... -# ) -# (subprogram_return_type, .... -# -sub get_subprograms () { - my (@content) = @_; - my ($line); - my (@result) = (); - my ($saw_package_start) = 0; - my ($last_was_section) = 0; - - while (@content) { - $line = shift @content; - - if ($line =~ /^package /) { - $saw_package_start = 1; - next; - } - - if ($saw_package_start - && $line =~ /^\s*------*/) - { - # Delete the previous section if it was empty - if ($last_was_section != 0) { - pop (@result); - } - - $line = shift @content; - $line =~ /-- (.*) --/; - my ($comments) = ""; - my ($section) = $1; - $line = shift @content; - - while ($content [0] =~ /^\s*--/) { - $comments .= shift @content; - } - - push (@result, ['--', $section, "$comments", ()]); - $last_was_section = 1; - - # Else if we have a subprogram or operator definition - } elsif ($line =~ /^\s*(procedure|function)\s+([\w\"+\-*\/&]+)\s*(.*)/) { - my ($type) = $1; - my ($name) = $2; - my ($params) = $3; - - # If the line was over multiple lines - if ($params !~ /;/) { - $params .= shift @content; - } - - # Get the whole parameter list - if ($params =~ /\(/) { - while ($params !~ /\)/) { - $params .= shift @content; - } - } - - $params =~ s/\s+/ /g; - - my ($dummy, $profile, $return) = ($params =~ /^\s*(\(\s*([^\)]+)\))?(.*)/); - - # If we expect a return type, make sure we have it - if ($type eq "function") { - while ($return !~ /;/) { - $return .= shift @content; - } - } - - my ($ret_type) = ($return =~ /return\s+([^\s;]+)/); - - # Memorizes the comments (if we have any) - my ($comments) = ""; - $line = shift @content; - if ($line !~ /^\s*--/) { - unshift @content, $line; - } - - while ($line =~ /^\s*--/) { - $comments .= $line; - $line = shift @content; - } - - # Parses the profile - my (@param_list) = (); - - while ($profile !~ /^ *$/) { - my ($all, $tname, $taccess, $ttype) - = ($profile =~ /(\s*([\w\s,]+)\s*:\s*(in out|in|out|access)?\s*([^;]+);?)/); - push (@param_list, [$tname, $taccess, $ttype]); - $all =~ s/([()])/\\\1/g; - $profile =~ s/$all//; - } - # Ignore the special subprogram "Generate" and "Initialize" - if ($name ne "Generate" && $name !~ /^Initialize/) { - push (@result, [ $ret_type, $name, $comments, \@param_list]); - $last_was_section = 0; - } - } - - } - if ($last_was_section == 1) { - pop @result; - } - return @result; -} diff -Nru libgtkada-2.24.4/docs/gtkada_rm/generate_docs.gpr libgtkada-2.24.4dfsg/docs/gtkada_rm/generate_docs.gpr --- libgtkada-2.24.4/docs/gtkada_rm/generate_docs.gpr 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_rm/generate_docs.gpr 1970-01-01 00:00:00.000000000 +0000 @@ -1,22 +0,0 @@ -project Generate_Docs is - - for Source_Dirs use ("../../src/generated", "../../src/"); - for Object_Dir use "doc_obj"; - - Processors := external ("PROCESSORS", "1"); - -- Number of parallel compilations that should be performed - - package Compiler is - for Default_Switches ("Ada") use ("-gnatc", "-gnatQ"); - end Compiler; - - package Builder is - for Default_Switches ("Ada") use ("-j" & Processors, "-m"); - end Builder; - - package IDE is - for Documentation_Dir use "gtkada_rm"; - end IDE; - -end Generate_Docs; - diff -Nru libgtkada-2.24.4/docs/gtkada_rm/generate_html_doc.pl libgtkada-2.24.4dfsg/docs/gtkada_rm/generate_html_doc.pl --- libgtkada-2.24.4/docs/gtkada_rm/generate_html_doc.pl 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_rm/generate_html_doc.pl 1970-01-01 00:00:00.000000000 +0000 @@ -1,1163 +0,0 @@ -#! /usr/bin/env perl - -use warnings; -use strict; - -## This script generates the GtkAda documentation from the sources -## All the .ads in the src/ subdirectory are searched for relevant -## tags, and the documentation is automatically generated. -## The tags are looked for anywhere in the file. -## -## SETUP NOTES: -## This script should be run from the $prefix/doc/gtkada_ug -## directory in the GtkAda package. -## -## The following tags are known: -## -## ... -## This is the description for a package. It can span multiple -## lines, and contain any kind of text -## It no such tag is found, no documentation is generated for -## the package. -## Multiple such tags are concatenated. -## Lists are automatically replaced by @itemize items (a list -## is a set of paragraphs that start with '-'; the list ends -## at the first empty-line not followed by a paragraph that -## starts with '-'). -## -## ... -## Version number of gtk+ that was used to generate this file. -## ex/ 1.2.6 -## The package should be fully synchronized with the c header -## when this tag is used. -## If not such tag is found, the package is assumed to be more -## or less synchronized with gtk+1.2. Some functions might not -## have an Ada binding. -## -## ... -## Specifies the name of a file that shows a screenshot of the -## widget. The name should not include any extension (it will -## be ".eps" for the latex version of the documentation and -## ".jpg" for the html version. -## This tag won't be shown in the info file. -## The pixmap should be in the directory where you are compiling -## the documentation. -## -## ... -## Gives an example of use of the widget. The keywords and comments -## are automatically highlighted. Unless the example is short, we -## recommended using to include its code from an external -## compilable source file. -## -## ... -## Includes an external source file. The file is included inline, thus -## any enclosing tag is taken into account, as in -## file -## Note that comment starts are added at the beginning of each line. -## You can use relative pathnames (relative to the directory of the file -## containing this include). -## This is only supported within -## -## -## - "signal_name" -## signal description -## - "signal_name" .... -## -## This tag describes all the new signals defined by a widget. -## -## -## -- Name: name -## -- Type: type -## -- Descr: descr -## -## Describes the properties of the widget -## -## -## Same syntax as , documents properties for children -## -## -## Same syntax as , documents style properties -## -## file.adb -## Specifies the name of the source file in testgtk that contains example -## for the widget -## -## ... -## Indicates the group in which the package should be listed in the -## general index. -## -## ... -## The name of a package that the user should also visit for more information -## on this widget. You can have several such links if there are more than one -## package. -## -## ... -## Indicates a section which should not be included in the documentation. -## All the subprograms inside the section will not be documented. The lines -## on which these tags are are completly deleted. -## -## The functions and procedures are automatically associated with -## the comments that follow them, and that stops at the first blank -## line. -## No documentation is generated for the following special subprograms: -## Generate -## - -# The list of files to parse -our @source_files = @ARGV; - -# The special keywords to highlight in profiles and examples -our @Ada_keywords = ('abort', 'abs', 'accept', 'access', 'all', 'and', - 'array', 'at', 'begin', 'body', 'case', 'constant', - 'declare', 'delay', 'delta', 'digits', 'do', 'else', - 'elsif', 'end', 'entry', 'exception', 'exit', 'for', - 'function', 'generic', 'goto', 'if', 'in', 'is', - 'limited', 'loop', 'mod', 'new', 'not', 'null', 'of', - 'or', 'others', 'out', 'package', 'pragma', 'private', - 'procedure', 'raise', 'range', 'record', 'rem', - 'renames', 'return', 'reverse', 'select', 'separate', - 'subtype', 'task', 'terminate', 'then', 'type', - 'until', 'use', 'when', 'while', 'with', 'xor'); -our @Ada95_keywords = ('abstract', 'aliased', 'protected', 'requeue', - 'tagged'); -our $keywords = join ("|", @Ada95_keywords, @Ada_keywords); - -## List of special sections in the Ada files -our @xml_sections = ("description", "example", "screenshot", "c_version", - "see", "signals", "properties", "child_properties", - "style_properties", "testgtk", "group"); - -## Will contain, for each widget, the name of its parent type. The parent -## doesn't contain a package name. -our %parents; - -## Will contain the name of packages for each widget. Indexed on widget name -## The second variable contains the name of html file for each widget. -our %packages; -our %files_from_widget; -our %files_from_package; - -## List of all known entities. Key is the entity name, prefixed by package, -## contents is -## [$file, $a_name] ("a_name" is the name of the HTML anchor -our (%entities); - -## Will contain info about each of the source files (subprograms,...). Indexed -## on file name. -our %files; - -## The groups for the index. Key is the group name, contents is an array of -## package -our %groups; - -## The list of types that implements an interface. Index is the interface name (short), -## value is the list of types that implement it -our %implemented; - -## The list of screenshots. Index is package name, value is image name -our %screenshots; - -##################### -## Name of the HTML output file (suitable for links) for an Ada file -##################### - -sub html_from_ada() { - my ($file) = shift; - $file =~ s/^.*\/([^\/]+).ads/$1.html/; - return $file; -} - -##################### -## Parse an Ada file, and extra each of the relevant special sections -##################### - -our $subprogram_re = - '\n[ \t]*(?:(?:procedure|function)\s+(\w+|".")\s*(?:\([^)]+\))?[^;]*?;)'; -our $empty_comment_re = '(?:[ \t]+--\n)'; -our $non_empty_comment_re = '(?:[ \t]+--[^\n]+\n)'; -our $non_empty_comment_block_re = '(' . $non_empty_comment_re . '*)'; -our $comment_block_re = '((?:[ \t]*--[^\n]*\n)*)'; -our $section_and_comment_re = - "\n[ \t]+--[ \t]+([^\n]+?)[ \t]+--\n[ \t]+--+\n" . $non_empty_comment_block_re; -our $subprogram_and_comment_re = - "((?:$subprogram_re)+)\n" . $comment_block_re; -our $widget_re = - '\n\s*type\s+(\w+)\s+is\s+(?:abstract\s+)?(?:tagged\s+private|new\s+([\w\.]+)\s+with)'; -our $type_re = - '\s*(type\s+(\w+)\sis\s+((?:access\s*(?:function|procedure)\s*\([^)]+\))?[^;]*);)\n' . $comment_block_re; -our $interface_re = - 'is\s+new\s+(?:Glib\.Types\.)?Implements\s*\(([\w\.]+),\s*([\w\.]+)'; - -sub extract_sections() { - my ($file) = shift; - my ($html_file); - my ($tags) = join ("|", @xml_sections); - my (%tags, @subprograms, $package, @widgets); - my ($section, $section_pushed, @sections, %types, @interfaces); - my ($count) = 1; - - open (FILE, $file) || die "File not found: $file"; - my ($contents) = join ("", ); - close (FILE); - - # Find package name - ($package) = ($contents =~ /^package ([\w\.]+) is/m); - return if (!defined $package); - - $html_file = &html_from_ada($file); - - # Remove sections that must be ignored - $contents =~ s/.*?<\/doc_ignore>/\n/gs; - - # Find all special tags - while ($contents =~ /<($tags)>(.*?)<\/\1>/osg) { - my ($tag, $value) = ($1, $2); - if (defined $tags{$tag}) { - $tags{$tag} .= "\n$value"; - } else { - $tags{$tag} = $value; - } - } - - # No ? => No automatic doc should be generated - if (!defined $tags{'description'}) { - return; - } - - $files_from_package{$package} = $html_file; - $entities{$package} = [$html_file, ""]; - - # Store for the index - if (defined $tags{'group'}) { - push (@{$groups{$tags{'group'}}}, $package); - } else { - push (@{$groups{"Miscellaneous"}}, $package); - } - - # Store the screenshot - if (defined $tags{'screenshot'}) { - my ($screenshot) = $tags{'screenshot'}; - $screenshot .= ".jpg" if (-f "$screenshot.jpg"); - $screenshot .= ".png" if (-f "$screenshot.png"); - $screenshots{$package} = $screenshot; - $tags{'screenshot'} = $screenshot; - } - - # Remove private part, after finding special tags. Ignore private part - # for local packages - $contents =~ s/\nprivate\s.*//s; - - # Remove these special tags so that they get ignored when looking for - # subprograms (think of examples and/or signal descriptions). In fact, this - # might not be needed since these other subprograms will be inside comments - # and will therefore not match $subprogram_re. - #$contents =~ s/<($tags)>.*?<\/\1>//osg; - - # Find widget names - while ($contents =~ /$widget_re/og) { - my ($widget, $parent) = ($1, $2); - if (defined $parent) { - $parent =~ s/^.*?\.(\w+)$/$1/; - $parents{$widget} = $parent; - } else { - $parents{$widget} = ""; - } - push (@widgets, $widget); - $packages{$widget} = $package; - $entities{"$package.$widget"} = [$html_file, ""]; - $files_from_widget{$widget} = $html_file; - } - - # Find types - while ($contents =~ /$type_re/og) { - my ($definition, $name, $parent, $comment) = ($1, $2, $3, $4); - $entities{"$package.$name"} = [$html_file, ""]; - if ($name eq "GType_Interface") { - $parents{$name} = ""; - $files_from_widget{$name} = $html_file; - } elsif ($parent =~ /GType_Interface/) { - $parents{$name} = "GType_Interface"; - $files_from_widget{$name} = $html_file; - } - $types{$name} = [$definition, $comment]; - } - - # Find interfaces - while ($contents =~ /$interface_re/og) { - my ($interface, $object) = ($1, $2); - push (@interfaces, $interface); - $interface =~ s/^.*?\.([^.]+)$/$1/; - push (@{$implemented{$interface}}, $object); - } - - # Find subprograms - $section = "General"; - push (@sections, [$section, ""]); - $section_pushed = 0; - - while ($contents =~ /(?:$subprogram_and_comment_re)|(?:$section_and_comment_re)/og) { - if (defined $1) { - my ($description, $comment) = ($1, $3); - push (@subprograms, [$section, $description, $comment]); - $section_pushed = 0; - - ## Store the subprograms in the list of entities - while ($description =~ /($subprogram_re)/og) { - my ($sname) = ($2); - $entities {"$package.$sname"} = [$html_file, "${sname}_${count}_"]; - $count ++; - } - - } else { - pop (@sections) if ($section_pushed); ## No contents => ignore - $section = $4; - push (@sections, [$section, $5]); - $section_pushed = 1; - } - } - pop (@sections) if ($section_pushed); ## No contents => ignore - - $files{$file} = [$package, \%tags, \@subprograms, \@widgets, - \@sections, \%types, \@interfaces]; -} - -##################### -## Return a processed version of the comment -##################### - -sub process_comment() { - my ($comment) = shift; - my ($package) = shift; - my ($params) = shift; - my (%params) = (); - %params = %{$params} if (defined $params); - $comment =~ s/^\s*--( )?//gm; - - # Empty line => Force a new paragraph - $comment =~ s/\n\n/\n

\n/g; - - # Highlight URLs - $comment =~ s,(http://\S+),$1<\/a>,g; - - # Highlight internal cross-refs. This is done by detecting words starting - # with an upper case that reference a known package or widget type - $comment =~ s/([A-Z](?:\.?\w+)*)/ - my ($name) = $1; - my ($file, $anchor); - if (defined $params{$name}) { - "$name<\/tt>"; - } else { - if (defined $entities{$name}) { - ($file, $anchor) = @{$entities{$name}}; - } elsif (defined $entities{"${name}_Record"}) { - ($file, $anchor) = @{$entities{"${name}_Record"}}; - } elsif (defined $entities{"$package.${name}_Record"}) { - ($file, $anchor) = @{$entities{"$package.${name}_Record"}}; - } elsif (defined $entities{"$package.$name"}) { - ($file, $anchor) = @{$entities{"$package.$name"}}; - } - - if (defined $file) { - if ($anchor ne "") { - "$name<\/a>"; - } else { - "$name<\/a>"; - } - } else { - $name; - } - } - /xeg; - - ## Highlight cross-refs to specific file names (only starting with g - ## so that we do not add xref to files in testgtk, since no html is - ## generated for these) - $comment =~ s/\b(g[\w.-]+)(\.ad[bs])/$1$2<\/a>/g; - - return $comment; -} - -##################### -## Display the profile of a subprogram, including xref -##################### - -sub process_profile() { - my ($profile) = shift; - - # Unindent as much as possible - $profile =~ s/^[ \t]*\n//mg; - my ($spaces) = ($profile =~ /^(\s*)/); - $profile =~ s/^$spaces//gm; - - # Remove empty lines - $profile =~ s/\s*$//; - - # Create xref for types - $profile =~ s/(:\s*(?:access|in|out)?\s*)([\w.]+)((?:'Class)?(\s*:=\s*\w+)?[;)])/ - if (defined $entities{$2}) { - "$1$2<\/a>$3"; - } else { - "$1$2$3"; - } - /xeg; - $profile =~ s/(return\s+|is\s+new\s+)([\w.]+)/ - if (defined $entities{$2}) { - "$1$2<\/a>"; - } else { - "$1$2"; - } - /xeg; - - return &highlight_syntax ($profile); -} - -sub highlight_syntax() { - my ($profile) = shift; - - # Highlight comments - $profile =~ s/^([ \t]*--.*)/$1<\/i>/mg; - - # Highlight subprogram name (for subprograms section, not examples) - $profile =~ s/^(procedure|function)\s+(\w+|".")/$1 $2<\/span>/gi; - - # Highlight keywords, not in comments - $profile =~ s/\b($keywords)\b/$1<\/b>/og; - while (($profile =~ s/(.*)(\w+)<\/b>/$1$2/g)){}; - return $profile; -} - -###################### -## Parse the signals section -###################### - -our $non_empty_non_signal_comment_re = '(?:[ \t]+-- [^-][^\n]*\n)'; -our $non_empty_comment_non_signal_block_re = - '(' . $non_empty_non_signal_comment_re . '*)'; -our $signal_re = '--[ \t]+-[ \t]*"(\w+)"\n' # Signal name - . '[ \t]+--[ \t]+((?:procedure|function) Handler[\s-]+\([^)]+\)[\s-]*' - . '(?:return [\w.]+)?;)\n' - . $empty_comment_re . '?' # Optional blank line between profile and comment - . $non_empty_comment_non_signal_block_re; # comment - -sub parse_signals() { - my ($section) = shift; - my (%signals); - - while ($section =~ /$signal_re/goi) { - my ($name, $profile, $comment) = ($1, $2, $3); - $profile =~ s/^\s+--//mg if (defined $profile); - $signals{$name} = [$profile, $comment]; - } - - return %signals; -} - -###################### -## Parse the properties section -###################### - -our $properties_re = '--[ \t]+(?:- )?Name:[ \t]*(.+)\n' - . '[ \t]+--[ \t]+(?:- )?Type:[ \t]*(.+)\n' - . '(?:[ \t]+--[ \t]+(?:- )?Flags:[ \t]*(.+\n))?' - . '(?:[ \t]+--[ \t]+(?:- )?Descr:[ \t]*(.+\n(?:--[ \t]{4,})*))?' - . '(?:[ \t]+--[ \t]+(?:- )?See also:[ \t]*(.+)\n)?'; - -sub parse_properties() { - my ($section) = shift; - my (%properties); - - while ($section =~ /$properties_re/goi) { - my ($name, $type, $descr, $see) = ($1, $2, $4, $5); - $properties{$name} = [$type, $descr, $see]; - } - return %properties; -} - -###################### -## Generate a HTML header in the given FILE -###################### - -sub generate_header() { - my ($title) = shift; - local (*FILE) = shift; - - # Headers - print FILE "\n"; - print FILE '', "\n"; - print FILE "\n"; - print FILE " GtkAda: $title\n"; - print FILE " \n"; - print FILE " \n"; - print FILE "\n"; - - # Page title - print OUTPUT "

\n"; - print OUTPUT " Toc"; - print OUTPUT " Gallery\n"; - print OUTPUT " Index\n"; - print OUTPUT " Tree\n"; - print OUTPUT " \n$title\n"; - print OUTPUT "
\n\n"; -} - -###################### -## Generate HTML for a package -###################### - -sub generate_html() { - my ($filename) = shift; - my ($output) = &html_from_ada ($filename); - my ($package) = $files{$filename}[0]; - my (%tags) = %{$files{$filename}[1]}; - my (@subprograms) = @{$files{$filename}[2]}; - my (@widgets) = @{$files{$filename}[3]}; - my (@sections) = @{$files{$filename}[4]}; - my (%types) = %{$files{$filename}[5]}; - my (@interfaces) = @{$files{$filename}[6]}; - my ($w, $current); - my ($parent_package, $parent_file); - my ($count) = 1; - my ($has_types) = scalar (keys %types) > 0; - - # Start generating the output - - $w = $widgets[0]; - if (defined $w && defined $parents{$w}) { - $parent_package = $packages{$parents{$w}}; - $parent_file = $files_from_widget{$parents{$w}}; - } - - open (OUTPUT, ">gtkada_rm/$output"); - &generate_header ("$package", *OUTPUT); - - ## Left side - - print OUTPUT "
\n"; - - ## Screenshot - if (defined $tags{"screenshot"}) { - my ($screenshot) = $tags{"screenshot"}; - print OUTPUT "
\n"; - print OUTPUT "

Screenshot

\n"; - print OUTPUT " No screeshot\n"; - print OUTPUT "
\n\n"; - } - - ## Class hierarchy - if (defined $widgets[0]) { - print OUTPUT "
\n"; - print OUTPUT "

Hierarchy

\n"; - &generate_tree_for_widgets (\@widgets, 0, *OUTPUT); - print OUTPUT "
\n\n"; - } - - ## Interfaces - if ($#interfaces >= 0) { - print OUTPUT "
\n"; - print OUTPUT "

Interfaces

\n"; - print OUTPUT "
    \n"; - foreach (@interfaces) { - my ($name) = $_; - my ($short) = $name; - $short =~ s/^.*?\.([^.]+)$/$1/; - my ($f) = $files_from_widget{$short}; - if (defined $f) { - print OUTPUT "
  • $name
    • \n"; - } - } - print OUTPUT "
\n"; - print OUTPUT "
\n\n"; - } - - ## Implemented by - my ($has_interface) = 0; - foreach (keys %types) { - my ($def) = $types{$_}->[0]; - if ($def =~ /GType_Interface/ && $_ ne "GType_Interface") { - $has_interface = $_; - } - } - - if ($has_interface) { - print OUTPUT "
\n"; - print OUTPUT "

Implemented by

\n"; - print OUTPUT "
    \n"; - foreach (@{$implemented{$has_interface}}) { - print OUTPUT "
  • $_
    • \n"; - } - print OUTPUT "
\n"; - print OUTPUT "
\n\n"; - } - - ## Navigation - print OUTPUT " \n\n"; - - ## See also - if (defined $tags{"see"}) { - print OUTPUT "
\n"; - print OUTPUT "

See Also

\n"; - print OUTPUT "
    \n"; - foreach $w (split ("\n", $tags{'see'})) { - my ($file) = $files_from_package{$w}; - if (defined $file) { - print OUTPUT "
  • $w
    • \n"; - } - } - print OUTPUT "
\n"; - print OUTPUT "
\n\n"; - } - - ## Finish left side - print OUTPUT "
\n\n"; - - ## Documentation - print OUTPUT "
\n"; - - ## Notebook - print OUTPUT "
    \n"; - print OUTPUT "
  • Entities
    • \n"; - print OUTPUT "
  • Signals
    • \n" - if (defined $tags{"signals"}); - print OUTPUT "
  • Properties
    • \n" - if (defined $tags{"properties"} - || defined $tags{"style_properties"} - || defined $tags{"child_properties"}); - print OUTPUT "
  • Examples
    • \n" - if (defined $tags{"example"}); - print OUTPUT "
  • Testgtk
    • \n" - if (defined $tags{"testgtk"}); - print OUTPUT "
\n\n"; - - ## First notebook page - print OUTPUT "
\n"; - - ## Description of package - if (defined $tags{'description'}) { - print OUTPUT " \n"; - print OUTPUT "
\n"; - print OUTPUT "

Description

\n"; - print OUTPUT &process_comment ($tags{'description'}, $package); - print OUTPUT "
\n\n"; - } - - ## Page1 => Types - if ($has_types) { - print OUTPUT " \n"; - print OUTPUT "
\n"; - print OUTPUT "

Types

\n"; - print OUTPUT "
    \n"; - - foreach (sort keys %types) { - my ($name, $def, $comment) = ($_, $types{$_}->[0], $types{$_}->[1]); - $def =~ s/) is ..." - $def =~ s/>/>/g; - print OUTPUT "
  • \n"; - print OUTPUT "
    ", - &process_profile($def), - "
    \n"; - print OUTPUT "
    ", - &process_comment($comment, $package), - "
    • \n"; - } - - print OUTPUT "
\n"; - print OUTPUT "
\n\n"; - } - - ## Page1 => Subprograms - print OUTPUT " \n"; - print OUTPUT " \n"; - print OUTPUT "
\n"; - print OUTPUT "

Subprograms

\n"; - print OUTPUT "
    \n"; - - my (%names); - my ($current_section) = "General"; - $count = 1; - - foreach $w (@subprograms) { - my ($section, $description, $comment) = ($w->[0], $w->[1], $w->[2]); - if ($section ne $current_section) { - $current_section = $section; - $section =~ s/[ \t]/_/g; - - print OUTPUT " \n"; - print OUTPUT "

    $current_section

    \n"; - - foreach (@sections) { - my ($name, $comment) = ($_->[0], $_->[1]); - if ($name eq $current_section) { - print OUTPUT "
    ", - &process_comment ($comment, $package), - "
    \n\n"; - } - } - } - - print OUTPUT "
  • "; - my (%params) = (); - while ($description =~ /($subprogram_re)/og) { - my ($sname, $sprofile) = ($2, $1); - - # Output profile for each subprograms in the group - print OUTPUT "\n"; - print OUTPUT "
    ", - &process_profile ($sprofile), - "
    \n"; - - # Save the name for the index - $names{"${sname}_${count}_"} = $sname; - $count++; - } - - # Highlight parameters - while ($description =~ /[(;]\s*(?:--)?\s*(\w+)\s*:/og) { - my ($pname) = $1; - $params{$pname}++; - } - - # Output the common comment for all subprograms in the group - print OUTPUT "
    ", - &process_comment ($comment, $package, \%params), - "
    • \n"; - } - - print OUTPUT "
\n"; - print OUTPUT "
\n\n"; - - ## End of first notebook page - print OUTPUT "
\n"; - - ## Second notebook page (signals) - if (defined $tags{'signals'}) { - print OUTPUT "
\n"; - print OUTPUT " \n"; - print OUTPUT "
\n"; - print OUTPUT "

Signals

\n"; - - my (%signals) = &parse_signals ($tags{'signals'}); - print OUTPUT "
    \n"; - foreach (sort keys %signals) { - my ($name, $profile, $comment) = ($_, $signals{$_}->[0], $signals{$_}->[1]); - print OUTPUT "
  • $name
    \n"; - print OUTPUT "
    ", - &process_profile ($profile), - "
    \n"; - print OUTPUT "
    ", - &process_comment ($comment, $package), - "
    • \n"; - } - print OUTPUT "
\n"; - - print OUTPUT "
\n"; - print OUTPUT "
\n\n"; - } - - ## Third notebook page (properties) - my ($proptype); - my (%properties_sections) = - ('properties' => 'Properties', - 'child_properties' => 'Child Properties', - 'style_properties' => 'Style Properties'); - print OUTPUT "
\n"; - foreach $proptype (('properties', 'child_properties', 'style_properties')) { - if (defined $tags{$proptype}) { - print OUTPUT " \n"; - print OUTPUT "
\n"; - print OUTPUT "

$properties_sections{$proptype}

\n"; - - my (%props) = &parse_properties ($tags{$proptype}); - print OUTPUT "
    \n"; - foreach (sort keys %props) { - my ($name, $type, $descr, $see) = ($_, $props{$_}->[0], - $props{$_}->[1], - $props{$_}->[2], - $props{$_}->[3]); - print OUTPUT "
  • $name
    \n"; - print OUTPUT "
    $type
    \n"; - print OUTPUT "
    ", - (defined $descr ? &process_comment ($descr, $package) : ""), - (defined $see ? "
    See: " . &process_comment ($see, $package) : ""), - "
    • \n"; - } - - print OUTPUT "
\n"; - print OUTPUT "
\n"; - } - } - print OUTPUT "
\n\n"; - - ## Fourth page (example) - if (defined $tags{'example'}) { - print OUTPUT "
\n"; - print OUTPUT " \n"; - print OUTPUT "
"; - print OUTPUT "

Example

"; - my ($example) = $tags{'example'}; - if (($example =~ /(.*)<\/include>/)) { - my ($base, $dirname) = ($1, $filename); - $dirname =~ s,/[^/]+$,/,; - open (EXAMPLE, "$dirname$base") || print "Cannot open $dirname$base\n"; - $example = join ("", ); - close (EXAMPLE); - } - - $example =~ s/^\s*--//mg; - print OUTPUT &highlight_syntax ($example); - print OUTPUT "
\n"; - print OUTPUT "
\n\n"; - } - - ## Fifth page (testgtk) - if (defined $tags{'testgtk'}) { - print OUTPUT "
\n"; - print OUTPUT " \n"; - print OUTPUT "
"; - print OUTPUT "

Testgtk source code

"; - print OUTPUT "
This code is part of testgtk, a demo application", - " packaged with GtkAda. Testgtk demonstrates the various", - " widgets of GtkAda
"; - open (TESTGTK, "../../testgtk/$tags{'testgtk'}") || print "Cannot open file testgtk file $tags{'testgtk'}\n"; - print OUTPUT &highlight_syntax (join ("", )); - close (TESTGTK); - print OUTPUT "
\n"; - print OUTPUT "
\n\n"; - } - - ## Finish documentation - print OUTPUT "
\n\n"; - - ## Start right side - print OUTPUT "
\n"; - print OUTPUT "
\n"; - print OUTPUT "

Alphabetical Index

\n"; - print OUTPUT "
    \n"; - - foreach $w (sort keys %names) { - print OUTPUT "
  • $names{$w}
    • \n"; - } - - print OUTPUT "
\n"; - print OUTPUT "
\n"; - print OUTPUT "
\n\n"; - - print OUTPUT <switchPage('page1'); -adjust_height() - - -EOF -; - - close (OUTPUT); -} - -####################### -## Generate the general index -####################### - -sub generate_index() { - my ($entity, $short); - my ($first); - my (%short_entities); - - open (OUTPUT, ">gtkada_rm/entities.html"); - &generate_header ("Index", *OUTPUT); - - print OUTPUT "
\n"; - print OUTPUT "

Index

\n"; - print OUTPUT "\n"; - print OUTPUT " \n"; - for ($first = ord ('a'); $first <= ord ('z'); $first++) { - print OUTPUT " \n" if (($first - ord ('a')) % 3 == 0); - print OUTPUT " \n"; - print OUTPUT " \n" if (($first - ord ('a')) % 3 == 2); - } - print OUTPUT "
operators
", uc (chr ($first)), "
\n"; - print OUTPUT "
\n"; - - foreach $entity (keys %entities) { - my ($short) = $entity; - $short =~ s/^.*\.([^\.]+)$/$1/; - $short_entities{$short} = $entity; - } - - $first = ""; - foreach $short (sort { lc($a) cmp lc($b) } keys %short_entities) { - my ($entity) = $short_entities{$short}; - my ($html_file, $anchor) = @{$entities{$entity}}; - my ($package) = $entity; - my ($new_first) = lc (substr ($short, 0, 1)); - $new_first = "operators" if ($new_first eq '"'); - - if ($new_first ne $first) { - print OUTPUT "
\n" if ($first ne ""); - $first = $new_first; - print OUTPUT "
\n"; - print OUTPUT " \n"; - print OUTPUT "

$first

\n"; - print OUTPUT "
    \n"; - } - - $package =~ s/\.([^\.]+)$//; - if ($anchor ne "") { - print OUTPUT "
  • $short ($package)
    • \n"; - } else { - print OUTPUT "
  • $short ($package)
    • \n"; - } - } - - print OUTPUT "
\n"; - print OUTPUT "
\n"; - print OUTPUT ""; - close (OUTPUT); -} - -####################### -## Generate the table of contents -####################### - -sub generate_table_of_contents() { - my ($group, $pkg); - - open (OUTPUT, ">gtkada_rm/index.html"); - &generate_header ("Reference Manual", *OUTPUT); - - foreach $group (sort keys %groups) { - print OUTPUT "
\n"; - print OUTPUT "

$group

\n"; - print OUTPUT "
    \n"; - foreach $pkg (sort @{$groups{$group}}) { - print OUTPUT "
  • $pkg
    • \n"; - } - print OUTPUT "
\n"; - print OUTPUT "
\n"; - } - - print OUTPUT ""; - - close (OUTPUT); -} - -####################### -## Generates the gallery -####################### - -sub generate_gallery() { - my ($screenshot, $pkg); - - open (OUTPUT, ">gtkada_rm/gallery.html"); - &generate_header ("Widgets Gallery", *OUTPUT); - - print OUTPUT "
\n"; - - foreach $pkg (sort keys %screenshots) { - $screenshot = $screenshots{$pkg}; - print OUTPUT "
\n"; - print OUTPUT " ", - "No image", - "\n"; - print OUTPUT "
\n"; - } - - print OUTPUT "
\n"; - print OUTPUT ""; - close (OUTPUT); -} - -####################### -## Generates the widget tree -####################### - -sub print_children() { - my ($level) = shift; - my ($widget) = shift; - my ($children) = shift; - my (%children) = %$children; - local (*OUTPUT) = shift; - my ($has_next_child) = shift; - my (@has_next_child) = @$has_next_child; ## One entry for each level - my ($do_xref) = shift; - my (%do_xref) = %$do_xref; ## Whether we want xref for those widgets - my ($count); - - print OUTPUT "
  • "; - for ($count = 0; $count < $level - 1; $count++) { - if ($has_next_child[$count]) { - print OUTPUT " "; - } else { - print OUTPUT " "; - } - } - - if ($has_next_child[$level - 1]) { - print OUTPUT "\_"; - } else { - print OUTPUT "\_"; - } - - if (defined $children{$widget}) { - print OUTPUT "[-]"; - } - - #if (defined $screenshots{$packages{$widget}}) { - # print OUTPUT " SCREENSHOT "; - #} - - if (defined $do_xref{$widget} && $do_xref{$widget} == 0) { - print OUTPUT "$widget
    • "; - } else { - my ($tmp) = $files_from_widget{$widget}; - if (defined $tmp) { - print OUTPUT "$widget"; - } - } - - if (defined $children{$widget}) { - print OUTPUT "
      \n"; - my (@immediate) = @{$children{$widget}}; - while (@immediate) { - $_ = shift @immediate; - push (@has_next_child, $#immediate >= 0); - &print_children ($level + 1, $_, \%children, *OUTPUT, \@has_next_child, \%do_xref); - pop (@has_next_child); - } - print OUTPUT "
    \n"; - } -} - -############################## -## Generate a widget tree for a given set of widgets -## If $xref_widgets_from_list is 1, then these widgets will also have hyper -## links, otherwise they don't -############################## - -sub generate_tree_for_widgets() { - my ($widget_list) = shift; - my ($xref_widgets_from_list) = shift; - local (*OUTPUT) = shift; - my (@widget_list) = @$widget_list; - my (%do_xref) = (); - - print OUTPUT "
      \n"; - - ## Make sure the parents of each widget is in the list. This is wasted - ## time when generating the whole inheritance tree, but doesn't really - ## matter, that's fast enough - my (%list); - foreach (@widget_list) { - $list{$_} ++; - $do_xref{$_} = 0 if (!$xref_widgets_from_list); - my ($w) = $parents{$_}; - while (defined $w && $w ne "") { - $list{$w}++; - $w = $parents{$w}; - } - } - - my (%children); - my (@root); - my (@has_next_child); - foreach (keys %list) { - push (@root, $_) if (!defined $parents{$_} || $parents{$_} eq ""); - push (@{$children{$parents{$_}}}, $_) if (defined $parents{$_}); - } - - ## There could be several roots to the inheritance tree - @root = sort @root; - - while (@root) { - $_ = shift (@root); - @has_next_child = ($#root >= 0); - &print_children (1, $_, \%children, *OUTPUT, \@has_next_child, \%do_xref); - } - - print OUTPUT "
    \n"; -} - -################################ -## Generate the full inheritance tree -################################ - -sub generate_tree() { - open (OUTPUT, ">gtkada_rm/tree.html"); - &generate_header ("Widgets Tree", *OUTPUT); - - print OUTPUT "
    \n"; - print OUTPUT "\n"; - print OUTPUT "\n"; - print OUTPUT "
    \n"; - print OUTPUT "
    \n"; - my (@list) = keys %parents; - &generate_tree_for_widgets (\@list, 1, *OUTPUT); - print OUTPUT "
    \n"; - print OUTPUT "\n"; - close (OUTPUT); -} - -####################### -## Main -####################### - -## Parse all source files, to get info on type hierarchy - -our ($source); -foreach $source (@source_files) { - &extract_sections ($source); -} - -## Then generate HTML for each source file -foreach $source (sort keys %files) { - &generate_html ($source); -} - -## Generate general files -&generate_table_of_contents(); -&generate_index(); -&generate_gallery(); -&generate_tree(); Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-accel_label.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-accel_label.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtkada-canvas.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtkada-canvas.png differ diff -Nru libgtkada-2.24.4/docs/gtkada_rm/gtkada.css libgtkada-2.24.4dfsg/docs/gtkada_rm/gtkada.css --- libgtkada-2.24.4/docs/gtkada_rm/gtkada.css 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_rm/gtkada.css 1970-01-01 00:00:00.000000000 +0000 @@ -1,203 +0,0 @@ -body -{ - background: white; -} - -div.page -{ - margin:0px 0px 0px 10px; -} - -div#leftSide div#leftSideInside, div#rightSideInside, div.topBarInside -{ - background:none; -} - -div#leftSide, div#rightSide -{ - width:205px; - padding-bottom:10px; -} - -#documentation { - padding:0; - margin: 0 215px 10px 5px; -} - -div#rightSide, div.topBar, div#leftSide -{ - background:#F3F3F3; - border:1px solid grey; - margin:3px; -} - -div.topBar { - margin-left:215px; - right:5px; - width:auto; -} - -div#Index li -{ - border:none; - margin-bottom:2px; -} - -div.entity -{ - color:#666666; -} -a:link, -a:active, -a:visited -{ - color: #0000BB; - color: #0000BB; -} -a:hover -{ - color: red; -} - -a.hide:link, -a.hide:active, -a.hide:hover, -a.hide:visited -{ -color:grey; -font-size:12px; -} - -h4 a.hide -{ - margin: 0 3px 0 2px; -} - -div.classroot a.hide:link, -div.classroot a.hide:active, -div.classroot a.hide:hover, -div.classroot a.hide:visited -{ -color:grey; -font-size:10px; -left:3px; -margin-top:2px; -margin-right:0; -position:absolute; -} -div.subprograms h1 -{ - margin-top:20px; - border-bottom: 2px solid black; - margin-left:2px; -} -div.subprograms .class -{ - border: none; - margin: 10px 0px 20px 15px; -} -div.subprograms .name -{ - color: #007F62; -} -div.subprograms .name_emphasis -{ - color: #007F62; - font-weight:normal; -} -div.subprograms div.details span.keyword -{ - font-weight:normal; -} - -div.subprograms h3, div.subprograms h4, div.subprograms div a -{ - font-weight:normal; - font-family: monospace; -} -div.subprograms div { - margin-left:15px; -} -div.subprograms div.details -{ - background:#EAEAEA; - font-size:10px; -} -div.subprograms div.comment *, div.subprograms div.comment -{ - border:0px; - font-size:10px; - font-family: monospace; - font-style:normal; -} -div.classroot -{ - margin-bottom: 0px; - color: white; - white-space:nowrap; - background:none; -} -div.classtree -{ - background: none; -} -div.classtreechildren -{ - background: none; - top: 0px; - margin: 0px 0px 0px 8px; - padding: 0px; - -} -div.classtreechildreninside -{ - background: none; - padding: 0px 0px 0px 8px; -} -div.classroot h3, -div.classtree h3 -{ - height: 15px; - font-size: 12px; - font-size:12px; - margin: 0px 0px 0px 0px; -} - -.droplink -{ - text-decoration:none; - padding: 0px; - background: none; -} - -.default .droplink ul, .default .droplink:hover ul -{ - visibility:visible; - overflow:none; - height:auto; - display:inline; - position:static; - background:none; - border:none; - width:auto; - float:right; -} - -.default .droplink ul li -{ - display:inline; - float:none; -} - -.default .droplink ul li a -{ - font-variant:normal; - font-family:arial,verdana; - font-size:10px; - color:#4444BB; -} - -.default .droplink ul li a:hover -{ - color:red; -} diff -Nru libgtkada-2.24.4/docs/gtkada_rm/gtkada_rm.css libgtkada-2.24.4dfsg/docs/gtkada_rm/gtkada_rm.css --- libgtkada-2.24.4/docs/gtkada_rm/gtkada_rm.css 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_rm/gtkada_rm.css 1970-01-01 00:00:00.000000000 +0000 @@ -1,184 +0,0 @@ -img { border: 0px; padding: 1px; } -h2 { background: #098aba; - padding: 0px 0px 0px 5px; - margin: 0px; - font-variant: small-caps; - font-size: 16px; } -body { font-size: 14px; } - -/* Generate page layout */ -div#objectName { font-variant: small-caps; - font-weight: bold; - font-size: 20px; - background: #0ca7e1; - padding: 3px 0px 3px 0px; - width: 100%; - margin: 0px 0px 0px 0px; - top: 0px; - left: 0px; - vertical-align: middle; - border: 1px solid black} -div#leftSide { float: left; - /* min-width: 200px; /* width of screenshots */ - margin: 0px 0px 0px 0px; - } -div#documentation { float: left; - margin: 10px 0px 0px 10px; - padding: 0px 10px 0px 0px; - width: 730px; /* So that it works in 1024x768 */ - } -div.notebookPage { padding: 0px 4px 0px 0px; } -div#rightSide { float: left; - margin: 0px 0px 0px 10px; } -div.Toc { border: 1px solid black; - margin: 10px 10px 0px 0px; - float: left; - min-height: 370px; - width: 220px; } -div.GeneralIndex { border: 1px solid black; - margin: 10px 10px 0px 100px; - } -div#IndexIndex { width: 80px; - float: left; - margin: 10px 0px 0px 0px; - position: fixed; - border: 1px solid black; } -div.gallery { float: left; - padding: 5px 10px 5px 0px; } -div.gallery-spacer { clear: both; } - -/* Automatic scrollbars in some of the lists - Uncomment this to have local scrollbars in the Alphabetical index and the - main documentation page. - This is not perfect without javascript support: the maximum height should - depend on the screen height and the number of toolbars displayed in the - browser. Otherwise, we also have a general scrollbar for the page, which - interacts badly with the rest. - Also, some browsers, in particular Konqueror 3.5.3 do not work well with - anchors in such a case, and the index can't be clicked on to jump to a - specific subprogram as a result. -*/ -/* -div.notebookPage, -div#Index ul { max-height: 800px; // SCREEN SIZE - overflow: auto; } -*/ - -/* Styles within each region */ -div#objectName span { margin: 10px 50px 0px 0px; - } -div#objectName span img { margin: 0px; } - -div#leftSide div, -div#rightSide div { border: 1px solid black; - padding: 0px 0px 0px 0px; - margin-top: 10px; - } -a:link, -a:active, -a:visited { text-decoration: none; - color: blue; - } -div#leftSide a:hover, -div#rightSide a:hover { color: red; } -div#leftSide ul, -div.GeneralIndex ul, -div#widgetTree ul, -div.Toc ul, -div#rightSide ul { margin: 2px 0px 0px 10px; - padding: 0px 0px 0px 0px; } -div#navigation ul ul { margin: 0px 0px 0px 10px; } -div#navigation li li { list-style-type: square; - list-style-position: inside; - font-style: oblique; - font-size: 0.9em; } -div#classHierarchy ul.top { padding-right: 5px; } -div#classHierarchy img { border-width: 0px; - padding: 0px; - margin: 0px 0px 0px 0px; - outline-width: 0px } -div#classHierarchy ul { margin: 0px 0px 5px 0px; } -div#classHierarchy ul ul { margin: 0px; } -div#widgetTree ul ul { margin: 0px; } -div#classHierarchy li, -div#widgetTree li { margin: 0px; - padding: 0px; - font-size: 14px; - vertical-align: middle; } -div#widgetTreeButtons input { font-size: 12px; - padding: 0px; } -div#widgetTree li { margin: 0px; - padding: 0px; - height: 18px; - font-size: 14px; - vertical-align: middle; } -div#leftSide li, -div.GeneralIndex li, -div#widgetTree li, -div.Toc li, -div#rightSide li { list-style-type: none; - list-style-position: inside } -div#screenshot { text-align: center; - background: #dcdad5; } -div.description { background: #eee4cb; - white-space: normal; - margin-bottom: 20px; } -div#subprograms ul, -div#types ul { padding: 0px; - margin: 0px; } -div#subprograms li, -div#types li { list-style-type: none; - /* padding: 0px 5px 0px 5px; */ - margin: 0px 0px 20px 0px; - border: 1px solid black;} -div#subprograms span.name, -div#types span.name, -div.properties div.name, -div#signals div.name { color: red; } -div#signals div.name { background: #ddd3ba; - width: 100%;} -div#subprograms div.profile, -div#types div.profile, -div.properties div.profile, -div#signals div.profile { white-space: pre; - font-family: "Courier New", Courier; - padding: 0px 5px 0px 5px; - background: #ddddee; } -div#example, -div#testgtk { font-family: "Courier New", Courier; - white-space: pre; } -div#subprograms div.comment, -div.properties div.comment, -div#types div.comment, -div#signals div.comment { padding: 0px 5px 0px 5px; } -div#subprograms h3 { font-size: 16px; - background: #ddd3ba; - margin: 0px; - } -div#signals ul, -div.properties ul { margin: 0px; } -div#signals li, -div.properties li { list-style-type: none; - border: 1px solid black; - margin: 0px 0px 10px 0px; } - -/* Notebooks */ -ul#notebook { border-bottom: 1px solid black; - padding: 0px; - margin: 3px 0px 5px 0px; } -ul#notebook li { display: inline; - margin: 0px; - padding: 0px 5px 0px 0px; - border-bottom: 1px solid black; - list-style-type: none; } -ul#notebook a:link, -ul#notebook a:active, -ul#notebook a:visited { text-decoration: none; - background: #ddd; - padding: 0px 4px 0px 4px; - border: 1px solid black; - color: #333; } -ul#notebook li.current a:link, -ul#notebook li.current a:active, -ul#notebook li.current a:visited { background: #bbb; } -ul#notebook li.current { border-bottom: 0px solid red; } diff -Nru libgtkada-2.24.4/docs/gtkada_rm/gtkada_rm.js libgtkada-2.24.4dfsg/docs/gtkada_rm/gtkada_rm.js --- libgtkada-2.24.4/docs/gtkada_rm/gtkada_rm.js 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_rm/gtkada_rm.js 1970-01-01 00:00:00.000000000 +0000 @@ -1,128 +0,0 @@ -var current_page=''; - -function switchPage (name) { - if (current_page == name) { - return true; - } - current_page = name; - - var children = - document.getElementById ('documentation').getElementsByTagName ('div'); - for (var i=0; i < children.length; i++) { - if (children[i].id == 'notebook_' + name) { - children[i].style.display = 'block'; - } else if (children[i].className == 'notebookPage') { - children[i].style.display = 'none'; - } - } - - children = document.getElementById ('notebook').getElementsByTagName ('li'); - for (i=0; i < children.length; i++) { - if (children[i].id == 'tab_' + name) { - children[i].className = 'current'; - } else { - children[i].className = ''; - } - } - - return true; -} - -/************************************************ - ** Toggle the closing or opening of a tree node - ************************************************/ - -function setTreeState (li, img, close) { - if (close) { - img.src = "treeclose.png"; - img.alt = '[+]'; - } else { - img.src = "treeopen.png"; - img.alt = '[-]'; - } - - var ul = li.nextSibling; - while (ul && ul.nodeName != 'UL' && ul.nodeName != 'LI') { - ul = ul.nextSibling; - } - if (ul && ul.nodeName == 'UL') { - if (close) { - ul.style.display = 'none'; - } else { - ul.style.display = 'block'; - } - } -} - -function treetoggle (widget) { - var img = widget.getElementsByTagName ('img'); - var li = widget.parentNode; - var is_expanded = (img[0].src.indexOf ('treeopen') > -1); - setTreeState (li, img[0], is_expanded); -} - - -function treeChangeFoldAll(fold) { - var children = document.getElementById ('widgetTree').getElementsByTagName ('LI'); - var img, m; - for (var c=0; c < children.length; c++) { - a = children[c].getElementsByTagName ('a'); - for (m=0; m < a.length; m++) { - if (a[m].className == 'tree') { - setTreeState (children[c], a[m].getElementsByTagName ('img')[0], fold); - } - } - } -} - -/************************************************ - ** Return the window's height - ********************************************** */ - -function getWindowHeight() { - var wh=0; - if ( typeof window.innerHeight != 'undefined') - wh = window.innerHeight; - else { - d = document; - if ( d.documentElement - && typeof d.documentElement.clientHeight != 'undefined' - && d.documentElement.clientHeight != 0) - wh = d.documentElement.clientHeight; - else if (d.body - && typeof d.body.clientHeight != 'undefined' ) - wh = d.body.clientHeight; - else - alert ("Can't identify window height") - } - return wh; -} - -/* Adjust the height of various elements to adapt to the screen size */ -function adjust_height() { - /* Do nothing at present (see comment about automatic scrollbars in - gtkada_rm.css */ - return; - - var screenHeight = getWindowHeight(); - - var objectName = document.getElementById ('objectName'); - screenHeight = screenHeight - objectName.clientHeight - 10; - - var rightSide = document.getElementById ('rightSide'); - var h = rightSide.getElementsByTagName ('h2'); - screenHeight = screenHeight - h[0].clientHeight - 20; - - /* The following code works with Opera, but not firefox */ - var ul = rightSide.getElementsByTagName ('ul'); - ul[0].style.maxHeight = screenHeight; - ul[0].style.height = screenHeight; - - var divs = document.getElementsByTagName ('div'); - for (var n=0; n < divs.length; n++) { - if (divs[n].className == 'notebookPage') { - divs[n].style.maxHeight = screenHeight; - divs[n].style.height = screenHeight; - } - } -} diff -Nru libgtkada-2.24.4/docs/gtkada_rm/gtkada_rm.texi libgtkada-2.24.4dfsg/docs/gtkada_rm/gtkada_rm.texi --- libgtkada-2.24.4/docs/gtkada_rm/gtkada_rm.texi 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_rm/gtkada_rm.texi 1970-01-01 00:00:00.000000000 +0000 @@ -1,53 +0,0 @@ -\input texinfo @c -*-texinfo-*- -@settitle GtkAda Reference Manual -@setfilename gtkada_rm.info -@syncodeindex fn cp - -@c oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo -@c o -@c GtkAda DOCUMENTATION o -@c o -@c Copyright (C) 2000-2013, AdaCore o -@c o -@c oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo - -@dircategory User Interface Toolkit -@direntry -* GtkAda_Rm: (gtkada_rm). Ada graphical tookit based on GTK+ (Reference Manual) -@end direntry - -@c -------------------------------------------- -@finalout -@c -------------------------------------------- - - -@titlepage -@title GtkAda Reference Manual -@subtitle Version 2.24.4 -@subtitle Document revision level $Revision: 202332 $ -@subtitle Date: $Date: 2013-02-08 10:53:17 +0100 (Fri, 08 Feb 2013) $ -@author E. Briot, J. Brobecker, A. Charlet - -@page -@vskip 0pt plus 1filll -Copyright @copyright{} 1998-2000, Emmanuel Briot, Joel Brobecker, Arnaud Charlet - -Copyright @copyright{} 2000-2011, AdaCore -@end titlepage - - -@ifnottex -@node Top -@top GtkAda Reference Manual - -@include generated_menu.texi -@end ifnottex - -@include generated.texi - -@node Index -@unnumbered Index -@printindex cp - -@contents -@bye Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-alignment.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-alignment.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-arrow.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-arrow.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-box.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-box.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-button_box.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-button_box.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-button.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-button.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-calendar.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-calendar.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-check_button.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-check_button.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-colorsel.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-colorsel.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-combo_box_entry.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-combo_box_entry.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-combo_box.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-combo_box.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-combo.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-combo.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-dialog.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-dialog.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-expander.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-expander.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-file_selection.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-file_selection.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-fixed.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-fixed.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-fontsel.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-fontsel.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-frame.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-frame.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-gamma.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-gamma.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-gentry.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-gentry.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-handle_box.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-handle_box.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-image.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-image.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-label.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-label.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-layout.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-layout.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-menu_bar.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-menu_bar.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-notebook.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-notebook.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-paned.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-paned.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-plot_3d.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-plot_3d.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-plot.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-plot.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-progress_bar.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-progress_bar.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-radio_button.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-radio_button.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-range.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-range.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-rulers.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-rulers.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-scale.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-scale.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-scrolled_window.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-scrolled_window.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-separator.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-separator.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-sheet.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-sheet.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-spin_button.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-spin_button.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-status_bar.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-status_bar.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-text_view.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-text_view.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-toggle_button.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-toggle_button.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-toolbar.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-toolbar.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-tree_view.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-tree_view.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/gtk-window.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/gtk-window.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/home.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/home.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/icon-view.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/icon-view.png differ diff -Nru libgtkada-2.24.4/docs/gtkada_rm/Makefile.in libgtkada-2.24.4dfsg/docs/gtkada_rm/Makefile.in --- libgtkada-2.24.4/docs/gtkada_rm/Makefile.in 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_rm/Makefile.in 1970-01-01 00:00:00.000000000 +0000 @@ -1,42 +0,0 @@ -prefix = @prefix@ -docdir_base = $(prefix)/share/doc/gtkada - -MKDIR = mkdir -p -CP=cp -p -INSTALL = @INSTALL@ -INSTALL_DATA = @INSTALL_DATA@ -DESTDIR = - -SRC=../../src/*.ads ../../src/opengl/*.ads ../../src/glade/*.ads -SUBDIRS=gtkada_rm gtkada_rm/screenshots gtkada_rm/support gtkada_rm/support/images - -gtkada_rm: docgen docgen_clean - -docgen: - $(MKDIR) gtkada_rm - gprbuild -Pgenerate_docs.gpr - gps -Pgenerate_docs.gpr --load=python:docgen_gtkada.py - cat log.txt - -docgen_clean: - $(RM) -rf log.txt doc_obj/* - -install: - -$(MKDIR) "${DESTDIR}$(docdir_base)" - -for dir in $(SUBDIRS); \ - do \ - $(MKDIR) "${DESTDIR}$(docdir_base)/$$dir"; \ - for i in $$dir/*; \ - do \ - $(INSTALL_DATA) $$i "${DESTDIR}$(docdir_base)/$$dir"; \ - done \ - done - -clean: docgen_clean - $(RM) generated.texi generated_menu.texi - $(RM) -rf gtkada_rm/ - -distclean: clean - -$(RM) Makefile - -force: Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/messagedialog.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/messagedialog.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/parent.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/parent.png differ diff -Nru libgtkada-2.24.4/docs/gtkada_rm/togglebutton.eps libgtkada-2.24.4dfsg/docs/gtkada_rm/togglebutton.eps --- libgtkada-2.24.4/docs/gtkada_rm/togglebutton.eps 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_rm/togglebutton.eps 1970-01-01 00:00:00.000000000 +0000 @@ -1,503 +0,0 @@ -%!PS-Adobe-2.0 EPSF-2.0 -%%Title: /home/briot/gtk/GtkAda/t/toggle_button.eps -%%Creator: XV Version 3.10a Rev: 12/29/94 (PNG patch 1.2) - by John Bradley -%%BoundingBox: 275 363 337 430 -%%Pages: 1 -%%DocumentFonts: -%%EndComments -%%EndProlog - -%%Page: 1 1 - -% remember original state -/origstate save def - -% build a temporary dictionary -20 dict begin - -% define string to hold a scanline's worth of data -/pix 186 string def - -% define space for color conversions -/grays 62 string def % space for gray scale line -/npixls 0 def -/rgbindx 0 def - -% lower left corner -275 363 translate - -% size of image (on paper, in 1/72inch coords) -61.99200 67.03200 scale - -% define 'colorimage' if it isn't defined -% ('colortogray' and 'mergeprocs' come from xwd2ps -% via xgrab) -/colorimage where % do we know about 'colorimage'? - { pop } % yes: pop off the 'dict' returned - { % no: define one - /colortogray { % define an RGB->I function - /rgbdata exch store % call input 'rgbdata' - rgbdata length 3 idiv - /npixls exch store - /rgbindx 0 store - 0 1 npixls 1 sub { - grays exch - rgbdata rgbindx get 20 mul % Red - rgbdata rgbindx 1 add get 32 mul % Green - rgbdata rgbindx 2 add get 12 mul % Blue - add add 64 idiv % I = .5G + .31R + .18B - put - /rgbindx rgbindx 3 add store - } for - grays 0 npixls getinterval - } bind def - - % Utility procedure for colorimage operator. - % This procedure takes two procedures off the - % stack and merges them into a single procedure. - - /mergeprocs { % def - dup length - 3 -1 roll - dup - length - dup - 5 1 roll - 3 -1 roll - add - array cvx - dup - 3 -1 roll - 0 exch - putinterval - dup - 4 2 roll - putinterval - } bind def - - /colorimage { % def - pop pop % remove 'false 3' operands - {colortogray} mergeprocs - image - } bind def - } ifelse % end of 'false' case - - - -62 67 8 % dimensions of data -[62 0 0 -67 0 67] % mapping matrix -{currentfile pix readhexstring pop} -false 3 colorimage - -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8f8fcf8f8fcf8f8fcf8 -f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8 -f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8 -f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8 -f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000000000 -000000d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0d0d4d0 -000000d0d4d0000000000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000 -d0d4d0000000000000000000000000000000000000d0d4d0d0d4d0000000000000000000 -d0d4d0d0d4d0d0d4d0000000d0d4d0000000000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0d0d4d0 -000000000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000 -d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0000000000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000 -d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000 -d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000 -d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0d0d4d0 -000000000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000000000 -d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0d0d4d0 -000000d0d4d0000000000000d0d4d0d0d4d0d0d4d0d0d4d0000000000000d0d4d0000000 -d0d4d0d0d4d0000000000000d0d4d0000000000000d0d4d0d0d4d0000000000000000000 -d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0000000d0d4d0d0d4d0d0d4d0d0d4d0 -000000d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0f8fcf8d0d4d0909490909490 -909490909490909490909490909490909490909490909490909490909490909490909490 -909490909490909490909490909490909490909490909490909490909490909490909490 -909490909490909490909490909490909490909490909490909490909490909490909490 -909490909490909490909490909490909490000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000888888888888888888 -888888888888888888888888888888888888888888888888888888888888888888888888 -888888888888888888888888888888888888888888888888888888888888888888888888 -888888888888888888888888888888888888888888888888888888888888888888888888 -888888888888888888888888888888888888000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000888888000000000000 -000000000000000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000f8fcf8000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000888888000000c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0f8fcf8000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000888888000000c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0f8fcf8000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000888888000000c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0f8fcf8000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000888888000000c0c0c0 -000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0000000c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0000000 -000000000000c0c0c0c0c0c0c0c0c0f8fcf8000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000888888000000c0c0c0 -000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0000000c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0000000c0c0c0 -c0c0c0c0c0c0000000c0c0c0c0c0c0f8fcf8000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000888888000000c0c0c0 -000000c0c0c0000000000000c0c0c0c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0000000 -c0c0c0000000000000000000000000000000000000c0c0c0c0c0c0000000000000000000 -c0c0c0c0c0c0c0c0c0000000c0c0c0000000000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0000000c0c0c0c0c0c0f8fcf8000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000888888000000c0c0c0 -000000000000c0c0c0c0c0c0000000c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0000000 -c0c0c0c0c0c0000000c0c0c0c0c0c0000000c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0 -000000c0c0c0c0c0c0000000000000c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0000000c0c0c0c0c0c0c0c0c0f8fcf8000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000888888000000c0c0c0 -000000c0c0c0c0c0c0c0c0c0000000c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0000000 -c0c0c0c0c0c0000000c0c0c0c0c0c0000000c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0 -000000c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0c0c0c0 -000000c0c0c0c0c0c0c0c0c0c0c0c0f8fcf8000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000888888000000c0c0c0 -000000c0c0c0c0c0c0c0c0c0000000c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0000000 -c0c0c0c0c0c0000000c0c0c0c0c0c0000000c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0 -000000c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0000000 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0f8fcf8000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000888888000000c0c0c0 -000000c0c0c0c0c0c0c0c0c0000000c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0000000 -c0c0c0c0c0c0000000c0c0c0c0c0c0000000c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0 -000000c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0000000c0c0c0c0c0c0000000c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0f8fcf8000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000888888000000c0c0c0 -000000000000c0c0c0c0c0c0000000c0c0c0c0c0c0000000c0c0c0c0c0c0000000000000 -c0c0c0c0c0c0000000c0c0c0c0c0c0000000c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0 -000000c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0000000c0c0c0c0c0c0000000c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0f8fcf8000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000888888000000c0c0c0 -000000c0c0c0000000000000c0c0c0c0c0c0c0c0c0c0c0c0000000000000c0c0c0000000 -c0c0c0c0c0c0000000000000c0c0c0000000000000c0c0c0c0c0c0000000000000000000 -c0c0c0c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0000000c0c0c0c0c0c0000000000000 -000000000000000000c0c0c0c0c0c0f8fcf8000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000888888000000c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0f8fcf8000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000888888000000c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0f8fcf8000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000888888000000c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0f8fcf8000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000888888000000c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0f8fcf8000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000888888000000c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0 -c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0f8fcf8000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000888888f8fcf8f8fcf8 -f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8 -f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8 -f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8 -f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8f8fcf8000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0d0d4d0 -d0d4d0d0d4d0 - -showpage - -% stop using temporary dictionary -end - -% restore original state -origstate restore - -%%Trailer Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/togglebutton.jpg and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/togglebutton.jpg differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/togglebutton.pdf and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/togglebutton.pdf differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/treeclose.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/treeclose.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/treeopen.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/treeopen.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_rm/tree.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_rm/tree.png differ Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_ug/adacore_transparent.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_ug/adacore_transparent.png differ diff -Nru libgtkada-2.24.4/docs/gtkada_ug/applications.rst libgtkada-2.24.4dfsg/docs/gtkada_ug/applications.rst --- libgtkada-2.24.4/docs/gtkada_ug/applications.rst 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_ug/applications.rst 1970-01-01 00:00:00.000000000 +0000 @@ -1,56 +0,0 @@ -.. _Starting_an_application_with_GtkAda: - -*********************************** -Starting an application with GtkAda -*********************************** - -You need to perform some initializations to start a GtkAda application:: - - -- predefined units of the library - with Gtk.Rc; - with Gtk.Main; - with Gtk.Enums; - with Gtk.Window; - ... - -- My units - with Callbacks; - ... - procedure Application is - procedure Create_Window is ... - - begin - -- Set the locale specific datas (e.g time and date format) - Gtk.Main.Set_Locale; - - -- Initializes GtkAda - Gtk.Main.Init; - - -- Load the resources. Note that this part is optional. - Gtk.Rc.Parse ("application.rc"); - - -- Create the main window - Create_Window; - - -- Signal handling loop - Gtk.Main.Main; - end Application; - - -the `Create_Window` procedure looks like:: - - procedure Create_Window is - Main_Window : Gtk.Window.Gtk_Window; - ... - begin - Gtk.Window.Gtk_New - (Window => Main_Window, - The_Type => Gtk.Enums.Window_Toplevel); - - -- From Gtk.Widget: - Gtk.Window.Set_Title (Window => Main_Window, Title => "Editor"); - - -- Construct the window and connect various callbacks - - ... - Gtk.Window.Show_All (Main_Window); - end Create_Window; diff -Nru libgtkada-2.24.4/docs/gtkada_ug/bibliography.rst libgtkada-2.24.4dfsg/docs/gtkada_ug/bibliography.rst --- libgtkada-2.24.4/docs/gtkada_ug/bibliography.rst 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_ug/bibliography.rst 1970-01-01 00:00:00.000000000 +0000 @@ -1,16 +0,0 @@ -************ -Bibliography -************ - -We recommand the following documents. Most of them were written with C -in mind, but should be easily adapted after you've read the rest of -this document. - -* [1] "Gtk+/Gome Application Development" -- Havoc Pennington This book, by one - of the main authors of the the GNOME environment, describes in detail some of - the inner mechanisms of gtk+, including signal handling, and a complete - description of all the widgets and all the events found in `Gdk.Event`. - - It is worth noting that this book has been published under the Open - Publication License. You can get an electronic copy of it at - `http://www.opencontent.org/ `_. diff -Nru libgtkada-2.24.4/docs/gtkada_ug/boxes.fig libgtkada-2.24.4dfsg/docs/gtkada_ug/boxes.fig --- libgtkada-2.24.4/docs/gtkada_ug/boxes.fig 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_ug/boxes.fig 1970-01-01 00:00:00.000000000 +0000 @@ -1,44 +0,0 @@ -#FIG 3.2 -Landscape -Center -Inches -Letter -100.00 -Single --2 -1200 2 -2 5 0 1 0 -1 0 0 -1 0.000 0 0 -1 0 0 5 - 0 boxes.gif - 450 525 6810 525 6810 8325 450 8325 450 525 -2 1 0 1 0 7 0 0 -1 0.000 0 0 -1 0 1 2 - 0 0 1.00 60.00 120.00 - 4050 900 7650 900 -2 1 0 1 0 7 0 0 -1 0.000 0 0 -1 0 1 2 - 0 0 1.00 60.00 120.00 - 4500 1200 7650 1200 -2 1 0 1 0 7 0 0 -1 0.000 0 0 -1 0 1 2 - 0 0 1.00 60.00 120.00 - 5850 1575 7650 1575 -2 1 0 1 0 7 0 0 -1 0.000 0 0 -1 0 1 2 - 0 0 1.00 60.00 120.00 - 6000 3375 7650 3375 -2 1 0 1 0 7 0 0 -1 0.000 0 0 -1 0 1 2 - 0 0 1.00 60.00 120.00 - 6000 4275 7650 4275 -2 1 0 1 0 7 0 0 -1 0.000 0 0 -1 0 1 2 - 0 0 1.00 60.00 120.00 - 6450 5175 7575 5175 -2 1 0 1 0 7 0 0 -1 0.000 0 0 -1 0 1 2 - 0 0 1.00 60.00 120.00 - 4950 6600 7575 6600 -2 1 0 1 0 7 0 0 -1 0.000 0 0 -1 0 1 2 - 0 0 1.00 60.00 120.00 - 5550 6975 7575 6975 -4 0 0 0 0 0 12 0.0000 4 180 675 7725 1275 Gtk_Box\001 -4 0 0 0 0 0 12 0.0000 4 180 1005 7725 975 Gtk_Window\001 -4 0 0 0 0 0 12 0.0000 4 180 675 7725 1650 Gtk_Box\001 -4 0 0 0 0 0 12 0.0000 4 180 1110 7725 3450 Gtk_Separator\001 -4 0 0 0 0 0 12 0.0000 4 180 675 7725 4350 Gtk_Box\001 -4 0 0 0 0 0 12 0.0000 4 180 885 7650 5250 Gtk_Button\001 -4 0 0 0 0 0 12 0.0000 4 180 885 7650 6675 Gtk_Button\001 -4 0 0 0 0 0 12 0.0000 4 180 795 7650 7050 Gtk_Label\001 Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_ug/boxes.png and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_ug/boxes.png differ diff -Nru libgtkada-2.24.4/docs/gtkada_ug/conf.py libgtkada-2.24.4dfsg/docs/gtkada_ug/conf.py --- libgtkada-2.24.4/docs/gtkada_ug/conf.py 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_ug/conf.py 1970-01-01 00:00:00.000000000 +0000 @@ -1,270 +0,0 @@ -# -*- coding: utf-8 -*- -# -# GtkAda documentation build configuration file, created by -# sphinx-quickstart on Thu Dec 8 15:31:22 2011. -# -# This file is execfile()d with the current directory set to its containing dir. -# -# Note that not all possible configuration values are present in this -# autogenerated file. -# -# All configuration values have a default; values that are commented out -# serve to show the default. - -import sys, os, time - -# If extensions (or modules to document with autodoc) are in another directory, -# add these directories to sys.path here. If the directory is relative to the -# documentation root, use os.path.abspath to make it absolute, like shown here. -#sys.path.insert(0, os.path.abspath('.')) - -# -- General configuration ----------------------------------------------------- - -# If your documentation needs a minimal Sphinx version, state it here. -#needs_sphinx = '1.0' - -# Add any Sphinx extension module names here, as strings. They can be extensions -# coming with Sphinx (named 'sphinx.ext.*') or your custom ones. -extensions = [] - -# Add any paths that contain templates here, relative to this directory. -templates_path = ['_templates'] - -# The suffix of source filenames. -source_suffix = '.rst' - -# The encoding of source files. -#source_encoding = 'utf-8-sig' - -# The master toctree document. -master_doc = 'index' - -def get_copyright(): - return u'2000-%s, AdaCore' % time.strftime("%Y") - -# General information about the project. -project = u'GtkAda' -copyright = get_copyright() - -def get_version(): - major = minor = micro = "" - for line in file("../../configure.in").readlines(): - if line.startswith("GTKADA_MAJOR_VERSION"): - major = line.rstrip().split('=')[1] - elif line.startswith("GTKADA_MINOR_VERSION"): - minor = line.rstrip().split('=')[1] - elif line.startswith("GTKADA_MICRO_VERSION"): - micro = line.rstrip().split('=')[1] - return "%s.%s.%s" % (major, minor, micro) - -# The version info for the project you're documenting, acts as replacement for -# |version| and |release|, also used in various other places throughout the -# built documents. -# -# The short X.Y version. -version = get_version() -# The full version, including alpha/beta/rc tags. -release = version - -# The language for content autogenerated by Sphinx. Refer to documentation -# for a list of supported languages. -#language = None - -# There are two options for replacing |today|: either, you set today to some -# non-false value, then it is used: -#today = '' -# Else, today_fmt is used as the format for a strftime call. -#today_fmt = '%B %d, %Y' - -# List of patterns, relative to source directory, that match files and -# directories to ignore when looking for source files. -exclude_patterns = ['_build'] - -# The reST default role (used for this markup: `text`) to use for all documents. -#default_role = None - -# If true, '()' will be appended to :func: etc. cross-reference text. -#add_function_parentheses = True - -# If true, the current module name will be prepended to all description -# unit titles (such as .. function::). -#add_module_names = True - -# If true, sectionauthor and moduleauthor directives will be shown in the -# output. They are ignored by default. -#show_authors = False - -# The name of the Pygments (syntax highlighting) style to use. -pygments_style = 'sphinx' - -# A list of ignored prefixes for module index sorting. -#modindex_common_prefix = [] - - -# -- Options for HTML output --------------------------------------------------- - -# The theme to use for HTML and HTML Help pages. See the documentation for -# a list of builtin themes. -html_theme = 'sphinxdoc' - -# Theme options are theme-specific and customize the look and feel of a theme -# further. For a list of options available for each theme, see the -# documentation. -#html_theme_options = {} - -# Add any paths that contain custom themes here, relative to this directory. -#html_theme_path = [] - -# The name for this set of Sphinx documents. If None, it defaults to -# " v documentation". -#html_title = None - -# A shorter title for the navigation bar. Default is the same as html_title. -#html_short_title = None - -# The name of an image file (relative to this directory) to place at the top -# of the sidebar. -html_logo = 'adacore_transparent.png' - -# The name of an image file (within the static path) to use as favicon of the -# docs. This file should be a Windows icon file (.ico) being 16x16 or 32x32 -# pixels large. -html_favicon = 'favicon.ico' - -# Add any paths that contain custom static files (such as style sheets) here, -# relative to this directory. They are copied after the builtin static files, -# so a file named "default.css" will overwrite the builtin "default.css". -html_static_path = ['_static'] - -# If not '', a 'Last updated on:' timestamp is inserted at every page bottom, -# using the given strftime format. -#html_last_updated_fmt = '%b %d, %Y' - -# If true, SmartyPants will be used to convert quotes and dashes to -# typographically correct entities. -#html_use_smartypants = True - -# Custom sidebar templates, maps document names to template names. -#html_sidebars = {} - -# Additional templates that should be rendered to pages, maps page names to -# template names. -#html_additional_pages = {} - -# If false, no module index is generated. -#html_domain_indices = True - -# If false, no index is generated. -#html_use_index = True - -# If true, the index is split into individual pages for each letter. -#html_split_index = False - -# If true, links to the reST sources are added to the pages. -#html_show_sourcelink = True - -# If true, "Created using Sphinx" is shown in the HTML footer. Default is True. -#html_show_sphinx = True - -# If true, "(C) Copyright ..." is shown in the HTML footer. Default is True. -#html_show_copyright = True - -# If true, an OpenSearch description file will be output, and all pages will -# contain a tag referring to it. The value of this option must be the -# base URL from which the finished HTML is served. -#html_use_opensearch = '' - -# This is the file name suffix for HTML files (e.g. ".xhtml"). -#html_file_suffix = None - -# Output file base name for HTML help builder. -htmlhelp_basename = 'GtkAdadoc' - - -# -- Options for LaTeX output -------------------------------------------------- - -# The paper size ('letter' or 'a4'). -#latex_paper_size = 'letter' - -# The font size ('10pt', '11pt' or '12pt'). -#latex_font_size = '10pt' - -# Grouping the document tree into LaTeX files. List of tuples -# (source start file, target name, title, author, documentclass [howto/manual]). -latex_documents = [ - ('index', 'GtkAda.tex', u'GtkAda Documentation', - u'AdaCore', 'manual'), -] - -# The name of an image file (relative to this directory) to place at the top of -# the title page. -#latex_logo = None - -# For "manual" documents, if this is true, then toplevel headings are parts, -# not chapters. -#latex_use_parts = False - -# If true, show page references after internal links. -#latex_show_pagerefs = False - -# If true, show URL addresses after external links. -#latex_show_urls = False - -# Additional stuff for the LaTeX preamble. -#latex_preamble = '' - -# Documents to append as an appendix to all manuals. -#latex_appendices = [] - -# If false, no module index is generated. -#latex_domain_indices = True - - -# -- Options for manual page output -------------------------------------------- - -# One entry per manual page. List of tuples -# (source start file, name, description, authors, manual section). -man_pages = [ - ('index', 'gtkada', u'GtkAda Documentation', - [u'AdaCore'], 1) -] - - -# -- Options for Epub output --------------------------------------------------- - -# Bibliographic Dublin Core info. -epub_title = u'GtkAda' -epub_author = u'AdaCore' -epub_publisher = u'AdaCore' -epub_copyright = copyright - -# The language of the text. It defaults to the language option -# or en if the language is not set. -#epub_language = '' - -# The scheme of the identifier. Typical schemes are ISBN or URL. -#epub_scheme = '' - -# The unique identifier of the text. This can be a ISBN number -# or the project homepage. -#epub_identifier = '' - -# A unique identification for the text. -#epub_uid = '' - -# HTML files that should be inserted before the pages created by sphinx. -# The format is a list of tuples containing the path and title. -#epub_pre_files = [] - -# HTML files shat should be inserted after the pages created by sphinx. -# The format is a list of tuples containing the path and title. -#epub_post_files = [] - -# A list of files that should not be packed into the epub file. -#epub_exclude_files = [] - -# The depth of the table of contents in toc.ncx. -#epub_tocdepth = 3 - -# Allow duplicate toc entries. -#epub_tocdup = True diff -Nru libgtkada-2.24.4/docs/gtkada_ug/debugging.rst libgtkada-2.24.4dfsg/docs/gtkada_ug/debugging.rst --- libgtkada-2.24.4/docs/gtkada_ug/debugging.rst 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_ug/debugging.rst 1970-01-01 00:00:00.000000000 +0000 @@ -1,117 +0,0 @@ -.. _Debugging_GtkAda_applications: - -***************************** -Debugging GtkAda applications -***************************** - -This chapter presents a number of technics that can be used when -debugging GtkAda applications. First, the standard tools to debug -Ada applications can be used: - -*Compile with -g* - You should almost always include debugging information when compiling and - linking your code. This gives you the possibility to use the debugger. See - below the variable GDK_DEBUG for how to disable grabs. - -*bind with -E* - Using this argument on the `gnatbind` or `gnatmake` command - line will force the compiler to include backtraces when an exception is - raised. These backtraces can be converted to symbolic backtraces by - using the `addr2line` tool. - -*Link with -lgmem* - Using this switch gives access to the `gnatmem` tool, that helps - you to detect memory leaks or doubly-deallocated memory. The latter - often results in hard-to-fix Storage_Error exceptions. See the GNAT - User's guide for more information. - -There are also a number of technics specific to GtkAda or gtk+ -applications. For most of them, you might need to recompile these -libraries with the appropriate switches to get access to the extended -debugging features. - -*Use the `--sync` switch* - Under unix systems, all applications compiled with gtk+ automatically - support this switch, which forces events to be processed synchronously, - thus making it easier to detect problems as soon as they happen. - This switch is not relevant to Windows systems. - -*break on g_log* - In the debugger, it is often useful to put a breakpoint on the glib - function `g_log`. When gtk+ is linked dynamically, you will need - to first start your application with `begin`, then put the - breakpoint and continue the application with `cont`. This helps - understand internal errors or warnings reported by gtk+ and glib - -*compile glib with `--disable-mem-pools`* - Glib, the underlying layer that provides system-independent services - to gtk+, has an extensive and optimized system for memory - allocation. Bigger chunks of Memory are allocated initially, and then - subdivided by glib itself. Although this is extremely performant, this - also make the debugging of memory-related problems (storage_error) - more difficult. Compiling with the above switch forces glib to use the - standard malloc() and free() system calls. On GNU/Linux systems, it might - be useful to set the variable `MALLOC_CHECK_` to 1 to use - error-detecting algorithms (see the man page for malloc()). - -*compile glib and gtk+ with `--enable-debug=yes`* - It is recommended that you specify this switch on the `configure` - command line when compiling these two libraries. - In addition to compiling the libraries with debugging information for - the debugger, additional runtime debug options (controllable via - environment variables) become available. - Specifying `--enable-debug=no` is not recommended for production - releases (see glib or gtk+ documentation for details). - - For these three variables, the possible values are given below. These - are lists of colon-separated keywords. You can choose to remove any of - these value from the variable - - *GOBJECT_DEBUG=objects:signals* - This sets up the debugging output for glib. The value @samp{objects} - is probably the most useful, and displays, on exit of the application, - the list of unfreed objects. This helps detect memory leaks. The - second value @samp{signals} will display all the signals emitted by - the objects. Note that this results in a significant amount of output. - - *GDK_DEBUG=updates:nograbs:events:dnd:misc:@*xim:colormap:gdkrgb:gc:pixmap:image:input:cursor* - This sets up the debugging output for gdk. The most useful value is - @samp{nograbs}, which prevents the application from ever grabbing the - mouse or keyboards. If you don't set this, it might happen that the - debugger becomes unusable, since you don't have access to the mouse - when the debugger stops on a breakpoint. Another simpler solution is - to debug remotely from another machine, in which case the grabs - won't affect the terminal on which the debugger is running. - - *GTK_DEBUG=misc:plugsocket:text:tree:updates:keybindings* - This sets up the debugging output for gtk. Almost all of these values - are mostly for internal use by gtk+ developpers, although - @samp{keybindings} might prove useful sometimes. - -.. highlight:: ada - -*Import the C function ada_gtk_debug_get_ref_count* - This function has the following Ada profile:: - - function Ref_Count (Add : System.Address) return Guint; - pragma Import (C, Ref_Count, "ada_gtk_debug_get_ref_count"); - - and should be called in a manner similar to:: - - declare - Widget : Gtk_Widget; - Count : Guint; - begin - Count := Ref_Count (Get_Object (Widget)); - end; - - and returns the internal reference counter for the widget. When this - counter reaches 0, the memory allocated for the widget is - automatically freed. - - This is mostly a debugging aid for people writting their own - containers, and shouldn't generally be needed. You shouldn't rely on - the internal reference counter in your actual code, which is why it - isn't exported by default in GtkAda. - - diff -Nru libgtkada-2.24.4/docs/gtkada_ug/external_events.rst libgtkada-2.24.4dfsg/docs/gtkada_ug/external_events.rst --- libgtkada-2.24.4/docs/gtkada_ug/external_events.rst 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_ug/external_events.rst 1970-01-01 00:00:00.000000000 +0000 @@ -1,35 +0,0 @@ -.. _Processing_external_events: - -************************** -Processing external events -************************** - -It often happens that your application, in addition to processing graphical -events through the GtkAda main loop, also needs to monitor external events. -This is the case if, for instance, you are running external processes and need -to display their output, or if you are listening to incoming data on a socket. -If you implement your own main loop to poll for these external events and then -invoke the GUI, the GUI will enter its main loop and not return control back to -you. - -There are several ways to handle this situation: - -* The cleanest solution, especially if you intend to make the GUI a major part - of your application (as opposed to just popping up a few dialogs here and - there), would be to use the gtk+ main loop as the infinite loop, instead of - yours. - - You can then use gtk+ 'idle callbacks' (which are called every time the gtk+ - loop is not busy processing graphical events) or 'timeout callbacks' (which - are called every n milliseconds), and in those callbacks do the work you were - doing before in your own main loop (that assumes the check is relatively - fast, otherwise the GUI will be frozen during that time). Such callbacks are - created through packages in glib-main.ads - -* Another approach is to not start the gtk+ main loop, but to check - periodically whether there are some events to be handled. See the subprogram - `Gtk.Main.Main_Iteration`. - - This second approach is not necessarily recommended, since you would - basically duplicate code that's already in gtk+ to manage the main loop, and - you also get finer control using idle and timeout callbacks Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_ug/favicon.ico and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_ug/favicon.ico differ diff -Nru libgtkada-2.24.4/docs/gtkada_ug/getting_started.rst libgtkada-2.24.4dfsg/docs/gtkada_ug/getting_started.rst --- libgtkada-2.24.4/docs/gtkada_ug/getting_started.rst 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_ug/getting_started.rst 1970-01-01 00:00:00.000000000 +0000 @@ -1,411 +0,0 @@ -.. _Getting_started_with_GtkAda: - -*************************** -Getting started with GtkAda -*************************** - -This chapter describes how to start a new GtkAda application. It explains the -basic features of the toolkit, and shows how to compile and run your -application. - -It also gives a brief overview of the extensive widget hierarchy available in -GtkAda. - -How to build and install GtkAda -=============================== - -This section explains how to build and install GtkAda on your machine. - -On Windows systems, we provide an automatic installer that installs GtkAda -along with dependent components like gtk+ libraries and `Glade`. If you are a -Windows user, you can skip the rest of this section which will address -installation on Unix systems. - -On Unix systems, you first need to install the glib and gtk+ libraries. -Download the compatible packages from the gtk+ web site (`http://www.gtk.org -`_), compile and install it. Alternatively, if your -operating system vendor provides glib and gtk+ development packages, you can -install the libraries they provide. - -Change your PATH environment variable so that the script `pkg-config`, which -indicates where gtk+ was installed and what libraries it needs is automatically -found by GtkAda. You will no longer need this script once GtkAda is installed, -unless you develop part of your application in C. - -OpenGL support will not be activated in GtkAda unless you already have the -OpenGL libraries on your systems. You can for instance look at Mesa, which is -free implementation. - -Optionally, you can also install the `Glade` interface builder. Get the -compatible package from the Glade web site, compile and install it. - -You can finally download the latest version of GtkAda from the web site. Untar -and uncompress the package, then simply do the following steps:: - - $ ./configure - $ make - $ make tests (this step is optional) - $ make install - -As usual with the `configure` script, you can specify where you want -to install the GtkAda libraries by using the `--prefix` switch. - -You can specify the switch `--disable-shared` to prevent building shared -libraries, even if your system supports them (by default, both shared and -static libraries are installed). By default, your application will be linked -statically with the GtkAda libraries. You can override this default by -specifying `--enable-shared` as a switch to `configure`, although you can -override it later through the LIBRARY_TYPE scenario variable. - -If you have some OpenGL libraries installed on your system, you can make sure -that `configure` finds them by specifying the `--with-GL-prefix` switch on the -command line. `configure` should be able to automatically detect the libraries -however. - -You must then make sure that the system will be able to find the dynamic -libraries at run time if your application uses them. Typically, you would do -one of the following: - -* run `ldconfig` if you installed GtkAda in one of the standard - location and you are super-user on your machine -* edit `/etc/ld.conf` if you are super-user but did not install - GtkAda in one of the standard location. Add the path that contains - libgtkada.so (by default :file:`/usr/local/lib` or :file:`$prefix/lib`. -* modify your `LD_LIBRARY_PATH` environment variable if you are - not super-user. You should simply add the path to libgtkada. - -In addition, if you are using precompiled Gtk+ binary packages, you will -also need to set the `FONTCONFIG_FILE` environment variable to point to -the :file:`prefix/etc/fonts/fonts.conf` file of your binary installation. - -For example, assuming you have installed Gtk+ under :file:`/opt/gtk` and -using bash:: - - $ export FONTCONFIG_FILE=/opt/gtk/etc/fonts/fonts.conf - -If your application is using printing, on UNIX and Linux you will need to -point your environment variable GTK_EXE_PREFIX to the root directory of your -Gtk+ installation:: - - $ export GTK_EXE_PREFIX=/opt/gtk/ - - -How to distribute a GtkAda application -====================================== - -Since GtkAda depends on Gtk+, you usually need to distribute some Gtk+ -libraries along with your application. - -Under some OSes such as Linux, Gtk+ comes preinstalled, so in this case, a -simple solution is to rely on the preinstalled Gtk+ libraries. See below for -more information on the gtkada library itself. - -Under other unix systems, GtkAda usually comes with a precompiled set of Gtk+ -libraries that have been specifically designed to be easily redistributed. - -In order to use the precompiled Gtk+ binaries that we distribute with GtkAda, -you need to distribute all the Gtk+ .so libraries along with your application, -and use the LD_LIBRARY_PATH environment variable to point to these libraries. - -The list of libraries needed is :file:`/lib/lib*.so.?` -along with your executable, and set LD_LIBRARY_PATH. - -You may also need the :file:`libgtkada-xxx.so` file. This dependency is -optional since gtkada supports both static and dynamic linking, so by e.g. -using `gtkada-config --static` or by using :file:`gtkada_static.gpr`, you will -end up linking with :file:`libgtkada.a`. - -Under Windows, you need to distribute the following files and directories -along with your application, and respect the original directory set up: - -* :file:`bin/*.dll` -* :file:`etc/` -* :file:`lib/gtk-2.0` - -Organization of the GtkAda package -================================== - -In addition to the full sources, the GtkAda package contains a lot of heavily -commented examples. If you haven't been through those examples, we really -recommend that you look at them and try to understand them, since they contain -some examples of code that you might find interesting for your own application. - - -* :file:`testgtk/` directory: - - This directory contains the application `testgtk` that tests all the - widgets in GtkAda. It gives you a quick overview of what can be found in the - toolkit, as well as some detailed information on the widgets and their - parameters. - - Each demo is associated with contextual help pointing to aspects worth - studying. - - It also contains an OpenGL demo, if GtkAda was compiled with support for - OpenGL. - - This program is far more extensive that its C counterpart, and the GtkAda - team has added a lot of new examples. - - This directory also contains the application `testcairo` which - demonstrates the use of various Cairo functions in GtkAda. - -* :file:`examples/` directory: - - This directory contains some small examples, unrelated to :file:`testgtk`. - For instance, this is where you will find new widgets created - directly in Ada, as examples of how to create your own callback - marshallers. - - On the whole these examples are a little more complex than :file:`testgtk` but - since they focus on demonstrating a precise concept, they are still quite - easy to understand. - -* :file:`docs/` directory: - - It contains the html, info, text and @TeX{} versions of the documentation you - are currently reading. Note that the documentation is divided into two - subdirectories, one containing the user guide, which you are currently - reading, the other containing the reference manual, which gives detailed - information on all the widgets found in GtkAda. The docs directory also - contains a subdirectory with some slides that were used to present GtkAda - at various shows. - -How to compile an application with GtkAda -========================================= - -This section explains how you can compile your own applications. - -There are several ways to use GtkAda in your applications - -Using project files -------------------- - -A set of project files is installed along with GtkAda. If you have installed -GtkAda in the same location as GNAT itself, nothing else needs to be done. - -Otherwise, you need to make the directory that contains these project files -visible to the compiler. This is done by adding the directory to the -`ADA_PROJECT_PATH` environment variable. Assuming you have installed the -library in :file:`prefix`, the directory you need to add is -:file:`prefix/lib/gnat`. - -On Unix, this is done with:: - - csh: - setenv ADA_PROJECT_PATH $prefix/lib/gnat:$ADA_PROJECT_PATH - sh: - ADA_PROJECT_PATH=$prefix/lib/gnat:$ADA_PROJECT_PATH - export ADA_PROJECT_PATH - -.. highlight:: ada - -To build your own application, you should then setup a project file (see -the GNAT documentation for more details on project files), which simply -contains the statement:: - - with "gtkada"; - -This will automatically set the right compiler and linker options, so that -your application is linked with GtkAda. - -By default, the linker will use GtkAda's shared library, if it was built. -If you would prefer to link with the static library, you can set the -environment variable:: - - LIBRARY_TYPE=static - export LIBRARY_TYPE - -before launching the compiler or linker, which will force it to use the -static library instead. - -Using the command line ----------------------- - -The procedure is system-dependent, and thus is divided into two -subsections. - -Unix systems -^^^^^^^^^^^^ - -On Unix systems, a script called `gtkada-config` is automatically -created when you build GtkAda. This script is copied in a subdirectory -:file:`bin/` in the installation directory. - -The easiest and recommended way to build a GtkAda application is to -use the `gnatmake` program distributed with GNAT, that takes care of -all the dependencies for you. Use the `gtkada-config` to specify -where GtkAda and gtk+ libraries have been installed:: - - > gnatmake `gtkada-config` - -Note the use of back-ticks around gtkada-config, which force the shell to -evaluate the script and put the output on the command line. - -However, on complex systems, gnatmake might not be enough. Users frequently -like to create `Makefile`s. The script `gtkada-config` remains -useful in that case, since you can call it from your Makefile (same -syntax as above with the back-ticks) to create variables like FLAGS and -LIBS. See the switches of `gtkada-config` below for more information. - -The script `gtkada-config` understands the following command line -switches (chosen to be compatible with the ones set by `gtk-config`): - -* `--cflags`: Output only the compiler flags, i.e the include - directories where the GtkAda spec files are found. This should be used - if you only want to compile your files, but do not want to bind or link - them. -* `--libs`: Output only the switches for the linker. This lists - the directories where all the GtkAda, gtk+, and dependant libraries are - found. For instance, if GtkAda was compiled with support for OpenGL, - the OpenGL libraries will automatically be present. -* `--static`: Forces linking with the static gtkada library. This - option will still use the dynamic gtk+ libraries. - -Windows systems -^^^^^^^^^^^^^^^ - -Things are somewhat easier on Windows systems. You don't have access to the -`gtkada-config` script. On the other hand you also don't -have to specify which libraries to use or where to find them. - -The only thing you should specify on the `gnatmake` command line is -where the GtkAda spec files are found, as in:: - - > gnatmake -Ic:\\gtkada\\include\\gtkada - -if GtkAda was installed under :file:`c:\\gtkada`. - -Architecture of the toolkit -=========================== - -The gtk+ toolkit has been designed from the beginning to be portable. It is -made of two libraries: `gtk` and `gdk`. In addition, GtkAda provides binding -to three supporting libraries: `pango`, `cairo` and `glib`. - -`Glib` is a non-graphical library that includes support for lists, h-tables, -threads, and so on. It is a highly optimized, platform-independent library. -Since most of its contents are already available in Ada (or in the -:file:`GNAT.*` hierarchy in the GNAT distribution), GtkAda does not include a -complete binding to it. For the parts of `Glib` that we do depend on, we -provide :file:`Glib.*` packages in the GtkAda distribution. - -`Gdk` is the platform-dependent part of gtk+, and so there are different -implementations (for instance, for Win32 and X11 based systems) that implement -a common API. `Gdk` provides basic graphical functionality to, for instance, -draw lines, rectangles and pixmaps on the screen, as well as manipulate colors. -The :file:`Gdk.*` packages provide a full Ada interface to `Gdk`. - -`Pango` is a modern font handling system. Bindings in GtkAda gives access to -the API to manipulate font descriptions and text attributes. - -`Cairo` is the low-level 2D drawing library used by `Gdk` to render widgets. -`Cairo` provides a rich set of vector drawing features, supporting -anti-aliasing, transparency, and 2D matrix transformations.The :file:`Cairo.*` -packages provide a complete Ada binding to `Cairo`. - -`Gtk` is the top level library. It is platform independent, and does all its -drawing through calls to Gdk and Cairo. This is where the high-level widgets -are defined. It also includes support for callbacks. Its equivalent in the -GtkAda libraries are the :file:`Gtk.*` packages. It is made of a fully -object-oriented hierarchy of widgets (see :ref:`Widgets_Hierarchy`). - -Since your application only calls GtkAda, it is fully portable, and can be -recompiled as-is on other platforms:: - - +------------------------------- ----------+ - | Your Application | - +------------------------------------------+ - | GtkAda | - | +-----------------+ | - | | GTK | | - | +----+-----------------+----+ | - | | GDK | | - | +----+------+ +----------+----+ - | | Pango | | Cairo | - +----+-----------+----+----+---------------+ - | GLIB | X-Window / Win32 | - +---------------------+--------------------+ - -Although the packages have been evolving a lot since the first versions of -GtkAda, the specs are stabilizing now. We will try as much as possible to -provide backward compatibility whenever possible. - -Since GtkAda is based on gtk+ we have tried to stay as close to it as possible -while using high-level features of the Ada language. It is thus relatively easy -to convert external examples from C to Ada. - -We have tried to adopt a consistent naming scheme for Ada identifiers: - -* The widget names are the same as in C, except that an underscore - sign (_) is used to separate words, e.g:: - - Gtk_Button Gtk_Color_Selection_Dialog - -* Because of a clash between Ada keywords and widget names, there - are two exceptions to the above general rule:: - - Gtk.GEntry.Gtk_Entry Gtk.GRange.Gtk_Range - -* The function names are the same as in C, ignoring the leading - `gtk_` and the widget name, e.g:: - - gtk_misc_set_padding => Gtk.Misc.Set_Padding - gtk_toggle_button_set_state => Gtk.Toggle_Button.Set_State - -* Most enum types have been grouped in the :file:`gtk-enums.ads` file - -* Some features have been implemented as generic packages. These - are the timeout functions (see `Gtk.Main.Timeout`), the idle functions - (see `Gtk.Main.Idle`), and the data that can be attached to any object - (see `Gtk.Object.User_Data`). Type safety is ensured through these - generic packages. - -* Callbacks were the most difficult thing to interface with. These - are extremely powerful and versatile, since the callbacks can have any - number of arguments and may or may not return values. These are once - again implemented as generic packages, that require more explanation - (:ref:`Signal_handling`). - -**WARNING:** all the generic packages allocate some memory for internal -structures, and call internal functions. This memory is freed by gtk -itself, by calling some Ada functions. Therefore the generic packages -have to be instantiated at library level, not inside a subprogram, so -that the functions are still defined when gtk needs to free the memory. - -**WARNING** Before any other call to the GtkAda library is performed, -`Gtk.Main.Init` must be invoked first. Most of the time, this -procedure is invoked from the main procedure of the application, in -which case no use of GtkAda can be done during the application -elaboration. - -Widgets Hierarchy -================= - -All widgets in `GtkAda` are implemented as tagged types. They all have a common -ancestor, called `Gtk.Object.Gtk_Object`. All visual objects have a common -ancestor called `Gtk.Widget.Gtk_Widget`. - -The following table describes the list of objects and their inheritance tree. -As usual with tagged types, all the primitive subprograms defined for a type -are also known for all of its children. This is a very powerful way to create -new widgets, as will be explained in :ref:`Creating_new_widgets_in_Ada`. - -Although gtk+ was written in C its design is object-oriented, and thus GtkAda -has the same structure. The following rules have been applied to convert from C -names to Ada names: a widget `Gtk_XXX` is defined in the Ada package `Gtk.XXX`, -in the file :file:`gtk-xxx.ads`. This follows the GNAT convention for file -names. For instance, the `Gtk_Text` widget is defined in the package -`Gtk.Text`, in the file :file:`gtk-text.ads`. - -Note also that most of the documentation for GtkAda is found in the spec files -themselves. - -It is important to be familiar with this hierarchy. It is then easier to know -how to build and organize your windows. Most widgets are demonstrated in the -:file:`testgtk/` directory in the GtkAda distribution. - -.. _Widgets_Hierarchy: -.. figure:: hierarchy.jpg - - Widgets Hierarchy diff -Nru libgtkada-2.24.4/docs/gtkada_ug/glade.rst libgtkada-2.24.4dfsg/docs/gtkada_ug/glade.rst --- libgtkada-2.24.4/docs/gtkada_ug/glade.rst 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_ug/glade.rst 1970-01-01 00:00:00.000000000 +0000 @@ -1,45 +0,0 @@ -.. _Support_for_Glade,_the_Gtk_GUI_builder: - -************************************** -Support for Glade, the Gtk GUI builder -************************************** - -Introduction -============ - -GtkAda now comes with support for the GUI builder Glade-3. Glade-3 provides a -graphical interface for designing windows and dialogs. The interface -description is saved in an XML file which can be loaded at run-time by your -GtkAda application. With this approach, there is no need to write or generate -Ada code to describe the interface, all is needed is to write the callbacks for -various actions. - -Launching Glade -=============== - -Under UNIX and Linux, Glade is invoked by the command-line script `glade-3` -which is located in the `bin` directory of your GtkAda installation. Under -Windows, Glade is invoked by clicking on the executable `glade-3.exe`, also -located in the `bin` directory of your GtkAda installation. - -Building your interface -======================= - -In Glade-3 the interface is done by point-and-clicking. The first step is to -create one or more toplevel window and then placing widgets in these windows. - -Detailed tutorials can be found at: `http://live.gnome.org/Glade/Tutorials -`_ - -In the Preferences for your project (menu Edit->Preferences), make sure that -the preference "Project file format" is set to "GtkBuilder". - -Using the interface in your application. -======================================== - -Once the interface is built and saved in an XML file, you can use it in your -GtkAda application. You will need to use objects defined in the package -`Gtkada.Builder` to load the interface file and to connect subprograms defined -in your application to signals emitted by the interface. See the detailed -explanations and examples in `gtkada-builder.ads` - diff -Nru libgtkada-2.24.4/docs/gtkada_ug/hierarchical_composition.rst libgtkada-2.24.4dfsg/docs/gtkada_ug/hierarchical_composition.rst --- libgtkada-2.24.4/docs/gtkada_ug/hierarchical_composition.rst 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_ug/hierarchical_composition.rst 1970-01-01 00:00:00.000000000 +0000 @@ -1,41 +0,0 @@ -************************************ -Hierarchical composition of a window -************************************ - -Interfaces in GtkAda are built in layers, as in Motif. For instance, a typical -dialog is basically a Gtk_Window, that in turn contains a Gtk_Box, itself -divided into two boxes and a Gtk_Separator, and so on. - -.. image:: boxes.png - -Altough this may seem more complicated than setting absolute positions for -children, this is the simplest way to automatically handle the resizing of -windows. Each container that creates a layer knows how it should behave when it -is resized, and how it should move its children. Thus almost everything is -handled automatically, and you don't have to do anything to support resizing. - -If you really insist on moving the children to a specific position, look at the -`Gtk_Fixed` widget and its demo in :file:`testgtk/`. But you really should not -use this container, since you will then have to do everything by hand. - -All the containers are demonstrated in :file:`testgtk/`, in the GtkAda -distribution. This should help you understand all the parameters associated -with the containers. It is very important to master these containers, since -using the appropriate containers will make building interfaces a lot easier. - -If you look at the widget hierarchy (:ref:`Widgets_Hierarchy`), you can see -that a Gtk_Window inherits from Gtk_Bin, and thus can have only one child. In -most cases, the child of a Gtk_Window will thus be a Gtk_Box, which can have -any number of children. - -Some widgets in GtkAda itself are built using this strategy, from the very -basic `Gtk_Button` to the more advanced `Gtk_File_Selection`. - -For example, by default a Gtk_Button contains a Gtk_Label, which displays the -text of the button (like 'OK' or 'Cancel'). - -However, it is easy to put a pixmap in a button instead. When you create the -button, do not specify any label. Thus, no child will be added, and you can -give it your own. See :file:`testgtk/create_pixmap.adb` for an example on how -to do that. - Binary files /tmp/LH_Mj8Vf5X/libgtkada-2.24.4/docs/gtkada_ug/hierarchy.jpg and /tmp/9xYs3jcqkX/libgtkada-2.24.4dfsg/docs/gtkada_ug/hierarchy.jpg differ diff -Nru libgtkada-2.24.4/docs/gtkada_ug/index.rst libgtkada-2.24.4dfsg/docs/gtkada_ug/index.rst --- libgtkada-2.24.4/docs/gtkada_ug/index.rst 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_ug/index.rst 1970-01-01 00:00:00.000000000 +0000 @@ -1,44 +0,0 @@ -GtkAda User's Guide -=================== - -.. toctree:: - :numbered: - :maxdepth: 3 - - intro - getting_started - hierarchical_composition - signals - applications - resource_files - memory - tasking - external_events - object_oriented - glade - new_widgets - debugging - reporting_bugs - bibliography - license - - -Copyright C 1998-2000, Emmanuel Briot, Joel Brobecker, Arnaud Charlet - -Copyright C 2000-2013, AdaCore - -This document is free; 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 document 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., -51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. - -A copy of the license is included in the section entitled 'License'. diff -Nru libgtkada-2.24.4/docs/gtkada_ug/intro.rst libgtkada-2.24.4dfsg/docs/gtkada_ug/intro.rst --- libgtkada-2.24.4/docs/gtkada_ug/intro.rst 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_ug/intro.rst 1970-01-01 00:00:00.000000000 +0000 @@ -1,70 +0,0 @@ -****************************** -Introduction: What is GtkAda ? -****************************** - -GtkAda is a high-level portable graphical toolkit, based on the gtk+ toolkit, -one of the official GNU toolkits. It makes it easy to create portable user -interfaces for multiple platforms, including most platforms that have a X11 -server and Win32 platforms. - -Although it is based on a C library, GtkAda uses some advanced Ada features -such as tagged types, generic packages, access to subprograms, and exceptions -to make it easier to use and design interfaces. For efficiency reasons, it -does not use controlled types, but takes care of all the memory management for -you in other ways. - -As a result, this library provides a *secure*, *easy to use* and *extensible* -toolkit. - -Compared to the C library, GtkAda provides type safety (especially in the -callbacks area), and object-oriented programming. As opposed to common -knowledge, it requires *less* type casting than with in C. Its efficiency is -about the same as the C library through the use of inline subprograms. - -GtkAda comes with a complete integration to the graphical interface builder -`Glad`. This makes it even easier to develop interfaces, since you just have to -click to create a description of the window and all the dialogs. Ada code can -simply import that description to bring the windows to life. - -Under some platforms, GtkAda also provides a bridge to use OpenGL, with which -you can create graphical applications that display 3D graphics, and display -them in a GtkAda window, as with any other 2D graphics. This manual does not -document OpenGL at all, see any book on OpenGL, or the specification that came -with your OpenGL library, for more information. - -The scheme used for GtkAda's version numbers is the following: the major and -minor version number is the same as for the underlying gtk+ library (e.g 2.24). -The micro version number depends on GtkAda's release number. - -This toolkit was tested on the following systems: - -* GNU Linux/x86 -* GNU Linux/x86-64 -* GNU Linux/ia64 -* Solaris/sparc -* Solaris/sparc64 -* Windows XP/Vista/7 - -with the latest version of the `GNAT` compiler, developed and supported by -Ada Core Technologies (see `http://www.adacore.com `_). - -This version of GtkAda is known to be compatible with `gtk+` **2.24.8**. -This release may or may not be compatible with older versions of -gtk+. - -This document does not describe all the widgets available in GtkAda, nor does -it try to explain all the subprograms. The GtkAda Reference Manual provides -this documentation instead, as well as the GtkAda sources spec files -themselves, whose extension is :file:`.ads`. - -No complete example is provided in this documentation. Instead, please refer to -the examples that you can find in the :file:`testgtk/` and :file:`examples/` -directory in the GtkAda distribution, since these are more up-to-date (and more -extensive). They are heavily commented, and are likely to contain a lot of -information that you might find interesting. - -If you are interested in getting support for GtkAda--including priority bug -fixes, early releases, help in using the toolkit, help in designing your -interface, and on site consulting--please contact AdaCore -(`mailto:sales@adacore.com `_). - diff -Nru libgtkada-2.24.4/docs/gtkada_ug/license.rst libgtkada-2.24.4dfsg/docs/gtkada_ug/license.rst --- libgtkada-2.24.4/docs/gtkada_ug/license.rst 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_ug/license.rst 1970-01-01 00:00:00.000000000 +0000 @@ -1,6 +0,0 @@ -******* -License -******* - -.. include:: ../../COPYING - :literal: diff -Nru libgtkada-2.24.4/docs/gtkada_ug/Makefile libgtkada-2.24.4dfsg/docs/gtkada_ug/Makefile --- libgtkada-2.24.4/docs/gtkada_ug/Makefile 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_ug/Makefile 1970-01-01 00:00:00.000000000 +0000 @@ -1,130 +0,0 @@ -# Makefile for Sphinx documentation -# - -# You can set these variables from the command line. -SPHINXOPTS = -SPHINXBUILD = sphinx-build -PAPER = -BUILDDIR = _build - -# Internal variables. -PAPEROPT_a4 = -D latex_paper_size=a4 -PAPEROPT_letter = -D latex_paper_size=letter -ALLSPHINXOPTS = -d $(BUILDDIR)/doctrees $(PAPEROPT_$(PAPER)) $(SPHINXOPTS) . - -.PHONY: help clean html dirhtml singlehtml pickle json htmlhelp qthelp devhelp epub latex latexpdf text man changes linkcheck doctest - -help: - @echo "Please use \`make ' where is one of" - @echo " html to make standalone HTML files" - @echo " dirhtml to make HTML files named index.html in directories" - @echo " singlehtml to make a single large HTML file" - @echo " pickle to make pickle files" - @echo " json to make JSON files" - @echo " htmlhelp to make HTML files and a HTML help project" - @echo " qthelp to make HTML files and a qthelp project" - @echo " devhelp to make HTML files and a Devhelp project" - @echo " epub to make an epub" - @echo " latex to make LaTeX files, you can set PAPER=a4 or PAPER=letter" - @echo " latexpdf to make LaTeX files and run them through pdflatex" - @echo " text to make text files" - @echo " man to make manual pages" - @echo " changes to make an overview of all changed/added/deprecated items" - @echo " linkcheck to check all external links for integrity" - @echo " doctest to run all doctests embedded in the documentation (if enabled)" - -clean: - -rm -rf $(BUILDDIR)/* - -html: - $(SPHINXBUILD) -b html $(ALLSPHINXOPTS) $(BUILDDIR)/html - @echo - @echo "Build finished. The HTML pages are in $(BUILDDIR)/html." - -dirhtml: - $(SPHINXBUILD) -b dirhtml $(ALLSPHINXOPTS) $(BUILDDIR)/dirhtml - @echo - @echo "Build finished. The HTML pages are in $(BUILDDIR)/dirhtml." - -singlehtml: - $(SPHINXBUILD) -b singlehtml $(ALLSPHINXOPTS) $(BUILDDIR)/singlehtml - @echo - @echo "Build finished. The HTML page is in $(BUILDDIR)/singlehtml." - -pickle: - $(SPHINXBUILD) -b pickle $(ALLSPHINXOPTS) $(BUILDDIR)/pickle - @echo - @echo "Build finished; now you can process the pickle files." - -json: - $(SPHINXBUILD) -b json $(ALLSPHINXOPTS) $(BUILDDIR)/json - @echo - @echo "Build finished; now you can process the JSON files." - -htmlhelp: - $(SPHINXBUILD) -b htmlhelp $(ALLSPHINXOPTS) $(BUILDDIR)/htmlhelp - @echo - @echo "Build finished; now you can run HTML Help Workshop with the" \ - ".hhp project file in $(BUILDDIR)/htmlhelp." - -qthelp: - $(SPHINXBUILD) -b qthelp $(ALLSPHINXOPTS) $(BUILDDIR)/qthelp - @echo - @echo "Build finished; now you can run "qcollectiongenerator" with the" \ - ".qhcp project file in $(BUILDDIR)/qthelp, like this:" - @echo "# qcollectiongenerator $(BUILDDIR)/qthelp/GtkAda.qhcp" - @echo "To view the help file:" - @echo "# assistant -collectionFile $(BUILDDIR)/qthelp/GtkAda.qhc" - -devhelp: - $(SPHINXBUILD) -b devhelp $(ALLSPHINXOPTS) $(BUILDDIR)/devhelp - @echo - @echo "Build finished." - @echo "To view the help file:" - @echo "# mkdir -p $$HOME/.local/share/devhelp/GtkAda" - @echo "# ln -s $(BUILDDIR)/devhelp $$HOME/.local/share/devhelp/GtkAda" - @echo "# devhelp" - -epub: - $(SPHINXBUILD) -b epub $(ALLSPHINXOPTS) $(BUILDDIR)/epub - @echo - @echo "Build finished. The epub file is in $(BUILDDIR)/epub." - -latex: - $(SPHINXBUILD) -b latex $(ALLSPHINXOPTS) $(BUILDDIR)/latex - @echo - @echo "Build finished; the LaTeX files are in $(BUILDDIR)/latex." - @echo "Run \`make' in that directory to run these through (pdf)latex" \ - "(use \`make latexpdf' here to do that automatically)." - -latexpdf: - $(SPHINXBUILD) -b latex $(ALLSPHINXOPTS) $(BUILDDIR)/latex - @echo "Running LaTeX files through pdflatex..." - make -C $(BUILDDIR)/latex all-pdf - @echo "pdflatex finished; the PDF files are in $(BUILDDIR)/latex." - -text: - $(SPHINXBUILD) -b text $(ALLSPHINXOPTS) $(BUILDDIR)/text - @echo - @echo "Build finished. The text files are in $(BUILDDIR)/text." - -man: - $(SPHINXBUILD) -b man $(ALLSPHINXOPTS) $(BUILDDIR)/man - @echo - @echo "Build finished. The manual pages are in $(BUILDDIR)/man." - -changes: - $(SPHINXBUILD) -b changes $(ALLSPHINXOPTS) $(BUILDDIR)/changes - @echo - @echo "The overview file is in $(BUILDDIR)/changes." - -linkcheck: - $(SPHINXBUILD) -b linkcheck $(ALLSPHINXOPTS) $(BUILDDIR)/linkcheck - @echo - @echo "Link check complete; look for any errors in the above output " \ - "or in $(BUILDDIR)/linkcheck/output.txt." - -doctest: - $(SPHINXBUILD) -b doctest $(ALLSPHINXOPTS) $(BUILDDIR)/doctest - @echo "Testing of doctests in the sources finished, look at the " \ - "results in $(BUILDDIR)/doctest/output.txt." diff -Nru libgtkada-2.24.4/docs/gtkada_ug/memory.rst libgtkada-2.24.4dfsg/docs/gtkada_ug/memory.rst --- libgtkada-2.24.4/docs/gtkada_ug/memory.rst 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_ug/memory.rst 1970-01-01 00:00:00.000000000 +0000 @@ -1,24 +0,0 @@ -.. _Memory_management: - -***************** -Memory management -***************** - -GtkAda takes care of almost all the memory management for you. Here is a brief -overview of how this works, you'll have to check the sources if you want more -detailed information. Gtk+ (the C library) does its own memory management -through reference counting, i.e. any widget is destroyed when it is no longer -referenced anywhere in the application. - -In GtkAda itself, a 'user_data' is associated with each object allocated by a -`Gtk_New` procedure. A 'destroy' callback is also associated, to be called when -the object to which the user_data belongs is destroyed. Thus, every time a C -object is destroyed, the equivalent Ada structure is also destroyed (see -`Gtk.Free_User_Data`). - -Concerning widgets containing children, every container holds a reference to -its children, whose reference counting is thus different from 0 (and generally -1). When the container is destroyed, the reference of all its children and -grand-children is decremented, and they are destroyed in turn if needed. So the -deallocation of a widget hierarchy is also performed automatically. - diff -Nru libgtkada-2.24.4/docs/gtkada_ug/new_widgets.rst libgtkada-2.24.4dfsg/docs/gtkada_ug/new_widgets.rst --- libgtkada-2.24.4/docs/gtkada_ug/new_widgets.rst 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_ug/new_widgets.rst 1970-01-01 00:00:00.000000000 +0000 @@ -1,31 +0,0 @@ -.. _Binding_new_widgets: - -******************* -Binding new widgets -******************* - -GtkAda comes with a Perl script to help you create a binding to a C widget -(this is the script we have used ourselves). This will not fully automate the -process, although it should really speed things up. You will probably need less -than 15 min to create a new binding once you will get used to the way GtkAda -works. Note that your C file should have the same format as is used by Gtk+ -itself. - -To get started on a new binding, launch the script :file:`contrib/binding.pl` -as follows:: - - $ touch gtk-button.ads - $ binding.pl ../include/gtk/gtkbutton.h > temporary - -This dumps several kind of information on the standard output: - -* List of subprograms defined in the :file:`.h` file. Their - documentation is also added, since binding.pl will parse the :file:`.c` file - as appropriate. -* List of properties and signals for the widget -* Tentative bodies for the subprograms - These will often need adjustements, but provide a good start - -You can also use this script to update existing bindings:: - - $ binding.pl ../include/gtk/*.h diff -Nru libgtkada-2.24.4/docs/gtkada_ug/object_oriented.rst libgtkada-2.24.4dfsg/docs/gtkada_ug/object_oriented.rst --- libgtkada-2.24.4/docs/gtkada_ug/object_oriented.rst 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_ug/object_oriented.rst 1970-01-01 00:00:00.000000000 +0000 @@ -1,301 +0,0 @@ -.. _Object-oriented_features: - -************************ -Object-oriented features -************************ - -GtkAda has been designed from the beginning to provide a full object -oriented layer over gtk+. This means that features such as type -extension and dynamic dispatching are made available through the -standard Ada language. - -This section will describe how things work, how you can extend existing -widgets, and even how to create your own widgets. - -.. _General_description_of_the_tagged_types: - -General description of the tagged types -======================================= - - -Why should I use object-oriented programming ? ----------------------------------------------- - -Every widget in the `Gtk.*` packages in GtkAda is a tagged type with a number -of primitive subprograms that are inherited by all of its children. Tagged -types in Ada make it possible to perform safe, automatic type conversions -without using explicit casts (such as is necessary when coding in C). It is -also possible for the compiler to verify whether or not these type conversions -are valid. Most errors are found at compile time, which leads to a safer and -more robust application. - -As a further example, imagine a table that has been populated by some widgets. -It is possible to query for this table's children and operate on these widgets -without knowing details about their type, their creator, and so on--the tagged -objects that are returned contain all the information necessary. It becomes -possible to use dynamic dispatching without ever having to cast to a known -type. - -Modifying a standard widget to draw itself differently or display different -data is easy using tagged types. Simply create a new type that extends the -current one (see the section :ref:`Using_tagged_types_to_extend_Gtk_widgets` -below. - -Creating a new reusable widget from scratch is also possible. Create a new -tagged type and specify properties of the widget--such as how it is to draw -itself and how it should react to events. See the section -:ref:`Creating_new_widgets_in_Ada` below. - -Object oriented programming through the use of Ada tagged types makes GtkAda a -very powerful, flexible, and safe tool for designing graphical interfaces. - -Type conversions from C to Ada widgets --------------------------------------- - -There are three kinds of widgets that you can use with GtkAda: - -* *Ada widgets*: - These are widgets that are written directly in Ada, using the object - oriented features of GtkAda - -* *Standard widgets*: - These are the widgets that are part of the standard gtk+ and GtkAda - distributions. This include all the basic widgets you need to build - advanced interfaces. - -* *third party C widgets* - These are widgets that were created in C, and for which you (or someone else) - created an Ada binding. This is most probably the kind of widgets you will - have if you want to use third party widgets. - -GtkAda will always be able to find and/or create a valid tagged type in the -first two cases, no matter if you explicitly created the widget or if it was -created automatically by gtk+. For instance, if you created a widget in Ada, -put it in a table, and later on extracted it from the table, then you will -still have the same widget. - -In the third case (third party C widgets), GtkAda is not, by default, able to -create the corresponding Ada type. - -The case of third party C widgets is a little bit trickier. Since GtkAda does -not know anything about them when it is built, it can't magically convert the C -widgets to Ada widgets. This is your job to teach GtkAda how to do the -conversion. - -We thus provide a 'hook' function which you need to modify. This function is -defined in the package **Glib.Type_Conversion**. This function takes a string -with the name of the C widget (ex/ "GtkButton"), and should return a newly -allocated pointer. If you don't know this type either, simply return **null**. - -.. _Using_tagged_types_to_extend_Gtk_widgets: - -Using tagged types to extend Gtk widgets -======================================== - -.. highlight:: ada - -With this toolkit, it's possible to associate your own data with existing -widgets simply by creating new types. This section will show you a simple -example, but you should rather read the source code in the :file:`testgtk/` -directory where we used this feature instead of using `user_data` as is used in -the C version::: - - type My_Button_Record is new Gtk_Button_Record with record - -- whatever data you want to associate with your button - end record; - type My_Button is access all My_Button_Record'Class; - -With the above statements, your new type is defined. Every function -available for `Gtk_Button` is also available for `My_Button`. -Of course, as with every tagged type in Ada, you can create your own -primitive functions with the following prototype:: - - procedure My_Primitive_Func (Myb : access My_Button_Record); - -To instanciate an object of type `My_Button` in your application, do -the following:: - - declare - Myb : My_Button; - begin - Myb := new My_Button_Record; - Initialize (Myb); -- from Gtk.Button - end; - -The first line creates the Ada type, whereas the `Initialize` call -actually creates the C widget and associates it with the Ada type. - -.. _Creating_new_widgets_in_Ada: - -Creating new widgets in Ada -=========================== - -With GtkAda, you can create widgets directly in Ada. These new -widgets can be used directly, as if they were part of gtk itself. - -Creating new widgets is a way to create reuseable components. You can apply to -them the same functions as you would for any other widget, such as `Show`, -`Hide`, and so on. - -This section will explain how to create two types of widgets: composite widgets -and widgets created from scratch. Two examples are provided with GtkAda, in the -directories :file:`examples/composite_widget` and :file:`examples/base_widget`. -Please also refer to the gtk+ tutorial, which describes the basic mechanisms -that you need to know to create a widget. - -.. _Creating_composite_widgets: - -Creating composite widgets --------------------------- - -A composite widget is a widget that does not do much by itself. Rather, this is -a collection of subwidgets grouped into a more general entity. For instance, -among the standard widgets, `Gtk_File_Selection` and `Gtk_Font_Selection` -belong to this category. - -The good news is that there is nothing special to know. Just create a new -tagged type, extending one of the standard widgets (or even another of your own -widgets), provide a `Gtk_New` function that allocates memory for this widget, -and call the `Initialize` function that does the actual creation of the widget -and the subwidgets. There is only one thing to do: `Initialize` should call -the parent class's `Initialize` function, to create the underlying C widget. - -The example directory :file:`examples/composite_widget` reimplements the -`Gtk_Dialog` widget as written in C by the creators of gtk+. - -.. _Creating_widgets_from_scratch: - -Creating widgets from scratch ------------------------------ - -Creating a working widget from scratch requires a certain level of familiary -with the GtkAda signal mechanism and entails much work with low level signals. -This is therefore not an activity recommended for novice GtkAda programmers. - -Creating a widget from scratch is what you want to do if your widget should be -drawn in a special way, should create and emit new signals, or otherwise -perform differently than pre-existing widgets. The example we give in -:file:`examples/base_widget` is a small target on which the user can click, and -that sends one of two signals: "bullseye" or "missed", depending on where the -user has clicked. - -See also the example in :file:`examples/tutorial/gtkdial` for a more complex -widget, that implements a gauge where the user can move the arrow to select -a new value. - -Once again, the only two functions that you must create are `Gtk_New` and -`Initialize`. This time, `Initialize` has to do two things:: - - Parent_Package.Initialize (Widget); - - -- The above line calls the Initialize function from the parent. - -- This creates the underlying C widget, which we are going to - -- modify with the following call: - - Gtk.Object.Initialize_Class_Record - (Widget, Signals, Class_Record); - -- This initializes the "class record" for the widget and - -- creates the signals. - - -In the above example, the new part is the second call. It takes three or four -arguments: - -* `Widget` - This is the widget that you want to initialize - -* `Signals` - This is an array of string access containing the name of the signals - you want to create. For instance, you could create Signals with:: - - Signals : Gtkada.Types.Chars_Ptr_Array := "bullseye" + "missed"; - - This will create two signals, named "bullseye" and "missed", whose callbacks' - arguments can be specified with the fourth parameter. - -* `Class_Record` - Every widget in C is associated with two records. The first one, which exists - only once per widget type, is the 'class record'. It contains the list of - signals that are known by this widget type, the list of default callbacks for - the signals, ...; the second record is an 'instance record', which contains - data specific to a particular instance. - - In GtkAda, the 'instance record' is simply your tagged type and its fields. - The call to `Initialize_Class_Record` is provided to initialize the - 'class record'. As we said, there should be only one such record per widget - type. This parameter 'Class_Record' will point to this records, once it is - created, and will be reused for every instanciation of the widget. - -* `Parameters` - This fourth argument is in fact optional, and is used to specify which - kind of parameters each new signal is expecting. - By default (ie if you don't give any value for this parameter), all the - signals won't expect any argument, except of course a possible user_data. - However, you can decide for instance that the first signal ("bullseye") should - in fact take a second argument (say a Gint), and that "missed" will take - two parameters (two Gints). - - `Parameters` should thus contain a value of:: - - (1 => (1 => Gtk_Type_Int, 2 => Gtk_Type_None), - 2 => (1 => Gtk_Type_Int, 2 => Gtk_Type_Int)); - - Due to the way arrays are handled in Ada, each component must have the same - number of signals. However, if you specify a type of `Gtk_Type_None`, this - will in fact be considered as no argument. Thus, the first signal above has - only one parameter. - - Note also that to be able to emit a signal such a the second one, ie with - multiple arguments, you will have to extend the packages defined in - Gtk.Handlers. By default, the provided packages can only emit up to one - argument (and only for a few specific types). Creating your own - `Emit_By_Name` subprograms should not be hard if you look at what is done - in :file:`gtk-marshallers.adb`. Basically, something like:: - - procedure Emit_With_Two_Ints - (Object : access Widget_Type'Class; - Name : String; - Arg1 : Gint; - Arg2 : Gint); - pragma Import (C, Emit_With_Two_Ints, - "gtk_signal_emit_by_name"); - - Emit_With_Two_Ints (Gtk.Get_Object (Your_Widget), - "missed" & ASCII.NUL, 1, 2); - - will emit the "missed" signal with the two parameters 1 and 2. - -Then of course `Initialize` should set up some signal handlers for -the functions you want to redefine. -Three signals are especially useful: - - -* "size_request" - - This callback is passed one parameter, as in :: - - procedure Size_Request - (Widget : access My_Widget_Record; - Requisition : in out Gtk.Widget.Gtk_Requisition); - - This function should modify Requisition to specify the widget's ideal - size. This might not be the exact size that will be set, since some - containers might decide to enlarge or to shrink it. - -* "size_allocate" - - This callback is called every time the widget is moved in its parent - window, or it is resized. It is passed one paramater, as in :: - - procedure Size_Allocate - (Widget : access My_Widget_Record; - Allocation : in out Gtk.Widget.Gtk_Allocation) - - This function should take the responsability to move the widget, using - for instance `Gdk.Window.Move_Resize`. - -* "expose_event" - - This callback is called every time the widget needs to be redrawn. It - is passed one parameter, the area to be redrawn (to speed things up, you - don't need to redraw the whole widget, just this area). diff -Nru libgtkada-2.24.4/docs/gtkada_ug/reporting_bugs.rst libgtkada-2.24.4dfsg/docs/gtkada_ug/reporting_bugs.rst --- libgtkada-2.24.4/docs/gtkada_ug/reporting_bugs.rst 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_ug/reporting_bugs.rst 1970-01-01 00:00:00.000000000 +0000 @@ -1,49 +0,0 @@ -.. _How_to_report_bugs: - -****************** -How to report bugs -****************** - -GtkAda is a mature, stable toolkit that is heavily and widely used on a variety -of platforms. We test GtkAda using an Ada version of the :file:`testgtk.c` -file found in the gtk+ distribution, as well as by generating a significant -number of interfaces using the GUI builder and Gate. For code examples that -demonstrate the use of this toolkit, look within the :file:`testgtk/` -directory. - -There are two kinds of problems you can encounter: - -* If the gtk library itself was compiled with warnings turned on, you may get - some warning messages, mainly because of types problems. These warnings - should not appear, as we have tried to be as type safe as possible in this - package. To know exactly where the problem is, compile your program with - debug information, run gdb, and set a breakpoint on the function `g_log`. - Then run your program as usual, using the `run` command. Then send us the - result of the `where` command. Here is a summary:: - - $ gnatmake -f -g `gtkada-config` - $ gdb - (gdb) break main - (gdb) run - (gdb) break g_log - (gdb) continue - .... - (gdb) where - -* In some (hopefully) rare cases, you can even get a segmentation - fault within gtk. That means there is definitly something wrong either - in your program or in the toolkit. Please check your program carefully - and, if you think this is a problem in GtkAda itself, send us an e-mail. - -If you are a supported user of GNAT, send mail to `mailto:report@gnat.com -`_ to report errors, otherwise send mail to the GtkAda -list (`mailto:gtkada@lists.adacore.com `_) -explaining exactly what your are doing, what is the expected result and -what you actually get. Please include the required sources to reproduce the -problem, in a format usable by `gnatchop` (basically, insert all the -required sources at the end of the mail). Please try to provide as small as -possible a subset of your sources. - -Of course, we will welcome any patch you can provide, so that this toolkit -may be as useful as possible. - diff -Nru libgtkada-2.24.4/docs/gtkada_ug/resource_files.rst libgtkada-2.24.4dfsg/docs/gtkada_ug/resource_files.rst --- libgtkada-2.24.4/docs/gtkada_ug/resource_files.rst 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_ug/resource_files.rst 1970-01-01 00:00:00.000000000 +0000 @@ -1,52 +0,0 @@ -.. _Resource_files: - -************** -Resource files -************** - -Resource files let you parametrize aspects of the widgets in a GtkAda -application without having to recompile it. - -A resource file needs to be loaded (`Gtk.Rc.Parse`) `before` setting the -corresponding window. - -In this file, it is possible to specify visual characteristics of widgets, such -as their colors and fonts. Under X, the `xfontsel` command allows you to -easily select a font. The FontSelection widget is also a simple way to select -fonts. - -Here is an example of a resource file:: - - # application.rc - # - # resource file for "Application" - - # Buttons style - style "button" - { - # BackGround Colors - # Red Green Blue - bg[PRELIGHT] = { 0.0, 0.75, 0.0 } # Green when the mouse is on - # the button - bg[ACTIVE] = { 0.75, 0.0, 0.0 } # Red on click - # ForeGround Colors - # Red Green Blue - fg[PRELIGHT] = { 1.0, 1.0, 1.0 } # White when the mouse is on - # the button - fg[ACTIVE] = { 1.0, 1.0, 1.0 } # White on click - } - - # All the buttons will have the style "button" - widget_class "*GtkButton*" style "button" - - # Text style - style "text" - { - font = "-adobe-courier-medium-r-normal-*-15-*-*-*-*-*-*-*" - text[NORMAL] = { 0.0, 0.0, 0.0 } # black - fg[NORMAL] = { 0.0, 0.0, 0.0 } # black - base[NORMAL] = { 1.0, 1.0, 1.0 } # white : background color - } - - # All Gtk_Text will have the "text" style - widget_class "*GtkText" style "text" diff -Nru libgtkada-2.24.4/docs/gtkada_ug/signals.rst libgtkada-2.24.4dfsg/docs/gtkada_ug/signals.rst --- libgtkada-2.24.4/docs/gtkada_ug/signals.rst 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_ug/signals.rst 1970-01-01 00:00:00.000000000 +0000 @@ -1,353 +0,0 @@ -.. _Signal_handling: - -*************** -Signal handling -*************** - -In GtkAda, the interaction between the interface and the core application is -done via signals. Most user actions on the graphical application trigger some -signals to be @samp{emitted}. - -A signal is a message that an object wants to broadcast. It is identified by -its name, and each one is associated with certain events which happen during -the widget's lifetime. For instance, when the user clicks on a Gtk_Button, a -'clicked' signal is emitted by that button. More examples of signals can be -found in the GtkAda reference manual. - -It is possible to cause the application to react to such events by -@samp{connecting} to a signal a special procedure called a @samp{handler} or -@samp{callback}. This handler will be called every time that signal is -emitted, giving the application a chance to do any processing it needs. More -than one handler can be connected to the same signal on the same object; the -handlers are invoked in the order they were connected. - -Predefined signals -================== - -Widgets, depending on their type, may define zero or more different signals. -The signals defined for the parent widget are also automatically inherited; -thus every widget answers many signals. - -The easiest way to find out which signals can be emitted by a widget is to look -at the GtkAda reference manual. Every widget will be documented there. The -GtkAda RM explains when particular signals are emitted, and the general form -that their handlers should have (although you can always add a `User_Data` if -you wish, see below). - -You can also look directly at the C header files distributed with the gtk+ -library. Each widget is described in its own C file and has two C structures -associated with it. One of them is the 'class' structure, which contains a -series of pointers to functions. Each of these functions has the same name as -the signal name. - -.. highlight:: c - -For instance, consider the following extract from gtkbutton.h:: - - struct _GtkButtonClass - { - GtkBinClass parent_class; - - void (* pressed) (GtkButton *button); - void (* released) (GtkButton *button); - void (* clicked) (GtkButton *button); - void (* enter) (GtkButton *button); - void (* leave) (GtkButton *button); - }; - -This means that the Gtk_Button widget redefines five new signals -called `pressed`, `released`, and so on, respectively. - -The profile of the handler can also be deduced from those pointers: -The handler has the same arguments, plus an optional `User_Data` parameter -that can be used to pass any kind of data to the handler. When the -`User_Data` parameter is used, the value of this data is specified when -connecting the handler to the signal. It is then given back to the -handler when the signal is raised. - -.. highlight:: ada - -Therefore, the profile of a handler should look like:: - - procedure Pressed_Handler - (Button : access Gtk_Button_Record'Class; - User_Data : ...); - -The callback does not need to use all the arguments. It is legal to use -a procedure that "drops" some of the last arguments. -There is one special case, however: if, at connection time, you decided to -use `User_Data`, your callback must handle it. This is checked by -the compiler. - -Any number of arguments can be dropped as long as those arguments are -the last ones in the list and you keep the first one. For instance, -the signal "button_press_event" normally can be connected to a -handler with any of the following profiles:: - - -- with a user_data argument - procedure Handler - (Widget : access Gtk_Widget_Record'Class; - Event : Gdk.Event.Gdk_Event; - User_Data : ...); - procedure Handler - (Widget : access Gtk_Widget_Record'Class; - User_Data : ...); - - -- without a user_data argument - procedure Handler - (Widget : access Gtk_Widget_Record'Class; - Event : Gdk.Event.Gdk_Event); - procedure Handler (Widget : access Gtk_Widget_Record'Class); - -Beware that adding new arguments is not possible, since no value would -be provided for them. When connecting a handler, GtkAda will not always -verify that your handler does not have more arguments than expected, so -caution is recommended (it only does so if you use the `Gtk.Marshallers` -package, see below). - -.. _Connecting_signals: - -Connecting signals -================== - -All signal handling work is performed using services provided -by the `Gtk.Handlers` package. This package is self-documented, -so please read the documentation for this package either in the GtkAda -Reference Manual or in the specs themselves. The rest of this section assumes -that you have this documentation handy. - -A short, annotated example of connecting signals follows; a complete -example can be found in create_file_selection.adb (inside the :file:`testgtk/` -directory). In our example, an application opens a file selector to -allow the user to select a file. GtkAda provides a high-level widget -called Gtk_File_Selection which can be used in this case:: - - declare - Window : Gtk_File_Selection; - begin - Gtk.File_Selection.Gtk_New (Window, Title => "Select a file"); - end; - -When the 'OK' button is pressed, the application needs to retrieve the - -selected file and then close the dialog. The only information that the -handler for the button press needs is which widget to operate upon. -This can be achieved by the following handler:: - - procedure OK (Files : access Gtk_File_Selection_Record'Class) is - begin - Ada.Text_IO.Put_Line ("Selected " & Get_Filename (Files)); - -- Prints the name of the selected file. - Destroy (Files); - -- Destroys the file selector dialog - end Ok; - -We now need to connect the object we created in the first part with the new -callback we just defined. `Gtk.Handlers` defines four types of generic -packages, depending on the arguments one expects in the callback and whether -the callback returns a value or not. Note that you can not use an arbitrary -list of arguments; this depends on the signal, as explained in the previous -section. - -In our example, since the callback does not return any value and does not -handle any `User_Data` (that is, we don't pass it extra data, which will be -specified at connection time), the appropriate package to use is -`Gtk.Handlers.Callback`. We thus instantiate that package. - -Remember that generic package instantiations in GtkAda must be present in -memory at all times, since they take care of freeing allocated memory when -finished. GtkAda generic package instantiations must therefore always be -performed at the library level, and not inside any inner block:: - - package Files_Cb is new - Handlers.Callback (Gtk_File_Selection_Record); - -The `Files_Cb` package now provides a set of Connect subprograms that can be -used to establish a tie between a widget and a handler. It also provides a set -of other subprograms which you can use to emit the signals manually, although -most of the time, the signals are simply emitted internally by GtkAda. We will -not discuss the Emit_By_Name subprograms here. - -The general form of handler, as used in `Gtk.Handlers`, expects some handlers -that take two or three arguments: the widget on which the signal was applied, -an array of all the extra arguments sent internally by GtkAda, and possibly -some user data given when the connection was made. - -This is the most general form of handler and it covers all the possible cases. -However, it also expects the user to manually extract the needed values from -the array of arguments. This is not always the most convenient solution. This -is why GtkAda provides a second package related to signals, `Gtk.Marshallers`. - -The `Gtk.Marshallers` package provides a set of functions that can be used as -callbacks directly for GtkAda, and that will call your application's handlers -after extracting the required values from the array of arguments. Although this -might sound somewhat complicated, in practice it simplifies the task of -connecting signals. In fact, the techniques employed are similar to what is -done internally by gtk+ in C. Because of the similarity of techniques, there is -no overhead involved in using `Gtk.Marshallers` with Ada over the C code in -gtk+. - -A set of functions `To_Marshaller` is found in every generic package in -`Gtk.Handlers`. They each take a single argument, the name of the function you -want to call, and return a handler that can be used directly in `Connect`. - -The connection is then done with the following piece of code:: - - Files_Cb.Object_Connect - (Get_Ok_Button (Window), -- The object to connect to the handler - "clicked", -- The name of the signal - Files_Cb.To_Marshaller (Ok'Access), -- The signal handler - Slot_Object => Window); - - -Note that this can be done just after creating the widget, in the same block. -As soon as it is created, a widget is ready to accept connections (although no -signals will be emitted before the widget is shown on the screen). - -We use `To_Marshaller` since our handler does not accept the array of arguments -as a parameter, and we use the special `Object_Connect` procedure. This means -that the parameter to our callback (Files) will be the Slot_Object given in -Object_Connect, instead of being the button itself. - -.. _Handling_user_data: - -Handling user data -================== - -As described above, it is possible to define some data that is that passed to -the callback when it is called. This data is called user_data, and is passed to -the `Connect` or `Object_Connect` subprograms. - -GtkAda will automatically free any memory it has allocated internally to store -this user data. For instance, if you instantiated the generic package -`User_Callback` with a String, it means that you want to be able to have a -callback of the form:: - - procedure My_Callback (Widget : access Gtk_Widget_Record'Class; - User_Data : String); - -and connect it with a call similar to:: - - Connect (Button, "Clicked", To_Marshaller (My_Callback'Access), - User_Data => "any string"); - -GtkAda needs to allocate some memory to store the string (an unconstrained -type). However, this memory is automatically freed when the callback is -destroyed. - -There are a few subtleties in the use of user_data, most importantly when the -user data is itself a widget. - -The following four examples do exactly the same thing: each creates two -buttons, where clicking on the first one will destroy the second one. They all -work fine the first time, while both buttons exist. However, some of them will -fail if you press on the first button a second time. - -Complete, compilable source code for these examples can be found in the -distribution's :file:`examples/user_data` directory, from which the code -samples below are excerpted. - -First case: simple user data ----------------------------- - -This code will fail: even after `Button2` is destroyed, the Ada pointer -continues to reference memory that has been deallocated. The second call to -`Destroy` will fail with a Storage_Error:: - - package User_Callback is new Gtk.Handlers.User_Callback - (Gtk_Widget_Record, Gtk_Widget); - - procedure My_Destroy2 - (Button : access Gtk_Widget_Record'Class; Data : Gtk_Widget) is - begin - Destroy (Data); - end My_Destroy2; - - begin - User_Callback.Connect - (Button1, "clicked", - User_Callback.To_Marshaller (My_Destroy2'Access), - Gtk_Widget (Button2)); - end; - -Second case: using Object_Connect instead ------------------------------------------ - -One of the solutions to fix the above problem is to use -`Object_Connect` instead of `Connect`. In that case, GtkAda -automatically takes care of disconnecting the callback when either of -the two widgets is destroyed:: - - procedure My_Destroy (Button : access Gtk_Widget_Record'Class) is - begin - Destroy (Button); - end My_Destroy; - - begin - Widget_Callback.Object_Connect - (Button1, "clicked", - Widget_Callback.To_Marshaller (My_Destroy'Access), - Button2); - end; - -Third case: manually disconnecting the callback ------------------------------------------------ - -Using `Object_Connect` is not always possible. In that case, one -of the possibilities is to store the `Id` of the callback, and -properly disconnect it when appropriate. This is the most complex -method, and very often is not applicable, since you cannot know for -sure when the callback is no longer needed:: - - type My_Data3 is record - Button, Object : Gtk_Widget; - Id : Handler_Id; - end record; - type My_Data3_Access is access My_Data3; - - package User_Callback3 is new Gtk.Handlers.User_Callback - (Gtk_Widget_Record, My_Data3_Access); - - procedure My_Destroy3 - (Button : access Gtk_Widget_Record'Class; - Data : My_Data3_Access) is - begin - Destroy (Data.Button); - Disconnect (Data.Object, Data.Id); - end My_Destroy3; - - Id : Handler_Id; - begin - Data3 := new My_Data3' (Object => Gtk_Widget (Button1), - Button => Gtk_Widget (Button2), - Id => (Null_Signal_Id, null)); - Id := User_Callback3.Connect - (Button1, "clicked", - User_Callback3.To_Marshaller (My_Destroy3'Access), - Data3); - Data3.Id := Id; - end; - -Fourth case: setting a watch on a specific widget -------------------------------------------------- - -GtkAda provides a function `Add_Watch`, that will automatically -disconnect a callback when a given widget is destroyed. This is the -function used internally by `Object_Connect`. In the example -below, the callback is automatically disconnected whenever -`Button2` is destroyed:: - - procedure My_Destroy2 - (Button : access Gtk_Widget_Record'Class; Data : Gtk_Widget) is - begin - Destroy (Data); - end My_Destroy2; - - Id : Handler_Id; - begin - Id := User_Callback.Connect - (Button1, "clicked", - User_Callback.To_Marshaller (My_Destroy2'Access), - Gtk_Widget (Button2)); - Add_Watch (Id, Button2); - end; diff -Nru libgtkada-2.24.4/docs/gtkada_ug/tasking.rst libgtkada-2.24.4dfsg/docs/gtkada_ug/tasking.rst --- libgtkada-2.24.4/docs/gtkada_ug/tasking.rst 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/gtkada_ug/tasking.rst 1970-01-01 00:00:00.000000000 +0000 @@ -1,64 +0,0 @@ -.. _Tasking_with_GtkAda: - -******************* -Tasking with GtkAda -******************* - -Note that Gtk+ under Windows does not interact properly with threads, -so the only safe approach under this operating system is to perform all your -Gtk+ calls in the same task. - -On other platforms, the Glib library can be used in a task-safe mode by calling -`Gdk.Threads.G_Init` and `Gdk.Threads.Init` before making any other Glib/Gdk -calls. Gdk routines may then be called simultaneously by multiple tasks, -thanks to task-safe construction of Gdk's internal data structures. However, -Gdk objects such as hash tables are not automatically protected, so it is the -application's responsibility to prevent simultaneous access to user-defined -objects (e.g. by using protected objects). - -When Gdk is initialized to be task-safe, GtkAda becomes task aware. There is a -single global lock that you must acquire with `Gdk.Threads.Enter` before making -any Gdk/Gtk call, and which you must release with `Gdk.Threads.Leave` -afterwards. - -`Gtk.Main.Main` should be called with the lock acquired (see example below), -ensuring that all the functions executed in the task that started the main loop -do not need to protect themselves again. - -Beware that the GtkAda main loop (`Gtk.Main.Main`) can only be be run inside -one specific task. In other words, you cannot call `Gtk.Main.Main` from any -task other than the one that started the outer level main loop. - -Note that `Gdk.Threads` assumes that you are using a tasking run time that maps -Ada tasks to native threads. - -.. highlight:: ada - -A minimal main program for a tasking GtkAda application looks like:: - - with Gdk.Threads; - with Gtk.Main; - with Gtk.Enums; use Gtk.Enums; - with Gtk.Window; use Gtk.Window; - - procedure GtkAda_With_Tasks is - Window : Gtk_Window; - begin - Gdk.Threads.G_Init; - Gdk.Threads.Init; - Gtk.Main.Init; - - Gtk_New (Window, Window_Toplevel); - Show (Window); - - Gdk.Threads.Enter; - Gtk.Main.Main; - Gdk.Threads.Leave; - end GtkAda_With_Tasks; - -Callbacks require a bit of attention. Callbacks from GtkAda (signals) are made -within the GtkAda lock. However, callbacks from Glib (timeouts, IO callbacks, -and idle functions) are made outside of the GtkAda lock. So, within a signal -handler you do not need to call `Gdk.Threads.Enter`, but within the other types -of callbacks, you do. - diff -Nru libgtkada-2.24.4/docs/Makefile.in libgtkada-2.24.4dfsg/docs/Makefile.in --- libgtkada-2.24.4/docs/Makefile.in 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/Makefile.in 1970-01-01 00:00:00.000000000 +0000 @@ -1,21 +0,0 @@ -prefix = @prefix@ -docdir = $(prefix)/share/doc/gtkada -CP=cp -p -MKDIR=mkdir -p - -all:: - ${MAKE} -C gtkada_rm - ${MAKE} -C gtkada_ug html latexpdf - -install:: - ${MAKE} -C gtkada_rm install - $(MKDIR) ${DESTDIR}$(docdir)/gtkada_ug/ - -$(CP) -r gtkada_ug/_build/html/* ${DESTDIR}$(docdir)/gtkada_ug/ - -clean:: - ${MAKE} -C gtkada_rm clean - ${MAKE} -C gtkada_ug clean - -distclean:: - ${MAKE} -C gtkada_rm distclean - ${MAKE} -C gtkada_ug clean diff -Nru libgtkada-2.24.4/docs/texi2html libgtkada-2.24.4dfsg/docs/texi2html --- libgtkada-2.24.4/docs/texi2html 2014-05-11 14:53:37.000000000 +0000 +++ libgtkada-2.24.4dfsg/docs/texi2html 1970-01-01 00:00:00.000000000 +0000 @@ -1,2739 +0,0 @@ -#!/usr/bin/perl -'di '; -'ig 00 '; -#+############################################################################## -# # -# File: texi2html # -# # -# Description: Program to transform most Texinfo documents to HTML # -# # -#-############################################################################## - -# From @(#)texi2html 1.52 01/05/98 Written (mainly) by Lionel Cons, Lionel.Cons@cern.ch -# $Id: texi2html 153648 2009-12-01 18:01:18Z obry $ -# This version of texi2html is currently maintained at -# ftp://ftp.cs.umb.edu/pub/tex/texi2html by kb@cs.umb.edu. - -# The man page for this program is included at the end of this file and can be -# viewed using the command 'nroff -man texi2html'. -# Please read the copyright at the end of the man page. - -#+++############################################################################ -# # -# Constants # -# # -#---############################################################################ - -$DEBUG_TOC = 1; -$DEBUG_INDEX = 2; -$DEBUG_BIB = 4; -$DEBUG_GLOSS = 8; -$DEBUG_DEF = 16; -$DEBUG_HTML = 32; -$DEBUG_USER = 64; -$DEBUG_L2H = 128; - - -$BIBRE = '\[[\w\/-]+\]'; # RE for a bibliography reference -$FILERE = '[\/\w.+-]+'; # RE for a file name -$VARRE = '[^\s\{\}]+'; # RE for a variable name -$NODERE = '[^@{}:\'`",]+'; # RE for a node name -$NODESRE = '[^@{}:\'`"]+'; # RE for a list of node names -$XREFRE = '[^@{}]+'; # RE for a xref (should use NODERE) - -$ERROR = "***"; # prefix for errors and warnings -$THISVERSION = "1.56k"; -$THISPROG = "texi2html $THISVERSION"; # program name and version -$HOMEPAGE = "http://wwwinfo.cern.ch/dis/texi2html/"; # program home page -$TODAY = &pretty_date; # like "20 September 1993" -$SPLITTAG = "\n"; # tag to know where to split -$PROTECTTAG = "_ThisIsProtected_"; # tag to recognize protected sections -$html2_doctype = ''; -($USER = (getpwuid ($<))[6]) =~ s/,.*//; # Who am i - -# -# language dependent constants -# -#$LDC_SEE = 'see'; -#$LDC_SECTION = 'section'; -#$LDC_IN = 'in'; -#$LDC_TOC = 'Table of Contents'; -#$LDC_GOTO = 'Go to the'; -#$LDC_FOOT = 'Footnotes'; -# TODO: @def* shortcuts - -# -# pre-defined indices -# -%predefined_index = ( - 'cp', 'c', - 'fn', 'f', - 'vr', 'v', - 'ky', 'k', - 'pg', 'p', - 'tp', 't', - ); - -# -# valid indices -# -%valid_index = ( - 'c', 1, - 'f', 1, - 'v', 1, - 'k', 1, - 'p', 1, - 't', 1, - ); - -# -# texinfo section names to level -# -%sec2level = ( - 'top', 0, - 'chapter', 1, - 'unnumbered', 1, - 'majorheading', 1, - 'chapheading', 1, - 'appendix', 1, - 'section', 2, - 'unnumberedsec', 2, - 'heading', 2, - 'appendixsec', 2, - 'appendixsection', 2, - 'subsection', 3, - 'unnumberedsubsec', 3, - 'subheading', 3, - 'appendixsubsec', 3, - 'subsubsection', 4, - 'unnumberedsubsubsec', 4, - 'subsubheading', 4, - 'appendixsubsubsec', 4, - ); - -# -# accent map, TeX command to ISO name -# -%accent_map = ( - '"', 'uml', - '~', 'tilde', - '^', 'circ', - '`', 'grave', - '\'', 'acute', - ); - -# -# texinfo "simple things" (@foo) to HTML ones -# -%simple_map = ( - # cf. makeinfo.c - "*", "
    ", # HTML+ - " ", " ", - "\t", " ", - "-", "­", # soft hyphen - "\n", "\n", - "|", "", - 'tab', '<\/TD>', - # spacing commands - ":", "", - "!", "!", - "?", "?", - ".", ".", - "-", "", - ); - -# -# texinfo "things" (@foo{}) to HTML ones -# -%things_map = ( - 'TeX', 'TeX', - 'br', '

    ', # paragraph break - 'bullet', '*', - 'copyright', '(C)', - 'dots', '...', - 'equiv', '==', - 'error', 'error-->', - 'expansion', '==>', - 'minus', '-', - 'point', '-!-', - 'print', '-|', - 'result', '=>', - 'today', $TODAY, - ); - -# -# texinfo styles (@foo{bar}) to HTML ones -# -%style_map = ( - 'asis', '', - 'b', 'B', - 'cite', 'CITE', - 'code', 'CODE', - 'ctrl', '&do_ctrl', # special case - 'dfn', 'EM', # DFN tag is illegal in the standard - 'dmn', '', # useless - 'email', '&do_email', # insert a clickable email address - 'emph', 'EM', - 'file', '"TT', # will put quotes, cf. &apply_style - 'i', 'I', - 'kbd', 'KBD', - 'key', 'KBD', - 'math', '&do_math', - 'r', '', # unsupported - 'samp', '"SAMP', # will put quotes, cf. &apply_style - 'sc', '&do_sc', # special case - 'strong', 'STRONG', - 't', 'TT', - 'titlefont', '', # useless - 'uref', '&do_uref', # insert a clickable URL - 'url', '&do_url', # insert a clickable URL - 'var', 'VAR', - 'w', '', # unsupported - ); - -# -# texinfo format (@foo/@end foo) to HTML ones -# -%format_map = ( - 'display', 'PRE', - 'example', 'PRE', - 'format', 'PRE', - 'lisp', 'PRE', - 'quotation', 'BLOCKQUOTE', - 'smallexample', 'PRE', - 'smalllisp', 'PRE', - # lists - 'itemize', 'UL', - 'enumerate', 'OL', - # poorly supported - 'flushleft', 'PRE', - 'flushright', 'PRE', - ); - -# -# texinfo definition shortcuts to real ones -# -%def_map = ( - # basic commands - 'deffn', 0, - 'defvr', 0, - 'deftypefn', 0, - 'deftypevr', 0, - 'defcv', 0, - 'defop', 0, - 'deftp', 0, - # basic x commands - 'deffnx', 0, - 'defvrx', 0, - 'deftypefnx', 0, - 'deftypevrx', 0, - 'defcvx', 0, - 'defopx', 0, - 'deftpx', 0, - # shortcuts - 'defun', 'deffn Function', - 'defmac', 'deffn Macro', - 'defspec', 'deffn {Special Form}', - 'defvar', 'defvr Variable', - 'defopt', 'defvr {User Option}', - 'deftypefun', 'deftypefn Function', - 'deftypevar', 'deftypevr Variable', - 'defivar', 'defcv {Instance Variable}', - 'defmethod', 'defop Method', - # x shortcuts - 'defunx', 'deffnx Function', - 'defmacx', 'deffnx Macro', - 'defspecx', 'deffnx {Special Form}', - 'defvarx', 'defvrx Variable', - 'defoptx', 'defvrx {User Option}', - 'deftypefunx', 'deftypefnx Function', - 'deftypevarx', 'deftypevrx Variable', - 'defivarx', 'defcvx {Instance Variable}', - 'defmethodx', 'defopx Method', - ); - -# -# things to skip -# -%to_skip = ( - # comments - 'c', 1, - 'comment', 1, - 'ifnothtml', 1, - 'ifnottex', 1, - # useless - 'detailmenu', 1, - 'direntry', 1, - 'contents', 1, - 'shortcontents', 1, - 'summarycontents', 1, - 'footnotestyle', 1, - 'end ifclear', 1, - 'end ifset', 1, - 'titlepage', 1, - 'end titlepage', 1, - # unsupported commands (formatting) - 'afourpaper', 1, - 'cropmarks', 1, - 'finalout', 1, - 'headings', 1, - 'sp', 1, - 'need', 1, - 'page', 1, - 'setchapternewpage', 1, - 'everyheading', 1, - 'everyfooting', 1, - 'evenheading', 1, - 'evenfooting', 1, - 'oddheading', 1, - 'oddfooting', 1, - 'smallbook', 1, - 'vskip', 1, - 'filbreak', 1, - 'paragraphindent', 1, - # unsupported formats - 'cartouche', 1, - 'end cartouche', 1, - 'group', 1, - 'end group', 1, - ); - -#+++############################################################################ -# # -# Argument parsing, initialisation # -# # -#---############################################################################ - -%value = (); # hold texinfo variables, see also -D - -$use_bibliography = 1; -$use_acc = 0; -$debug = 0; -$doctype = ''; -$check = 0; -$expandinfo = 0; -$use_glossary = 0; -$INVISIBLE_MARK = ''; -$use_iso = 0; -@include_dirs = (); -$show_menu = 0; -$number_sections = 0; -$split_node = 0; -$split_chapter = 0; -$monolithic = 0; -$verbose = 0; -$usage = < tag - -expandinfo : use \@ifinfo sections, not \@iftex - -glossary : handle a glossary - -invisible name : use 'name' as an invisible anchor - -Dname : define name like with \@set - -I dir : search also for files in 'dir' - -menu : handle menus - -monolithic : output only one file including ToC - -number : number sections - -split_chapter : split on main sections - -split_node : split on nodes - -l2h : use latex2html for \@math, \@tex, and \@sc - -l2h_latex2html prog: use 'prog' as latex2html program - (default: 'latex2html') - -l2h_tmp dir : use 'dir' as temp dir for latex2html - -l2h_keep : keep temporary files generated by l2h extension - -l2h_skip : skip latex2html run (needs temporary files) - -init_file 'file' : use 'file' for texi2html and latex2html initialization - -usage : print usage instructions - -verbose : verbose output -To check converted files: $0 -check [-verbose] files -EOT - -while (@ARGV && $ARGV[0] =~ /^-/) { - $_ = shift(@ARGV); - if (/^-acc$/) { $use_acc = 1; next; } - if (/^-body$/) { $T2H_BODYTEXT = shift (@ARGV); next; } - if (/^-d(ebug)?(\d+)?$/) { $debug = $2 || shift(@ARGV); next; } - if (/^-doctype$/) { $doctype = shift(@ARGV); next; } - if (/^-c(heck)?$/) { $check = 1; next; } - if (/^-e(xpandinfo)?$/) { $expandinfo = 1; next; } - if (/^-g(lossary)?$/) { $use_glossary = 1; next; } - if (/^-i(nvisible)?$/) { $INVISIBLE_MARK = shift(@ARGV); next; } - if (/^-iso$/) { $use_iso = 1; next; } - if (/^-D(.+)?$/) { $value{$1 || shift(@ARGV)} = 1; next; } - if (/^-I(.+)?$/) { push(@include_dirs, $1 || shift(@ARGV)); next; } - if (/^-m(enu)?$/) { $show_menu = 1; next; } - if (/^-mono(lithic)?$/) { $monolithic = 1; next; } - if (/^-n(umber)?$/) { $number_sections = 1; next; } - if (/^-s(plit)?_?(n(ode)?|c(hapter)?)?$/) { - if ($2 =~ /^n/) { - $split_node = 1; - } else { - $split_chapter = 1; - } - next; - } - if (/^-v(erbose)?$/) { $verbose = 1; next; } - if (/^-init_file$/) - { - $init_file = shift(@ARGV); - if (-f $init_file) - { - print "# reading initialization file from $init_file\n" if ($verbose); - require($init_file); - } - else - { - print "$ERROR Error: can't read init file $int_file\n"; - $init_file = ''; - } - next; - } - # l2h stuff - if (/^-l2h$/) { $l2h = 1; next; } - if (/^-l2h_latex2html$/) { $l2h_latex2html = shift(@ARGV); next; } - if (/^-l2h_skip$/) { $l2h_skip = 1; next; } - if (/^-l2h_tmp$/) { $l2h_tmp = shift(@ARGV); next; } - if (/^-l2h_keep$/) { $l2h_keep = 1; next; } - die $usage; -} -if ($check) { - die $usage unless @ARGV > 0; - ✓ - exit; -} - -if (($split_node || $split_chapter) && $monolithic) { - warn "Can't use -monolithic with -split, -monolithic ignored.\n"; - $monolithic = 0; -} -if ($expandinfo) { - $to_skip{'ifinfo'}++; - $to_skip{'end ifinfo'}++; - $to_skip{'ifnottex'}++; - $to_skip{'end ifnottex'}++; -} else { - $to_skip{'iftex'}++; - $to_skip{'end iftex'}++; -} -$INVISIBLE_MARK = '' if $INVISIBLE_MARK eq 'xbm'; -die $usage unless @ARGV == 1; -$docu = shift(@ARGV); -if ($docu =~ /.*\//) { - chop($docu_dir = $&); - $docu_name = $'; -} else { - $docu_dir = '.'; - $docu_name = $docu; -} -unshift(@include_dirs, $docu_dir); -$docu_name =~ s/\.te?x(i|info)?$//; # basename of the document - -$docu_doc = "$docu_name.html"; # document's contents -if ($monolithic) { - $docu_toc = $docu_foot = $docu_doc; -} else { - $docu_toc = "${docu_name}_toc.html"; # document's table of contents - $docu_stoc = "${docu_name}_stoc.html"; # document's short table of contents - $docu_foot = "${docu_name}_foot.html"; # document's footnotes -} - -# -# variables -# -$value{'html'} = 1; # predefine html (the output format) -$value{'texi2html'} = $THISVERSION; # predefine texi2html (the translator) -# _foo: internal to track @foo -foreach ('_author', '_title', '_subtitle', - '_settitle', '_setfilename') { - $value{$_} = ''; # prevent -w warnings -} -%node2sec = (); # node to section name -%node2href = (); # node to HREF -%node2next = (); # node to next -%node2prev = (); # node to prev -%node2up = (); # node to up -%bib2href = (); # bibliography reference to HREF -%gloss2href = (); # glossary term to HREF -@sections = (); # list of sections -%tag2pro = (); # protected sections - -# -# initial indexes -# -$bib_num = 0; -$foot_num = 0; -$gloss_num = 0; -$idx_num = 0; -$sec_num = 0; -$doc_num = 0; -$html_num = 0; - -# -# can I use ISO8879 characters? (HTML+) -# -if ($use_iso) { - $things_map{'bullet'} = "•"; - $things_map{'copyright'} = "©"; - $things_map{'dots'} = "…"; - $things_map{'equiv'} = "≡"; - $things_map{'expansion'} = "→"; - $things_map{'point'} = "∗"; - $things_map{'result'} = "⇒"; -} - -# -# read texi2html extensions (if any) -# -$extensions = 'texi2html.ext'; # extensions in working directory -if (-f $extensions) { - print "# reading extensions from $extensions\n" if $verbose; - require($extensions); -} -($progdir = $0) =~ s/[^\/]+$//; -if ($progdir && ($progdir ne './')) { - $extensions = "${progdir}texi2html.ext"; # extensions in texi2html directory - if (-f $extensions) { - print "# reading extensions from $extensions\n" if $verbose; - require($extensions); - } -} - -# -# read init file (if any) -# -if ($init_file && -f $init_file) -{ - print "# reading initialization file from $init_file\n" if ($verbose); - require($init_file); -} - -print "# reading from $docu\n" if $verbose; - -######################################################################### -# -# latex2html stuff -# -# latex2html conversions consist of three stages: -# 1) ToLatex: Put "latex" code into a latex file -# 2) ToHtml: Use latex2html to generate corresponding html code and images -# 3) FromHtml: Extract generated code and images from latex2html run -# - -########################## -# default settings -# - -# defaults for files and names - -sub l2h_Init -{ - local($root) = @_; - - return 0 unless ($root); - - $l2h_name = "${root}_l2h"; - - $l2h_latex_file = "${l2h_name}.tex"; - $l2h_latex2html = "latex2html" unless ($l2h_latex2html); - - # destination dir -- generated images are put there, should be the same - # as dir of enclosing html document -- - $l2h_html_file = "${l2h_name}.html"; - $l2h_prefix = "${l2h_name}_"; - return 1; -} - - -########################## -# -# First stage: Generation of Latex file -# Initialize with: l2h_InitToLatex -# Add content with: l2h_ToLatex($text) --> HTML placeholder comment -# Finish with: l2h_FinishToLatex -# - -$l2h_latex_preample = <$l2h_latex_file")) - { - warn "$ERROR Error l2h: Can't open latex file '$latex_file' for writing\n"; - return 0; - } - print "# l2h: use ${l2h_latex_file} as latex file\n" if ($verbose); - print L2H_LATEX $l2h_latex_preample; - } - $l2h_latex_count = 0; - $l2h_to_latex_count = 0; - return 1; -} - -# print text (1st arg) into latex file (if not already there), return -# HTML commentary which can be later on replaced by the latex2html -# generated text -sub l2h_ToLatex -{ - local($text) = @_; - local($count); - - chomp($text); - - $l2h_to_latex_count++; - unless ($count = $l2h_to_latex{$text}) - { - $count = $l2h_latex_count; - $l2h_latex_count++; - $l2h_to_latex{$text} = $count; - - unless ($l2h_skip) - { - print L2H_LATEX "\\begin{rawhtml}\n"; - print L2H_LATEX "\n"; - print L2H_LATEX "\\end{rawhtml}\n"; - - print L2H_LATEX "$text\n"; - - print L2H_LATEX "\\begin{rawhtml}\n"; - print L2H_LATEX "\n"; - print L2H_LATEX "\\end{rawhtml}\n"; - } - } - return ""; -} - -# print closing into latex file and close it -sub l2h_FinishToLatex -{ - local ($reused); - - $reused = $l2h_to_latex_count - $l2h_latex_count; - unless ($l2h_skip) - { - print L2H_LATEX $l2h_latex_closing; - close(L2H_LATEX); - } - print "# l2h: finished to latex ($l2h_latex_count contents, $reused reused)\n" if ($verbose); - return 1; -} - -################################### -# Second stage: Use latex2html to generate corresponding html code and images -# -# l2h_ToHtml([$l2h_latex_file, [$l2h_html_dir]]): -# Call latex2html on $l2h_latex_file -# Put images (prefixed with $l2h_name."_") and html file(s) in $l2h_html_dir -# Return 1, on success -# 0, otherwise -# -sub l2h_ToHtml -{ - local($call, $ext, $root, $dotbug); - - if ($l2h_skip) - { - print "# l2h: skipping latex2html run\n" if ($verbose); - return 1; - } - - # Check for dot in directory where dvips will work - if ($l2h_tmp) - { - if ($l2h_tmp =~ /\./) - { - warn "$ERROR Warning l2h: l2h_tmp dir contains a dot. Use /tmp, insted\n"; - $dotbug = 1; - } - } - else - { - if (&getcwd =~ /\./) - { - warn "$ERROR Warning l2h: current dir contains a dot. Use /tmp as l2h_tmp dir \n"; - $dotbug = 1; - } - } - # fix it, if necessary and hope that it works - $l2h_tmp = "/tmp" if ($dotbug); - - $call = $l2h_latex2html; - # use init file, if specified - $call = $call . " -init_file " . $init_file if ($init_file && -f $init_file); - # use l2h_tmp, if specified - $call = $call . " -tmp $l2h_tmp" if ($l2h_tmp); - # options we want to be sure of - $call = $call ." -address 0 -info 0 -split 0 -no_navigation -no_auto_link"; - $call = $call ." -no_subdir -prefix ${l2h_prefix} $l2h_latex_file"; - - print "# l2h: executing '$call'\n" if ($verbose); - if (system($call)) - { - warn "l2h ***Error: '${call}' did not succeed\n"; - return 0; - } - else - { - print "# l2h: latex2html finished successfully\n" if ($verbose); - return 1; - } -} - -# this is directly pasted over from latex2html -sub getcwd { - local($_) = `pwd`; - - die "'pwd' failed (out of memory?)\n" - unless length; - chop; - $_; -} - - -########################## -# Third stage: Extract generated contents from latex2html run -# Initialize with: l2h_InitFromHtml -# open $l2h_html_file for reading -# reads in contents into array indexed by numbers -# return 1, on success -- 0, otherwise -# Extract Html code with: l2h_FromHtml($text) -# replaces in $text all previosuly inserted comments by generated html code -# returns (possibly changed) $text -# Finish with: l2h_FinishFromHtml -# closes $l2h_html_dir/$l2h_name.".html" - -sub l2h_InitFromHtml -{ - local($h_line, $h_content, $count); - if (! open(L2H_HTML, "<${l2h_html_file}")) - { - print "$ERROR Error l2h: Can't open ${l2h_html_file} for reading\n"; - return 0; - } - print "# l2h: use ${l2h_html_file} as html file\n" if ($verbose); - - $l2h_html_count = 0; - - while ($h_line = ) - { - if ($h_line =~ /^/) - { - $count = $1; - $h_content = ""; - while ($h_line = ) - { - if ($h_line =~ /^/) - { - chomp($h_content); - $l2h_from_html[$count] = $h_content; - $l2h_html_count++; - $h_content = ''; - last; - } - $h_content = $h_content.$h_line; - } - if ($hcontent) - { - print "$ERROR Warning l2h: l2h_end $l2h_name $count not found\n" - if ($verbose); - close(L2H_HTML); - return 0; - } - } - } - print "# l2h: Got $l2h_html_count of $l2h_latex_count html contents\n" - if ($verbose); - - close(L2H_HTML); - return 1; -} - -sub l2h_FromHtml -{ - local($text) = @_; - local($done, $to_do, $count); - - $to_do = $text; - - while ($to_do =~ /([^\000]*)([^\000]*)/) - { - $to_do = $1; - $count = $2; - $done = $3.$done; - - $done = "".$done - if ($debug & $DEBUG_L2H); - - $done = &l2h_ExtractFromHtml($count) . $done; - - $done = "".$done - if ($debug & $DEBUG_L2H); - } - return $to_do.$done; -} - - -sub l2h_ExtractFromHtml -{ - local($count) = @_; - - return $l2h_from_html[$count] if ($l2h_from_html[$count]); - - if ($count >= 0 && $count < $l2h_latex_count) - { - # now we are in trouble - local($l_l2h, $_); - - $l2h_extract_error++; - print "$ERROR l2h: can't extract content $count from html\n" - if ($verbose); - # try simple (ordinary) substition (without l2h) - $l_l2h = $l2h; - $l2h = 0; - $_ = $l2h_to_latex{$count}; - $_ = &substitute_style($_); - &unprotect_texi; - $_ = "" . $_ - if ($debug & $DEBUG_L2H); - $l2h = $l_l2h; - return $_; - } - else - { - # now we have been incorrectly called - $l2h_range_error++; - print "$ERROR l2h: Request of $count content which is out of valide range [0,$l2h_latex_count)\n"; - return "" - if ($debug & $DEBUG_L2H); - return ""; - } -} - -sub l2h_FinishFromHtml -{ - if ($verbose) - { - if ($l2h_extract_error + $l2h_range_error) - { - print "# l2h: finished from html ($l2h_extract_error extract and $l2h_range_error errors)\n"; - } - else - { - print "# l2h: finished from html (no errors)\n"; - } - } -} - -sub l2h_Finish -{ - return 1 if ($l2h_keep); - print "# l2h: removing temorary files generated by l2h extension\n"; - unlink ($l2h_latex_file); - unlink ($l2h_html_file); - return 1; -} - -#+++############################################################################ -# # -# Pass 1: read source, handle command, variable, simple substitution # -# # -#---############################################################################ - -@lines = (); # whole document -@toc_lines = (); # table of contents -@stoc_lines = (); # table of contents -$toplevel = 0; # top level seen in hierarchy -$curlevel = 0; # current level in TOC -$node = ''; # current node name -$node_next = ''; # current node next name -$node_prev = ''; # current node prev name -$node_up = ''; # current node up name -$in_table = 0; # am I inside a table -$table_type = ''; # type of table ('', 'f', 'v', 'multi') -@tables = (); # nested table support -$in_bibliography = 0; # am I inside a bibliography -$in_glossary = 0; # am I inside a glossary -$in_top = 0; # am I inside the top node -$in_pre = 0; # am I inside a preformatted section -$in_list = 0; # am I inside a list -$in_html = 0; # am I inside an HTML section -$first_line = 1; # is it the first line -$dont_html = 0; # don't protect HTML on this line -$split_num = 0; # split index -$deferred_ref = ''; # deferred reference for indexes -@html_stack = (); # HTML elements stack -$html_element = ''; # current HTML element -$anchorid = 0; # Identifier of the current @anchor -&html_reset; - -# init l2h -$l2h = &l2h_Init($docu_name) if ($l2h); -$l2h = &l2h_InitToLatex if ($l2h); - -# build code for simple substitutions -# the maps used (%simple_map and %things_map) MUST be aware of this -# watch out for regexps, / and escaped characters! -$subst_code = ''; -foreach (keys(%simple_map)) { - ($re = $_) =~ s/(\W)/\\$1/g; # protect regexp chars - $subst_code .= "s/\\\@$re/$simple_map{$_}/g;\n"; -} -foreach (keys(%things_map)) { - $subst_code .= "s/\\\@$_\\{\\}/$things_map{$_}/g;\n"; -} -if ($use_acc) { - # accentuated characters - foreach (keys(%accent_map)) { - if ($_ eq "`") { - $subst_code .= "s/$;3"; - } elsif ($_ eq "'") { - $subst_code .= "s/$;4"; - } else { - $subst_code .= "s/\\\@\\$_"; - } - $subst_code .= "([aeiou])/&\${1}$accent_map{$_};/gi;\n"; - } -} -eval("sub simple_substitutions { $subst_code }"); - -&init_input; -while ($_ = &next_line) { - # - # remove \input on the first lines only - # - if ($first_line) { - next if /^\\input/; - $first_line = 0; - } - # - # parse texinfo tags - # - $tag = ''; - $end_tag = ''; - if (/^\s*\@end\s+(\w+)\b/) { - $end_tag = $1; - } elsif (/^\s*\@(\w+)\b/) { - $tag = $1; - } - # - # handle @ifhtml / @end ifhtml - # - if ($in_html) { - if ($end_tag eq 'ifhtml') { - $in_html = 0; - } else { - $tag2pro{$in_html} .= $_; - } - next; - } elsif ($tag eq 'ifhtml') { - $in_html = $PROTECTTAG . ++$html_num; - push(@lines, $in_html); - next; - } elsif ($tag eq 'ifnothtml') { - &skip_until($tag); - next; - } - # - # try to skip the line - # - if ($end_tag) { - next if $to_skip{"end $end_tag"}; - } elsif ($tag) { - next if $to_skip{$tag}; - last if $tag eq 'bye'; - } - if ($in_top) { - # parsing the top node - if ($tag eq 'node' || $tag eq 'include' || $sec2level{$tag}) { - # no more in top - $in_top = 0; - } else { - # skip it - next; - } - } - # - # try to remove inlined comments - # syntax from tex-mode.el comment-start-skip - # - s/((^|[^\@])(\@\@)*)\@c(omment)? .*/$1/; - # non-@ substitutions cf. texinfmt.el - unless ($in_pre) { - s/``/\"/g; - s/''/\"/g; - s/([\w ])---([\w ])/$1--$2/g; - } - # - # analyze the tag - # - if ($tag) { - # skip lines - &skip_until($tag), next if $tag eq 'ignore'; - if ($expandinfo) { - &skip_until($tag), next if $tag eq 'iftex'; - } else { - &skip_until($tag), next if $tag eq 'ifinfo'; - } - if ($tag eq 'tex') - { - # add to latex2html file - if ($l2h && ! $in_pre) - { - # add space to the end -- tex(i2dvi) does this, as well - push(@lines, &l2h_ToLatex(&string_until($tag) . " ")); - } - else - { - &skip_until($tag); - } - next; - } - &skip_until($tag), next if $tag eq 'tex'; - # handle special tables - if ($tag =~ /^(|f|v|multi)table$/) { - $table_type = $1; - $tag = 'table'; - } - # special cases - if ($tag eq 'top' || ($tag eq 'node' && /^\@node\s+top\s*,/i)) { - $in_top = 1; - @lines = (); # ignore all lines before top (title page garbage) - next; - } elsif ($tag eq 'node') { - $in_top = 0; - warn "$ERROR Bad node line: $_" unless $_ =~ /^\@node\s$NODESRE$/o; - $_ = &protect_html($_); # if node contains '&' for instance - s/^\@node\s+//; - ($node, $node_next, $node_prev, $node_up) = split(/,/); - &normalise_node($node); - &normalise_node($node_next); - &normalise_node($node_prev); - &normalise_node($node_up); - if ($split_node) { - &next_doc; - push(@lines, $SPLITTAG) if $split_num++; - push(@sections, $node); - } - next; - } elsif ($tag eq 'include') { - if (/^\@include\s+($FILERE)\s*$/o) { - $file = $1; - unless (-e $file) { - foreach $dir (@include_dirs) { - $file = "$dir/$1"; - last if -e $file; - } - } - if (-e $file) { - &open($file); - print "# including $file\n" if $verbose; - } else { - warn "$ERROR Can't find $file, skipping"; - } - } else { - warn "$ERROR Bad include line: $_"; - } - next; - } elsif ($tag eq 'ifclear') { - if (/^\@ifclear\s+($VARRE)\s*$/o) { - next unless defined($value{$1}); - &skip_until($tag); - } else { - warn "$ERROR Bad ifclear line: $_"; - } - next; - } elsif ($tag eq 'ifset') { - if (/^\@ifset\s+($VARRE)\s*$/o) { - next if defined($value{$1}); - &skip_until($tag); - } else { - warn "$ERROR Bad ifset line: $_"; - } - next; - } elsif ($tag eq 'menu') { - unless ($show_menu) { - &skip_until($tag); - next; - } - &html_push_if($tag); - push(@lines, &html_debug("\n", __LINE__)); - } elsif ($format_map{$tag}) { - $in_pre = 1 if $format_map{$tag} eq 'PRE'; - &html_push_if($format_map{$tag}); - push(@lines, &html_debug("\n", __LINE__)); - $in_list++ if $format_map{$tag} eq 'UL' || $format_map{$tag} eq 'OL' ; - push(@lines, &debug("<$format_map{$tag}>\n", __LINE__)); - next; - } elsif ($tag eq 'table') { - if (/^\s*\@(|f|v|multi)table\s+\@(\w+)/) { - $in_table = $2; - unshift(@tables, join($;, $table_type, $in_table)); - if ($table_type eq "multi") { - # don#t use borders -- gets confused by empty cells - push(@lines, &debug("\n", __LINE__)); - &html_push_if('TABLE'); - } else { - push(@lines, &debug("
    \n", __LINE__)); - &html_push_if('DL'); - } - push(@lines, &html_debug("\n", __LINE__)); - } else { - warn "$ERROR Bad table line: $_"; - } - next; - } elsif ($tag eq 'synindex' || $tag eq 'syncodeindex') { - if (/^\@$tag\s+(\w)\w\s+(\w)\w\s*$/) { - eval("*${1}index = *${2}index"); - } else { - warn "$ERROR Bad syn*index line: $_"; - } - next; - } elsif ($tag eq 'sp') { - push(@lines, &debug("

    \n", __LINE__)); - next; - } elsif ($tag eq 'setref') { - &protect_html; # if setref contains '&' for instance - if (/^\@$tag\s*{($NODERE)}\s*$/) { - $setref = $1; - $setref =~ s/\s+/ /g; # normalize - $setref =~ s/ $//; - $node2sec{$setref} = $name; - $node2href{$setref} = "$docu_doc#$docid"; - } else { - warn "$ERROR Bad setref line: $_"; - } - next; - } elsif ($tag eq 'anchor') { - if (/\@$tag\s*{($NODERE)}/) { - $setref = $1; - $setref =~ s/\s+/ /g; # normalize - $setref =~ s/ $//; - $node2sec{$setref} = $setref; # text to print in the .html - $node2href{$setref} = "$docu_doc#$docid" . "_$anchorid"; - # How to reference the anchor - push (@lines, &anchor("$docid" . "_$anchorid", '','', 0)); - $anchorid ++; - } else { - warn "$ERROR Bad anchor line: $_"; - } - next; - } elsif ($tag eq 'defindex' || $tag eq 'defcodeindex') { - if (/^\@$tag\s+(\w\w)\s*$/) { - $valid_index{$1} = 1; - } else { - warn "$ERROR Bad defindex line: $_"; - } - next; - } elsif ($tag eq 'lowersections') { - local ($sec, $level); - while (($sec, $level) = each %sec2level) { - $sec2level{$sec} = $level + 1; - } - next; - } elsif ($tag eq 'raisesections') { - local ($sec, $level); - while (($sec, $level) = each %sec2level) { - $sec2level{$sec} = $level - 1; - } - next; - } elsif (defined($def_map{$tag})) { - if ($def_map{$tag}) { - s/^\@$tag\s+//; - $tag = $def_map{$tag}; - $_ = "\@$tag $_"; - $tag =~ s/\s.*//; - } - } elsif (defined($user_sub{$tag})) { - s/^\@$tag\s+//; - $sub = $user_sub{$tag}; - print "# user $tag = $sub, arg: $_" if $debug & $DEBUG_USER; - if (defined(&$sub)) { - chop($_); - &$sub($_); - } else { - warn "$ERROR Bad user sub for $tag: $sub\n"; - } - next; - } - if (defined($def_map{$tag})) { - s/^\@$tag\s+//; - if ($tag =~ /x$/) { - # extra definition line - $tag = $`; - $is_extra = 1; - } else { - $is_extra = 0; - } - while (/\{([^\{\}]*)\}/) { - # this is a {} construct - ($before, $contents, $after) = ($`, $1, $'); - # protect spaces - $contents =~ s/\s+/$;9/g; - # restore $_ protecting {} - $_ = "$before$;7$contents$;8$after"; - } - @args = split(/\s+/, &protect_html($_)); - foreach (@args) { - s/$;9/ /g; # unprotect spaces - s/$;7/\{/g; # ... { - s/$;8/\}/g; # ... } - } - $type = shift(@args); - $type =~ s/^\{(.*)\}$/$1/; - print "# def ($tag): {$type} ", join(', ', @args), "\n" - if $debug & $DEBUG_DEF; - $type .= ':'; # it's nicer like this - $name = shift(@args); - $name =~ s/^\{(.*)\}$/$1/; - if ($is_extra) { - $_ = &debug("

    ", __LINE__); - } else { - $_ = &debug("
    \n
    ", __LINE__); - } - if ($tag eq 'deffn' || $tag eq 'defvr' || $tag eq 'deftp') { - $_ .= "$type $name"; - $_ .= " @args" if @args; - } elsif ($tag eq 'deftypefn' || $tag eq 'deftypevr' - || $tag eq 'defcv' || $tag eq 'defop') { - $ftype = $name; - $name = shift(@args); - $name =~ s/^\{(.*)\}$/$1/; - $_ .= "$type $ftype $name"; - $_ .= " @args" if @args; - } else { - warn "$ERROR Unknown definition type: $tag\n"; - $_ .= "$type $name"; - $_ .= " @args" if @args; - } - $_ .= &debug("\n
    ", __LINE__); - $name = &unprotect_html($name); - if ($tag eq 'deffn' || $tag eq 'deftypefn') { - unshift(@input_spool, "\@findex $name\n"); - } elsif ($tag eq 'defop') { - unshift(@input_spool, "\@findex $name on $ftype\n"); - } elsif ($tag eq 'defvr' || $tag eq 'deftypevr' || $tag eq 'defcv') { - unshift(@input_spool, "\@vindex $name\n"); - } else { - unshift(@input_spool, "\@tindex $name\n"); - } - $dont_html = 1; - } - } elsif ($end_tag) { - if ($format_map{$end_tag}) { - $in_pre = 0 if $format_map{$end_tag} eq 'PRE'; - $in_list-- if $format_map{$end_tag} eq 'UL' || $format_map{$end_tag} eq 'OL' ; - &html_pop_if('LI', 'P'); - &html_pop_if(); - push(@lines, &debug("\n", __LINE__)); - push(@lines, &html_debug("\n", __LINE__)); - } elsif ($end_tag =~ /^(|f|v|multi)table$/) { - unless (@tables) { - warn "$ERROR \@end $end_tag without \@*table\n"; - next; - } - ($table_type, $in_table) = split($;, shift(@tables)); - unless ($1 eq $table_type) { - warn "$ERROR \@end $end_tag without matching \@$end_tag\n"; - next; - } - if ($table_type eq "multi") { - push(@lines, "
    \n"); - &html_pop_if('TR'); - } else { - push(@lines, "\n"); - &html_pop_if('DD'); - } - &html_pop_if(); - if (@tables) { - ($table_type, $in_table) = split($;, $tables[0]); - } else { - $in_table = 0; - } - } elsif (defined($def_map{$end_tag})) { - push(@lines, &debug("\n", __LINE__)); - } elsif ($end_tag eq 'menu') { - &html_pop_if(); - push(@lines, $_); # must keep it for pass 2 - } - next; - } - # - # misc things - # - # protect texi and HTML things - &protect_texi; - $_ = &protect_html($_) unless $dont_html; - $dont_html = 0; - # substitution (unsupported things) - s/^\@center\s+//g; - s/^\@exdent\s+//g; - s/\@noindent\s+//g; - s/\@refill\s+//g; - # other substitutions - &simple_substitutions; - s/\@value{($VARRE)}/$value{$1}/eg; - s/\@footnote\{/\@footnote$docu_doc\{/g; # mark footnotes, cf. pass 4 - # - # analyze the tag again - # - if ($tag) { - if (defined($sec2level{$tag}) && $sec2level{$tag} > 0) { - if (/^\@$tag\s+(.+)$/) { - $name = $1; - $name =~ s/\s+$//; - $level = $sec2level{$tag}; - $name = &update_sec_num($tag, $level) . " $name" - if $number_sections && $tag !~ /^unnumbered/; - if ($tag =~ /heading$/) { - push(@lines, &html_debug("\n", __LINE__)); - if ($html_element ne 'body') { - # We are in a nice pickle here. We are trying to get a H? heading - # even though we are not in the body level. So, we convert it to a - # nice, bold, line by itself. - $_ = &debug("\n\n

    $name\n\n", __LINE__); - } else { - $_ = &debug("$name\n", __LINE__); - &html_push_if('body'); - } - print "# heading, section $name, level $level\n" - if $debug & $DEBUG_TOC; - } else { - if ($split_chapter) { - unless ($toplevel) { - # first time we see a "section" - unless ($level == 1) { - warn "$ERROR The first section found is not of level 1: $_"; - warn "$ERROR I'll split on sections of level $level...\n"; - } - $toplevel = $level; - } - if ($level == $toplevel) { - &next_doc; - push(@lines, $SPLITTAG) if $split_num++; - push(@sections, $name); - } - } - $sec_num++; - $docid = "SEC$sec_num"; - $tocid = "TOC$sec_num"; - # check biblio and glossary - $in_bibliography = ($name =~ /^([A-Z]|\d+)?(\.\d+)*\s*bibliography$/i); - $in_glossary = ($name =~ /^([A-Z]|\d+)?(\.\d+)*\s*glossary$/i); - # check node - if ($node) { - if ($node2sec{$node}) { - warn "$ERROR Duplicate node found: $node\n"; - } else { - $node2sec{$node} = $name; - $node2href{$node} = "$docu_doc#$docid"; - $node2next{$node} = $node_next; - $node2prev{$node} = $node_prev; - $node2up{$node} = $node_up; - print "# node $node, section $name, level $level\n" - if $debug & $DEBUG_TOC; - } - $node = ''; - $node_next = ''; - $node_prev = ''; - $node_next = ''; - } else { - print "# no node, section $name, level $level\n" - if $debug & $DEBUG_TOC; - } - # update TOC - while ($level > $curlevel) { - $curlevel++; - push(@toc_lines, "

      \n"); - } - while ($level < $curlevel) { - $curlevel--; - push(@toc_lines, "
    \n"); - } - $_ = &anchor($tocid, "$docu_doc#$docid", $name, 1); - $_ = &substitute_style($_); - push(@stoc_lines, $_) if ($level == 1); - push(@toc_lines, "
  • " . $_ ."
    • "); - # update DOC - push(@lines, &html_debug("\n", __LINE__)); - &html_reset; -# $_ = "".&anchor($docid, "$docu_toc#$tocid", $name)."\n"; -# obachman: Don't use href - $_ = "".&anchor($docid, '', $name)."\n"; - $_ = &debug($_, __LINE__); - push(@lines, &html_debug("\n", __LINE__)); - } - # update DOC - foreach $line (split(/\n+/, $_)) { - push(@lines, "$line\n"); - } - next; - } else { - warn "$ERROR Bad section line: $_"; - } - } else { - # track variables - $value{$1} = $2, next if /^\@set\s+($VARRE)\s+(.*)$/o; - delete $value{$1}, next if /^\@clear\s+($VARRE)\s*$/o; - # store things - $value{'_setfilename'} = $1, next if /^\@setfilename\s+(.*)$/; - $value{'_settitle'} = $1, next if /^\@settitle\s+(.*)$/; - $value{'_author'} .= "$1\n", next if /^\@author\s+(.*)$/; - $value{'_subtitle'} .= "$1\n", next if /^\@subtitle\s+(.*)$/; - $value{'_title'} .= "$1\n", next if /^\@title\s+(.*)$/; - # index - if (/^\@(..?)index\s+/) { - unless ($valid_index{$1}) { - warn "$ERROR Undefined index command: $_"; - next; - } - $id = 'IDX' . ++$idx_num; - $index = $1 . 'index'; - $what = &substitute_style($'); - $what =~ s/\s+$//; - print "# found $index for '$what' id $id\n" - if $debug & $DEBUG_INDEX; - eval(<\n", __LINE__)); - push(@lines, &anchor($id, '', $INVISIBLE_MARK, !$in_pre)); - &html_push('P'); - } elsif ($html_element eq 'DL' || - $html_element eq 'UL' || - $html_element eq 'OL' ) { - $deferred_ref .= &anchor($id, '', $INVISIBLE_MARK, !$in_pre) . " "; - } - next; - } - # list item - if (/^\s*\@itemx?\s+/) { - $what = $'; - $what =~ s/\s+$//; - if ($in_bibliography && $use_bibliography) { - if ($what =~ /^$BIBRE$/o) { - $id = 'BIB' . ++$bib_num; - $bib2href{$what} = "$docu_doc#$id"; - print "# found bibliography for '$what' id $id\n" - if $debug & $DEBUG_BIB; - $what = &anchor($id, '', $what); - } - } elsif ($in_glossary && $use_glossary) { - $id = 'GLOSS' . ++$gloss_num; - $entry = $what; - $entry =~ tr/A-Z/a-z/ unless $entry =~ /^[A-Z\s]+$/; - $gloss2href{$entry} = "$docu_doc#$id"; - print "# found glossary for '$entry' id $id\n" - if $debug & $DEBUG_GLOSS; - $what = &anchor($id, '', $what); - } - &html_pop_if('P'); - if ($html_element eq 'DL' || $html_element eq 'DD') { - if ($things_map{$in_table} && !$what) { - # special case to allow @table @bullet for instance - push(@lines, &debug("
    $things_map{$in_table}\n", __LINE__)); - } else { - push(@lines, &debug("
    \@$in_table\{$what\}\n", __LINE__)); - } - push(@lines, "
    "); - &html_push('DD') unless $html_element eq 'DD'; - if ($table_type) { # add also an index - unshift(@input_spool, "\@${table_type}index $what\n"); - } - } elsif ($html_element eq 'TABLE') { - push(@lines, &debug("$what\n", __LINE__)); - &html_push('TR'); - } elsif ($html_element eq 'TR') { - push(@lines, &debug("\n", __LINE__)); - push(@lines, &debug("$what\n", __LINE__)); - } else { - push(@lines, &debug("
  • $what\n", __LINE__)); - &html_push('LI') unless $html_element eq 'LI'; - } - push(@lines, &html_debug("\n", __LINE__)); - if ($deferred_ref) { - push(@lines, &debug("$deferred_ref\n", __LINE__)); - $deferred_ref = ''; - } - next; - } elsif (/^\@tab\s+(.*)$/) { - push(@lines, "$1\n"); - next; - } - } - } - # paragraph separator - if ($_ eq "\n") { - next if $#lines >= 0 && $lines[$#lines] eq "\n"; - if ($html_element eq 'P') { - push(@lines, "\n"); - $_ = &debug("\n", __LINE__); - &html_pop; - } - } elsif ($html_element eq 'body' || $html_element eq 'BLOCKQUOTE') { - push(@lines, "

    \n"); - &html_push('P'); - $_ = &debug($_, __LINE__); - } - # otherwise - push(@lines, $_); -} - -# finish TOC -$level = 0; -while ($level < $curlevel) { - $curlevel--; - push(@toc_lines, "\n"); -} - -print "# end of pass 1\n" if $verbose; - -#+++############################################################################ -# # -# Pass 2/3: handle style, menu, index, cross-reference # -# # -#---############################################################################ - -@lines2 = (); # whole document (2nd pass) -@lines3 = (); # whole document (3rd pass) -$in_menu = 0; # am I inside a menu - -while (@lines) { - $_ = shift(@lines); - # - # special case (protected sections) - # - if (/^$PROTECTTAG/o) { - push(@lines2, $_); - next; - } - # - # menu - # - $in_menu = 1, push(@lines2, &debug("

      \n", __LINE__)), next if /^\@menu\b/; - $in_menu = 0, push(@lines2, &debug("
    \n", __LINE__)), next if /^\@end\s+menu\b/; - if ($in_menu) { - if (/^\*\s+($NODERE)::/o) { - $descr = $'; - chop($descr); - &menu_entry($1, $1, $descr); - } elsif (/^\*\s+(.+):\s+([^\t,\.\n]+)[\t,\.\n]/) { - $descr = $'; - chop($descr); - &menu_entry($1, $2, $descr); - } elsif (/^\*/) { - warn "$ERROR Bad menu line: $_"; - } else { # description continued? - push(@lines2, $_); - } - next; - } - # - # printindex - # - # obachman: replace ^\@printindex by \@printindex, otherwise - # generation in debug mode fails - if (/\@printindex\s+(\w\w)\b/) { - local($index, *ary, @keys, $key, $letter, $last_letter, @refs); - if ($predefined_index{$1}) { - $index = $predefined_index{$1} . 'index'; - } else { - $index = $1 . 'index'; - } - eval("*ary = *$index"); - @keys = keys(%ary); - foreach $key (@keys) { - $_ = $key; - 1 while s/<(\w+)>\`(.*)\'<\/\1>/$2/; # remove HTML tags with quotes - 1 while s/<(\w+)>(.*)<\/\1>/$2/; # remove HTML tags - $_ = &unprotect_html($_); - &unprotect_texi; - tr/A-Z/a-z/; # lowercase - $key2alpha{$key} = $_; - print "# index $key sorted as $_\n" - if $key ne $_ && $debug & $DEBUG_INDEX; - } - push(@lines2, "Jump to:\n"); - $last_letter = undef; - foreach $key (sort byalpha @keys) { - $letter = substr($key2alpha{$key}, 0, 1); - $letter = substr($key2alpha{$key}, 0, 2) if $letter eq $;; - if (!defined($last_letter) || $letter ne $last_letter) { - push(@lines2, "-\n") if defined($last_letter); - push(@lines2, "" . &protect_html($letter) . "\n"); - $last_letter = $letter; - } - } - push(@lines2, "

    \n"); - $last_letter = undef; - foreach $key (sort byalpha @keys) { - $letter = substr($key2alpha{$key}, 0, 1); - $letter = substr($key2alpha{$key}, 0, 2) if $letter eq $;; - if (!defined($last_letter) || $letter ne $last_letter) { - push(@lines2, "\n") if defined($last_letter); - push(@lines2, "

    " . &protect_html($letter) . "

    \n"); - push(@lines2, "\n"); - $last_letter = $letter; - } - @refs = (); - foreach (split(/$;/, $ary{$key})) { - push(@refs, &anchor('', $_, $key, 0)); - } - push(@lines2, "
  • " . join(", ", @refs) . "\n"); - } - push(@lines2, "
    • \n") if defined($last_letter); - next; - } - # - # simple style substitutions - # - $_ = &substitute_style($_); - # - # xref - # - while (/\@(x|px|info|)ref{($XREFRE)(}?)/o) { - # note: Texinfo may accept other characters - ($type, $nodes, $full) = ($1, $2, $3); - ($before, $after) = ($`, $'); - if (! $full && $after) { - warn "$ERROR Bad xref (no ending } on line): $_"; - $_ = "$before$;0${type}ref\{$nodes$after"; - next; # while xref - } - if ($type eq 'x') { - $type = 'See '; - } elsif ($type eq 'px') { - $type = 'see '; - } elsif ($type eq 'info') { - $type = 'See Info'; - } else { - $type = ''; - } - unless ($full) { - $next = shift(@lines); - $next = &substitute_style($next); - chop($nodes); # remove final newline - if ($next =~ /\}/) { # split on 2 lines - $nodes .= " $`"; - $after = $'; - } else { - $nodes .= " $next"; - $next = shift(@lines); - $next = &substitute_style($next); - chop($nodes); - if ($next =~ /\}/) { # split on 3 lines - $nodes .= " $`"; - $after = $'; - } else { - warn "$ERROR Bad xref (no ending }): $_"; - $_ = "$before$;0xref\{$nodes$after"; - unshift(@lines, $next); - next; # while xref - } - } - } - $nodes =~ s/\s+/ /g; # remove useless spaces - @args = split(/\s*,\s*/, $nodes); - $node = $args[0]; # the node is always the first arg - &normalise_node($node); - $sec = $node2sec{$node}; - if (@args == 5) { # reference to another manual - $sec = $args[2] || $node; - $man = $args[4] || $args[3]; - $_ = "${before}${type}section `$sec' in \@cite{$man}$after"; - } elsif ($type =~ /Info/) { # inforef - warn "$ERROR Wrong number of arguments: $_" unless @args == 3; - ($nn, $_, $in) = @args; - $_ = "${before}${type} file `$in', node `$nn'$after"; - } elsif ($sec) { - $href = $node2href{$node}; - $_ = "${before}${type}section " . &anchor('', $href, $sec) . $after; - } else { - warn "$ERROR Undefined node ($node): $_"; - $_ = "$before$;0xref{$nodes}$after"; - } - } - - if (/^\@image\s*{/) { - s/\@image\s*{//; - my (@args) = split (/,/); - my $base = $args[0]; - my $image; - if (-r "$base.jpg") { - $image = "$base.jpg"; - } elsif (-r "$base.png") { - $image = "$base.png"; - } elsif (-r "$base.gif") { - $image = "$base.gif"; - } else { - warn "$ERROR no image file for $base: $_"; - } - $_ = "\"$base\""; - } - - # - # try to guess bibliography references or glossary terms - # - unless (/^/) { - $done .= $pre . &anchor('', $href, $what); - } else { - $done .= "$pre$what"; - } - $_ = $post; - } - $_ = $done . $_; - } - if ($use_glossary) { - $done = ''; - while (/\b\w+\b/) { - ($pre, $what, $post) = ($`, $&, $'); - $entry = $what; - $entry =~ tr/A-Z/a-z/ unless $entry =~ /^[A-Z\s]+$/; - $href = $gloss2href{$entry}; - if (defined($href) && $post !~ /^[^<]*<\/A>/) { - $done .= $pre . &anchor('', $href, $what); - } else { - $done .= "$pre$what"; - } - $_ = $post; - } - $_ = $done . $_; - } - } - # otherwise - push(@lines2, $_); -} -print "# end of pass 2\n" if $verbose; - -# -# split style substitutions -# -while (@lines2) { - $_ = shift(@lines2); - # - # special case (protected sections) - # - if (/^$PROTECTTAG/o) { - push(@lines3, $_); - next; - } - # - # split style substitutions - # - $old = ''; - while ($old ne $_) { - $old = $_; - if (/\@(\w+)\{/) { - ($before, $style, $after) = ($`, $1, $'); - if (defined($style_map{$style})) { - $_ = $after; - $text = ''; - $after = ''; - $failed = 1; - while (@lines2) { - if (/\}/) { - $text .= $`; - $after = $'; - $failed = 0; - last; - } else { - $text .= $_; - $_ = shift(@lines2); - } - } - if ($failed) { - die "* Bad syntax (\@$style) after: $before\n"; - } else { - $text = &apply_style($style, $text); - $_ = "$before$text$after"; - } - } - } - } - # otherwise - push(@lines3, $_); -} -print "# end of pass 3\n" if $verbose; - -#+++############################################################################ -# # -# Pass 4: foot notes, final cleanup # -# # -#---############################################################################ - -@foot_lines = (); # footnotes -@doc_lines = (); # final document -$end_of_para = 0; # true if last line is

    - -while (@lines3) { - $_ = shift(@lines3); - # - # special case (protected sections) - # - if (/^$PROTECTTAG/o) { - push(@doc_lines, $_); - $end_of_para = 0; - next; - } - # - # footnotes - # - while (/\@footnote([^\{\s]+)\{/) { - ($before, $d, $after) = ($`, $1, $'); - $_ = $after; - $text = ''; - $after = ''; - $failed = 1; - while (@lines3) { - if (/\}/) { - $text .= $`; - $after = $'; - $failed = 0; - last; - } else { - $text .= $_; - $_ = shift(@lines3); - } - } - if ($failed) { - die "* Bad syntax (\@footnote) after: $before\n"; - } else { - $foot_num++; - $docid = "DOCF$foot_num"; - $footid = "FOOT$foot_num"; - $foot = "($foot_num)"; - push(@foot_lines, "

    " . &anchor($footid, "$d#$docid", $foot) . "

    \n"); - $text = "

    $text" unless $text =~ /^\s*

    /; - push(@foot_lines, "$text\n"); - $_ = $before . &anchor($docid, "$docu_foot#$footid", $foot) . $after; - } - } - # - # remove unnecessary

    - # - if (/^\s*

    \s*$/) { - next if $end_of_para++; - } else { - $end_of_para = 0; - } - # otherwise - push(@doc_lines, $_); -} - -print "# end of pass 4\n" if $verbose; - -#+++############################################################################ -# # -# Pass 5: print things # -# # -#---############################################################################ - -$l2h = &l2h_FinishToLatex if ($l2h); -$l2h = &l2h_ToHtml if ($l2h); -$l2h = &l2h_InitFromHtml if ($l2h); - -$header = < -EOT - -$full_title = $value{'_title'} || $value{'_settitle'} || "Untitled Document"; -$title = $value{'_settitle'} || $full_title; -$_ = &substitute_style($full_title); -&unprotect_texi; -s/\n$//; # rmv last \n (if any) -$full_title = "

    " . join("

    \n

    ", split(/\n/, $_)) . "

    \n"; - -# -# print ToC -# -if (!$monolithic && @toc_lines) { - if (open(FILE, "> $docu_toc")) { - print "# creating $docu_toc...\n" if $verbose; - &print_toplevel_header("$title - Table of Contents"); - &print_ruler; - &print(*toc_lines, FILE); - &print_toplevel_footer; - close(FILE); - } else { - warn "$ERROR Can't write to $docu_toc: $!\n"; - } -} - -# -# print sToC -# -if (!$monolithic && @stoc_lines) -{ - if (open(FILE, "> $docu_stoc")) - { - print "# creating $docu_stoc...\n" if $verbose; - &print_toplevel_header("$title - Short Table of Contents"); - &print_ruler; - print FILE "
      \n"; - foreach $stoc (@stoc_lines) - { - $stoc = "
    • $stoc
      • \n"; - } - &print(*stoc_lines, FILE); - print FILE "
    \n"; - &print_toplevel_footer; - close(FILE); - } - else - { - warn "$ERROR Can't write to $docu_toc: $!\n"; - } -} - -# -# print footnotes -# -if (!$monolithic && @foot_lines) { - if (open(FILE, "> $docu_foot")) { - print "# creating $docu_foot...\n" if $verbose; - &print_toplevel_header("$title - Footnotes"); - &print_ruler; - &print(*foot_lines, FILE); - &print_toplevel_footer; - close(FILE); - } else { - warn "$ERROR Can't write to $docu_foot: $!\n"; - } -} - -# -# print document -# -sub clean_name -{ - local ($_); - $_ = &remove_style($_[0]); - &unprotect_texi; - return $_; -} - -sub clean_href -{ - local($href) = @_; - $href =~ s/(.*)#.*$/$1/; - return $href; -} - -sub default_top_navigation -{ - return &default_navigation . "

    \n"; -} - -sub default_bottom_navigation -{ - local($navigation); - - return "

    \n" . &default_navigation. "\n"; -} - -sub default_navigation -{ - local($navigation); - - $navigation .= " [" . &anchor('', ($T2H_CONTENT_HREF ne $T2H_THIS_HREF ? $T2H_CONTENT_HREF : ''), "Contents") . "]  "; - $navigation .= " [" . &anchor('', ($T2H_BACK_HREF ne $T2H_THIS_HREF ? $T2H_BACK_HREF : ''), "Back") . "]  "; - $navigation .= " [" . &anchor('', ($T2H_PREV_HREF ne $T2H_THIS_HREF ? $T2H_PREV_HREF : ''), "Prev") . "]  "; - $navigation .= " [" . &anchor('', ($T2H_UP_HREF ne $T2H_THIS_HREF ? $T2H_UP_HREF : ''), "Up") . "]  "; - $navigation .= " [" . &anchor('', ($T2H_NEXT_HREF ne $T2H_THIS_HREF ? $T2H_NEXT_HREF : ''), "Next") . "]  "; - $navigation .= " [" . &anchor('', ($T2H_FORWARD_HREF ne $T2H_THIS_HREF ? $T2H_FORWARD_HREF : ''), "Forward"). "]  ";; - - return $navigation; -} - - - -if ($split_chapter || $split_node) { # split - $doc_num = 0; - $last_num = scalar(@sections); - $T2H_FIRST_HREF = &doc_href(1); - $T2H_FIRST = &clean_name($sections[1]); - $T2H_LAST_HREF = &doc_href($last_num); - $T2H_LAST = &clean_name($sections[$last_num -1]); - $T2H_CONTENT_HREF = $docu_toc; - $T2H_THIS = ''; - $T2H_THIS_HREF = ''; - $T2H_FORWARD = &clean_name($sections[0]); - $T2H_FORWARD_HREF = &doc_href(1); - while ($section = shift(@sections)) { - &next_doc; - $T2H_BACK = $T2H_THIS; - $T2H_BACK_HREF = $T2H_THIS_HREF; - $T2H_THIS = $T2H_FORWARD; - $T2H_THIS_HREF = $T2H_FORWARD_HREF; - $T2H_FORWARD = &clean_name($sections[1]) if ($doc_num < $last_num); - $T2H_FORWARD_HREF = &doc_href($doc_num + 1) if ($doc_num < $last_num); - $T2H_PREV = &clean_name($node2prev{$section}); - $T2H_PREV_HREF = &clean_href($node2href{$node2prev{$section}}); - $T2H_NEXT = &clean_name($node2next{$section}); - $T2H_NEXT_HREF = &clean_href($node2href{$node2next{$section}}); - $T2H_UP = &clean_name($node2up{$section}); - $T2H_UP_HREF = &clean_href($node2href{$node2up{$section}}); - if (open(FILE, "> $docu_doc")) { - print "# creating $docu_doc...\n" if $verbose; - &print_header("$title - $section"); - if (defined(&t2h_custom_top_navigation)) - { - $navigation = &t2h_custom_top_navigation; - } - else - { - $navigation = &default_top_navigation; - } - print FILE $navigation; - @tmp_lines = (); - while (@doc_lines) { - $_ = shift(@doc_lines); - last if ($_ eq $SPLITTAG); - push(@tmp_lines, $_); - } - &print(*tmp_lines, FILE); - if (defined(&t2h_custom_bottom_navigation)) - { - $navigation = &t2h_custom_bottom_navigation; - } - else - { - $navigation = &default_bottom_navigation; - } - print FILE $navigation; - &print_footer; - close(FILE); - } else { - warn "$ERROR Can't write to $docu_doc: $!\n"; - } - } -} else { # not split - if (open(FILE, "> $docu_doc")) { - print "# creating $docu_doc...\n" if $verbose; - if ($monolithic || !@toc_lines) { - &print_toplevel_header($title); - } else { - &print_header($title); - print FILE $full_title; - } - if ($monolithic && @toc_lines) { - &print_ruler; - print FILE "

    Table of Contents

    \n"; - &print(*toc_lines, FILE); - } - &print_ruler; - &print(*doc_lines, FILE); - if ($monolithic && @foot_lines) { - &print_ruler; - print FILE "

    Footnotes

    \n"; - &print(*foot_lines, FILE); - } - if ($monolithic || !@toc_lines) { - &print_toplevel_footer; - } else { - &print_footer; - } - close(FILE); - } else { - warn "$ERROR Can't write to $docu_doc: $!\n"; - } -} - -&l2h_FinishFromHtml if ($l2h); -&l2h_Finish if($l2h); -print "# that's all folks\n" if $verbose; - -#+++############################################################################ -# # -# Low level functions # -# # -#---############################################################################ - -sub update_sec_num { - local($name, $level) = @_; - my $ret; - - $level--; # here we start at 0 - if ($name =~ /^appendix/) { - # appendix style - if (defined(@appendix_sec_num)) { - &incr_sec_num($level, @appendix_sec_num); - } else { - @appendix_sec_num = ('A', 0, 0, 0); - } - $ret = join('.', @appendix_sec_num[0..$level]); - } else { - # normal style - if (defined(@normal_sec_num)) { - &incr_sec_num($level, @normal_sec_num); - } else { - @normal_sec_num = (1, 0, 0, 0); - } - $ret = join('.', @normal_sec_num[0..$level]); - } - - $ret .= "." if $level == 0; - return $ret; -} - -sub incr_sec_num { - local($level, $l); - $level = shift(@_); - $_[$level]++; - foreach $l ($level+1 .. 3) { - $_[$l] = 0; - } -} - -sub check { - local($_, %seen, %context, $before, $match, $after); - - while (<>) { - if (/\@(\*|\.|\:|\@|\{|\})/) { - $seen{$&}++; - $context{$&} .= "> $_" if $verbose; - $_ = "$`XX$'"; - redo; - } - if (/\@(\w+)/) { - ($before, $match, $after) = ($`, $&, $'); - if ($before =~ /\b[\w-]+$/ && $after =~ /^[\w-.]*\b/) { # e-mail address - $seen{'e-mail address'}++; - $context{'e-mail address'} .= "> $_" if $verbose; - } else { - $seen{$match}++; - $context{$match} .= "> $_" if $verbose; - } - $match =~ s/^\@/X/; - $_ = "$before$match$after"; - redo; - } - } - - foreach (sort(keys(%seen))) { - if ($verbose) { - print "$_\n"; - print $context{$_}; - } else { - print "$_ ($seen{$_})\n"; - } - } -} - -sub open { - local($name) = @_; - - ++$fh_name; - if (open($fh_name, $name)) { - unshift(@fhs, $fh_name); - } else { - warn "$ERROR Can't read file $name: $!\n"; - } -} - -sub init_input { - @fhs = (); # hold the file handles to read - @input_spool = (); # spooled lines to read - $fh_name = 'FH000'; - &open($docu); -} - -sub next_line { - local($fh, $line); - - if (@input_spool) { - $line = shift(@input_spool); - return($line); - } - while (@fhs) { - $fh = $fhs[0]; - $line = <$fh>; - return($line) if $line; - close($fh); - shift(@fhs); - } - return(undef); -} - -# used in pass 1, use &next_line -sub skip_until { - local($tag) = @_; - local($_); - - while ($_ = &next_line) { - return if /^\@end\s+$tag\s*$/; - } - die "* Failed to find '$tag' after: " . $lines[$#lines]; -} - -# used in pass 1 for l2h use &next_line -sub string_until { - local($tag) = @_; - local($_, $string); - - while ($_ = &next_line) { - return $string if /^\@end\s+$tag\s*$/; -# $_ =~ s/hbox/mbox/g; - $string = $string.$_; - } - die "* Failed to find '$tag' after: " . $lines[$#lines]; -} - -# -# HTML stacking to have a better HTML output -# - -sub html_reset { - @html_stack = ('html'); - $html_element = 'body'; -} - -sub html_push { - local($what) = @_; - push(@html_stack, $html_element); - $html_element = $what; -} - -sub html_push_if { - local($what) = @_; - push(@html_stack, $html_element) - if ($html_element && $html_element ne 'P'); - $html_element = $what; -} - -sub html_pop { - $html_element = pop(@html_stack); -} - -sub html_pop_if { - local($elt); - - if (@_) { - foreach $elt (@_) { - if ($elt eq $html_element) { - $html_element = pop(@html_stack) if @html_stack; - last; - } - } - } else { - $html_element = pop(@html_stack) if @html_stack; - } -} - -sub html_debug { - local($what, $line) = @_; - return("$what") - if $debug & $DEBUG_HTML; - return($what); -} - -# to debug the output... -sub debug { - local($what, $line) = @_; - return("$what") - if $debug & $DEBUG_HTML; - return($what); -} - -sub normalise_node { - $_[0] =~ s/\s+/ /g; - $_[0] =~ s/ $//; - $_[0] =~ s/^ //; -} - -sub menu_entry { - local($entry, $node, $descr) = @_; - local($href); - - &normalise_node($node); - $href = $node2href{$node}; - if ($href) { - $descr =~ s/^\s+//; - $descr = ": $descr" if $descr; - push(@lines2, "
  • " . &anchor('', $href, $entry) . "$descr\n"); - } else { - warn "$ERROR Undefined node ($node): $_"; - } -} - -sub do_ctrl { "^$_[0]" } - -sub do_email { - local($addr, $text) = split(/,\s*/, $_[0]); - - $text = $addr unless $text; - &anchor('', "mailto:$addr", $text); -} - -sub do_sc -{ - # l2h does this much better - return &l2h_ToLatex("{\\sc ".&unprotect_html($_[0])."}") if ($l2h); - return "\U$_[0]\E"; -} - -sub do_math -{ - return &l2h_ToLatex("\$".&unprotect_html($_[0])."\$") if ($l2h); - return "".$text.""; -} - -sub do_uref { - local($url, $text) = split(/,\s*/, $_[0]); - - $text = $url unless $text; - &anchor('', $url, $text); -} - -sub do_url { &anchor('', $_[0], $_[0]) } - -sub apply_style { - local($texi_style, $text) = @_; - local($style); - - $style = $style_map{$texi_style}; - if (defined($style)) { # known style - if ($style =~ /^\"/) { # add quotes - $style = $'; - $text = "\`$text\'"; - } - if ($style =~ /^\&/) { # custom - $style = $'; - $text = &$style($text); - } elsif ($style) { # good style - $text = "<$style>$text"; - } else { # no style - } - } else { # unknown style - $text = undef; - } - return($text); -} - -# remove Texinfo styles -sub remove_style { - local($_) = @_; - s/\@\w+{([^\{\}]+)}/$1/g; - return($_); -} - -sub substitute_style { - local($_) = @_; - local($changed, $done, $style, $text); - - $changed = 1; - while ($changed) { - $changed = 0; - $done = ''; - while (/\@(\w+){([^\{\}]+)}/) { - $text = &apply_style($1, $2); - if ($text) { - $_ = "$`$text$'"; - $changed = 1; - } else { - $done .= "$`\@$1"; - $_ = "{$2}$'"; - } - } - $_ = $done . $_; - } - return($_); -} - -sub anchor { - local($name, $href, $text, $newline) = @_; - local($result); - - $result = "

    \n"; -} - -sub print_header { - local($_); - - # clean the title - $_ = &remove_style($_[0]); - &unprotect_texi; - # print the header - if ($doctype eq 'html2') { - print FILE $html2_doctype; - } elsif ($doctype) { - print FILE $doctype; - } - print FILE < - -$header -$_ - - -EOT -} - -sub print_toplevel_header { - local($_); - - &print_header; # pass given arg... - print FILE $full_title; - if ($value{'_subtitle'}) { - $value{'_subtitle'} =~ s/\n+$//; - foreach (split(/\n/, $value{'_subtitle'})) { - $_ = &substitute_style($_); - &unprotect_texi; - print FILE "

    $_

    \n"; - } - } - if ($value{'_author'}) { - $value{'_author'} =~ s/\n+$//; - foreach (split(/\n/, $value{'_author'})) { - $_ = &substitute_style($_); - &unprotect_texi; - s/[\w.-]+\@[\w.-]+/    $&<\/A>/g; - print FILE "
    $_
    \n"; - } - } - print FILE "

    \n"; -} - -sub print_footer -{ - local($_) = $T2H_ADDRESS; - if ((defined &custom_address)&&($_)) - { - print FILE join('', &custom_address($_) , "\n\n\n"); - } - elsif($_) - { - print FILE "

    \n$_\n
    " . "\n\n\n"; - } - else - { - print FILE "\n\n\n" - } -} - -sub print_toplevel_footer { - &print_ruler; - print FILE <texi2html     $value{texi2html}. -EOT - &print_footer; -} - -sub protect_texi { - # protect @ { } ` ' - s/\@\@/$;0/go; - s/\@\{/$;1/go; - s/\@\}/$;2/go; - s/\@\`/$;3/go; - s/\@\'/$;4/go; -} - -sub protect_html { - local($what) = @_; - # protect & < > - $what =~ s/\&/\&\#38;/g; - $what =~ s/\/\&\#62;/g; - # but recognize some HTML things - $what =~ s/\&\#60;\/A\&\#62;/<\/A>/g; # - $what =~ s/\&\#60;A ([^\&]+)\&\#62;//g; # - $what =~ s/\&\#60;IMG ([^\&]+)\&\#62;//g; # - return($what); -} - -sub unprotect_texi { - s/$;0/\@/go; - s/$;1/\{/go; - s/$;2/\}/go; - s/$;3/\`/go; - s/$;4/\'/go; -} - -sub unprotect_html { - local($what) = @_; - $what =~ s/\&\#38;/\&/g; - $what =~ s/\&\#60;/\/g; - return($what); -} - -sub byalpha { - $key2alpha{$a} cmp $key2alpha{$b}; -} - -############################################################################## - - # These next few lines are legal in both Perl and nroff. - -.00 ; # finish .ig - -'di \" finish diversion--previous line must be blank -.nr nl 0-1 \" fake up transition to first page again -.nr % 0 \" start at page 1 -'; __END__ ############# From here on it's a standard manual page ############ -.TH TEXI2HTML 1 "01/05/98" -.AT 3 -.SH NAME -texi2html \- a Texinfo to HTML converter -.SH SYNOPSIS -.B texi2html [options] file -.PP -.B texi2html -check [-verbose] files -.SH DESCRIPTION -.I Texi2html -converts the given Texinfo file to a set of HTML files. It tries to handle -most of the Texinfo commands. It creates hypertext links for cross-references, -footnotes... -.PP -It also tries to add links from a reference to its corresponding entry in the -bibliography (if any). It may also handle a glossary (see the -.B \-glossary -option). -.PP -.I Texi2html -may furthermore use latex2html to generate HTML (code and/or images) for @math -and @iftex tags (see the -.B \-l2h -option). -.PP -.I Texi2html -creates several files depending on the contents of the Texinfo file and on -the chosen options (see FILES). -.PP -The HTML files created by -.I texi2html -are closer to TeX than to Info, that's why -.SH OPTIONS -.TP 12 -.B \-check -Check the given file and give the list of all things that may be Texinfo commands. -This may be used to check the output of -.I texi2html -to find the Texinfo commands that have been left in the HTML file. -.TP -.B \-expandinfo -Expand @ifinfo sections, not @iftex ones. -.TP -.B \-glossary -Use the section named 'Glossary' to build a list of terms and put links in the HTML -document from each term toward its definition. -.TP -.B \-invisible \fIname\fP -Use \fIname\fP to create invisible destination anchors for index links -(you can for instance use the invisible.xbm file shipped with this program). -This is a workaround for a known bug of many WWW browsers, including netscape. -.TP -.B \-I \fIdir\fP -Look also in \fIdir\fP to find included files. -.TP -.B \-menu -Show the Texinfo menus; by default they are ignored. -.TP -.B \-monolithic -Output only one file, including the table of contents and footnotes. -.TP -.B \-number -Number the sections. -.TP -.B \-split_chapter -Split the output into several HTML files (one per main section: -chapter, appendix...). -.TP -.B \-split_node -Split the output into several HTML files (one per node). -.TP -.B \-l2h -Use latex2html for content of @math and @tex tags. Content must be such that -both, latex and tex, can translate it correctly. I.e., no tex-only constructs -must be used. -.TP -.B \-l2h_latex2html \fIprog\fP -Use \fIprog\fP as latex2html program (default \fIlatex2html\fP). -Program must be executable. -.TP -.B \-l2h_init \fIfile\fP -Use \fIfile\fP as latex2html init file. \fIfile\fP should be used to specify in which way latex2html handles mathematical expressions and formulas. - -Note that latex2html locates -(and uses) init-files in the following order (provided they exist): -(1) global init file (usually in latex2html source dir) -(2) $HOME/.latex2html_init -(3) ./.latex2html_init -(4) init file given on command line. -.TP -.B \-l2h_dir \fIdir\fP -Use \fIdir\fP as tmp dir for latex2html. This directory (resp. its path) -must not contain a dot (i.e., a "."). -.TP -.B \-l2h_keep -Keep temporary files which were generated to run latex2html. -.TP -.B \-l2h_skip -Do not really run latex2html. Use (kept) files of previous runs, instead. -.TP -.B \-usage -Print usage instructions, listing the current available command-line options. -.TP -.B \-verbose -Give a verbose output. Can be used with the -.B \-check -option. -.PP -.SH FILES -By default -.I texi2html -creates the following files (foo being the name of the Texinfo file): -.TP 16 -.B foo_toc.html -The table of contents. -.TP -.B foo.html -The document's contents. -.TP -.B foo_foot.html -The footnotes (if any). -.TP -.B foo_l2h_img* -Images generated by latex2html (if any). -.PP -When used with the -.B \-split -option, it creates several files (one per chapter or node), named -.B foo_n.html -(n being the index of the chapter or node), instead of the single -.B foo.html -file. -.PP -When used with the -.B \-monolithic -option, it creates only one file: -.B foo.html -.SH VARIABLES -.I texi2html -predefines the following variables: \fBhtml\fP, \fBtexi2html\fP. -.SH ADDITIONAL COMMANDS -.I texi2html -implements the following non-Texinfo commands (maybe they are in Texinfo now...): -.TP 16 -.B @ifhtml -This indicates the start of an HTML section, this section will passed through -without any modification. -.TP -.B @end ifhtml -This indicates the end of an HTML section. -.SH VERSION -This is \fItexi2html\fP version 1.56k, 1999-02-20. -.PP -The latest version of \fItexi2html\fP and \fIlatex22html\fPcan be found in WWW, cf. URLs -http://wwwinfo.cern.ch/dis/texi2html/ -.br -http://texinfo.org/texi2html/ -.br -http://www-dsed.llnl.gov/files/programs/unix/latex2html -.br -.SH AUTHOR -The main author is Lionel Cons, CERN IT/DIS/OSE, Lionel.Cons@cern.ch. -Many other people around the net contributed to this program. -.SH COPYRIGHT -This program is the intellectual property of the European -Laboratory for Particle Physics (known as CERN). No guarantee whatsoever is -provided by CERN. No liability whatsoever is accepted for any loss or damage -of any kind resulting from any defect or inaccuracy in this information or -code. -.PP -CERN, 1211 Geneva 23, Switzerland -.SH "SEE ALSO" -GNU Texinfo Documentation Format, -HyperText Markup Language (HTML), -World Wide Web (WWW). -.SH BUGS -This program does not understand all Texinfo commands (yet). A row of -a mutlicolumn table has to be in one line. -.PP -TeX specific commands (normally enclosed in @iftex) will be -passed over unmodified, unless latex2html is enabled. -.ex