merge with 4.0

#!PATH_TO_PERL -*- perl -*-

#!/usr/bin/perl

# Add path to perl on the previous line and make this executable

# if you want to use this as a normal script.

'di ';

#-##############################################################################

# @(#)texi2html	1.52 971230 Written (mainly) by Lionel Cons, Lionel.Cons@cern.ch

# Enhanced by David Axmark, david@detron.se

# Enhanced by David Axmark

# The man page for this program is included at the end of this file and can be

# viewed using the command 'nroff -man texi2html'.

$XREFRE = '[^@{}]+';			# RE for a xref (should use NODERE)

$ERROR = "***";			        # prefix for errors and warnings

$THISPROG = "texi2html 1.52 (hacked by david\@detron.se)";	# program name and version

$HOMEPAGE = "http://www.mathematik.uni-kl.de/~obachman/Texi2html/"; # program home page

$THISPROG = "texi2html 1.52 (with additions by MySQL AB)";	# program name and version

$TODAY = &pretty_date;			# like "20 September 1993"

$SPLITTAG = "<!-- SPLIT HERE -->\n";	# tag to know where to split

$PROTECTTAG = "_ThisIsProtected_";	# tag to recognize protected sections

#

%accent_map = (

	       '"',  'uml',

	       '\'', 'acute',

	       ',{',  'cedil',

	       '~',  'tilde',

	       '^',  'circ',

	       '`',  'grave',

	       '\'', 'acute',

	       'ringaccent{',  'ring',

	       );

#

#

%simple_map = (

	       # cf. makeinfo.c

	       "*", "<BR>",	# HTML+

	       "*", "<br />",	# HTML+

	       " ", " ",

	       "\n", "\n",

	       "|", "",

	       "!", "!",

	       "?", "?",

	       ".", ".",

               # @- means "allow word break", not —

	       "-", "",

	       );

#

#

%things_map = (

	       'TeX', 'TeX',

	       'br', '<P>',	# paragraph break

	       'br', '<p>',	# paragraph break

	       'bullet', '*',

	       'copyright', '(C)',

	       'registeredsymbol', '(R)',

	       'dots', '...',

	       'equiv', '==',

	       'error', 'error-->',

%style_map = (

	      'asis', '',

	      'b', 'B',

	      'cite', 'CITE',

	      'code', 'CODE',

	      'cite', 'cite',

	      'code', 'code',

	      'command', 'code',

	      'ctrl', '&do_ctrl', # special case

	      'dfn', 'STRONG',	# DFN tag is illegal in the standard

	      'dfn', 'strong',	# DFN tag is illegal in the standard

	      'dmn', '',	# useless

	      'email', '&fix_email',	# special

	      'emph', 'EM',

	      'file', '"TT',	# will put quotes, cf. &apply_style

	      'i', 'I',

	      'kbd', 'KBD',

	      'key', 'KBD',

	      'emph', 'em',

	      'file', '"tt',	# will put quotes, cf. &apply_style

	      'i', 'i',

	      'kbd', 'kbd',

	      'key', 'kbd',

	      'r', '',		# unsupported

	      'samp', '"SAMP',	# will put quotes, cf. &apply_style

	      'samp', '"samp',	# will put quotes, cf. &apply_style

	      'sc', '&do_sc',	# special case

	      'strong', 'STRONG',

	      't', 'TT',

	      'strong', 'strong',

	      't', 'tt',

	      'titlefont', '',	# useless

	      'image', '&fix_image',	# Image

	      'url', '&fix_url',	# URL

	      'uref', '&fix_uref',	# URL Reference

	      'var', 'VAR',

	      'var', 'var',

	      'w', '',		# unsupported

	      );

This is $THISPROG

To convert a Texinfo file to HMTL: $0 [options] file

where options can be:

-acc           : convert @"-like accents to &entities;

-expandinfo    : use \@ifinfo sections, not \@iftex

-glossary      : handle a glossary

-invisible name: use 'name' as an invisible anchor

if ($use_iso) {

  $things_map{'bullet'} = "•";

  $things_map{'copyright'} = "©";

  $things_map{'registeredsymbol'} = "®";

  $things_map{'dots'} = "…";

  $things_map{'equiv'} = "≡";

  $things_map{'expansion'} = "→";

  $things_map{'point'} = "∗";

  $things_map{'result'} = "⇒";

  $things_map{'ss'} = "ß";

  $things_map{'o'} = "ø";

  $things_map{'O'} = "Ø";

}

#

# 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";

  $re = quotemeta $_; # protect regexp chars

  $sub = quotemeta $simple_map{$_};

  $subst_code .= "s/\\\@$re/$sub/g;\n";

}

foreach (keys(%things_map)) {

  $subst_code .= "s/\\\@$_\\{\\}/$things_map{$_}/g;\n";

  $re = quotemeta $_; # protect regexp chars

  $sub = quotemeta $things_map{$_};

  $subst_code .= "s/\\\@$re\\{\\}/$sub/g;\n";

}

if ($use_acc) {

  # accentuated characters

  foreach (keys(%accent_map)) {

    my $brace = /{$/ ? '}' : '';

    if ($_ eq "`") {

      $subst_code .= "s/$;3";

    } elsif ($_ eq "'") {

      $subst_code .= "s/$;4";

    } else {

      $subst_code .= "s/\\\@\\$_";

      $subst_code .= "s/\\\@\\Q$_\\E";

    }

    $subst_code .= "([aeiou])/&\${1}$accent_map{$_};/gi;\n";

    $subst_code .= "(\\w)$brace/&\${1}$accent_map{$_};/gi;\n";

  }

}

eval("sub simple_substitutions { $subst_code }");

			    s/{[^{}]+}//g);

	print "# Multitable with $multitable_cols columns\n"

	  if $debug and $DEBUG_USER;

	push(@lines, &debug("<TABLE BORDER WIDTH=\"100%\">\n", __LINE__));

	push(@lines, &debug("<TABLE BORDER>\n", __LINE__));

      } else {

	warn "$ERROR Bad table line: $_";

      }

  &simple_substitutions;

  s/\@value{($VARRE)}/$value{$1}/eg;

  s/\@footnote\{/\@footnote$docu_doc\{/g; # mark footnotes, cf. pass 4

  s|\s+\@tab\s*| </TD><TD> |g if ($in_multitable);

  s/(^|\s+)\@tab\s*/ <\/TD><TD> /g if ($in_multitable);

  #

  # analyze the tag again

	$name =~ s/\s+$//;

	$level = $sec2level{$tag};

	$name = &update_sec_num($tag, $level) . "  $name"

	  if $number_sections && $tag !~ /^unnumbered/;

	  if $number_sections && $tag !~ /^unnumbered/ && $tag ne 'subsubheading';

	if ($tag =~ /heading$/) {

	  push(@lines, &html_debug("\n", __LINE__));

	  if ($html_element ne 'body') {

	  push(@lines, &debug("</TD></TR>\n", __LINE__))

	    unless $html_element eq 'TABLE';

	  &html_pop_if('TR');

	  $what =~ s|\s+\@tab\s*| </TD><TD> |g;

	  $what =~ s/(^|\s+)\@tab\s*/ <\/TD><TD> /g;

	  push(@lines, &debug("<TR><TD>$what\n", __LINE__));

	  &html_push('TR');

	  if ($deferred_ref)

#                                                                              #

#---############################################################################

$header = <<EOT;

<!-- This HTML file has been created by $THISPROG

     from $docu on $TODAY -->

EOT

  $header = '';

  $full_title = $value{'_title'} || $value{'_settitle'} || "Untitled Document";

  $title = $value{'_settitle'} || $full_title;

  $_ = &substitute_style($full_title);

  die "error in image: '$text'" unless defined($1);

  $arg1 = $1;

  $arg1 =~ s/@@/@/g;

  $ext = "jpg" if -f "$arg1.jpg";

  $ext = "gif" if -f "$arg1.gif";

  foreach (@include_dirs) {

    $ext = "jpg" if -f "$_/$arg1.jpg";

    $ext = "gif" if -f "$_/$arg1.gif";

  }

  if (defined($ext))

  {

    "<IMG SRC=\"$arg1.$ext\">";

{

  local($_);

  &print_header;		# pass given arg...

  &print_header unless $opt_empty_headers;		# pass given arg...

  print FILE $full_title;

  if ($value{'_subtitle'}) {

    $value{'_subtitle'} =~ s/\n+$//;

sub print_toplevel_footer

{

  &print_ruler;

  print FILE <<EOT;

This document was generated on $TODAY using the

<A HREF=\"$HOMEPAGE\">texi2html</A>

translator version 1.52 (extended by davida\@detron.se).</P>

EOT

  &print_footer;

  &print_footer unless $opt_empty_headers;

}

sub protect_texi

{

  local($what) = @_;

  # protect & < >

  # Avoid loop in & replacement. This instead bugs out for &# in text..

  $what =~ s/\&([^#]|$)/\&\#38;$1/g;

  # hack for the two entity-like variable reference in existing examples

  $what =~ s/\&(length|ts);/\&\#38;$1;/g;

  # this leaves alone entities, but encodes standalone ampersands

  $what =~ s/\&(?!([a-z0-9]+|#\d+);)/\&\#38;/ig;

  $what =~ s/\</\&\#60;/g;

  $what =~ s/\>/\&\#62;/g;

  # but recognize some HTML things

	there are 2 secondary indexes on SYS_FOREIGN, and they

	are defined just like below */

	/* NOTE: when designing InnoDB's foreign key support in 2001, we made

	an error and made the table names and the foreign key id of type

	'CHAR' (internally, really a VARCHAR). We should have made the type

	VARBINARY, like in other InnoDB system tables, to get a clean

	design. */

	str =

	"PROCEDURE CREATE_FOREIGN_SYS_TABLES_PROC () IS\n"

	"BEGIN\n"

			" (Note that internally InnoDB adds 'databasename/'\n"

			"in front of the user-defined constraint name).\n",

			ef);

		fputs("Note that InnoDB's FOREIGN KEY system tables store\n"

		      "constraint names as case-insensitive, with the\n"

		      "MySQL standard latin1_swedish_ci collation. If you\n"

		      "create tables or databases whose names differ only in\n"

		      "the character case, then collisions in constraint\n"

		      "names can occur. Workaround: name your constraints\n"

		      "explicitly with unique names.\n",

			ef);

		mutex_exit(&dict_foreign_err_mutex);

	dict_index_t*	index);	/* in: user representation of a non-clustered

				index */	

/**************************************************************************

Removes a foreign constraint struct from the dictionet cache. */

Removes a foreign constraint struct from the dictionary cache. */

static

void

dict_foreign_remove_from_cache(

	dict_table_t*	table;

	if (ut_dulint_cmp(table_id, DICT_FIELDS_ID) <= 0

	   || trx->dict_operation) {

	   || trx->dict_operation_lock_mode == RW_X_LATCH) {

		/* It is a system table which will always exist in the table

		cache: we avoid acquiring the dictionary mutex, because

		if we are doing a rollback to handle an error in TABLE

#include "mach0data.h"

#include "dict0dict.h"

#include "dict0boot.h"

#include "rem0cmp.h"

#include "srv0start.h"

/************************************************************************

	rec = btr_pcur_get_rec(&pcur);

	field = rec_get_nth_field(rec, 0, &len);

	/* Check if the table name in record is the one searched for */

	if (len != ut_strlen(table_name)

	    || 0 != ut_memcmp(field, table_name, len)) {

	/* Check if the table name in the record is the one searched for; the

	following call does the comparison in the latin1_swedish_ci

	charset-collation, in a case-insensitive way. */

	if (0 != cmp_data_data(dfield_get_type(dfield),

			dfield_get_data(dfield), dfield_get_len(dfield),

			field, len)) {

		goto load_next_index;

	}

	/* Since table names in SYS_FOREIGN are stored in a case-insensitive

	order, we have to check that the table name matches also in a binary

	string comparison. On Unix, MySQL allows table names that only differ

	in character case. */

	if (0 != ut_memcmp(field, table_name, len)) {

		goto next_rec;

	}

	if (rec_get_deleted_flag(rec)) {

		goto next_rec;

}

/*********************************************************************

Evaluates a predefined function node. */

Evaluates a predefined function node. If the first argument is an integer,

this function looks at the second argument which is the integer length in

bytes, and converts the integer to a VARCHAR.

If the first argument is of some other type, this function converts it to

BINARY. */

UNIV_INLINE

void

eval_to_binary(

	que_node_t*	arg2;

	dfield_t*	dfield;

	byte*		str1;

	ulint		len;

	ulint		len1;

	arg1 = func_node->args;

	str1 = dfield_get_data(que_node_get_val(arg1));

	if (dtype_get_mtype(que_node_get_data_type(arg1)) != DATA_INT) {

		len = dfield_get_len(que_node_get_val(arg1));

		dfield = que_node_get_val(func_node);

		dfield_set_data(dfield, str1, len);

		return;

	}

	arg2 = que_node_get_next(arg1);

	len1 = (ulint)eval_node_get_int_val(arg2);