/* ***** BEGIN LICENSE BLOCK ***** * Version: NPL 1.1/GPL 2.0/LGPL 2.1 * * The contents of this file are subject to the Netscape Public License * Version 1.1 (the "License"); you may not use this file except in * compliance with the License. You may obtain a copy of the License at * http://www.mozilla.org/NPL/ * * Software distributed under the License is distributed on an "AS IS" basis, * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License * for the specific language governing rights and limitations under the * License. * * The Original Code is JavaScript Engine testing utilities. * * The Initial Developer of the Original Code is Netscape Communications Corp. * Portions created by the Initial Developer are Copyright (C) 2002 * the Initial Developer. All Rights Reserved. * * Contributor(s): rogerl@netscape.com, pschwartau@netscape.com * * Alternatively, the contents of this file may be used under the terms of * either the GNU General Public License Version 2 or later (the "GPL"), or * the GNU Lesser General Public License Version 2.1 or later (the "LGPL"), * in which case the provisions of the GPL or the LGPL are applicable instead * of those above. If you wish to allow use of your version of this file only * under the terms of either the GPL or the LGPL, and not to allow others to * use your version of this file under the terms of the NPL, indicate your * decision by deleting the provisions above and replace them with the notice * and other provisions required by the GPL or the LGPL. If you do not delete * the provisions above, a recipient may use your version of this file under * the terms of any one of the NPL, the GPL or the LGPL. * * ***** END LICENSE BLOCK ***** * * * Date: 14 Feb 2002 * SUMMARY: Performance: Regexp performance degraded from 4.7 * See http://bugzilla.mozilla.org/show_bug.cgi?id=85721 * * Adjust this testcase if necessary. The FAST constant defines * an upper bound in milliseconds for any execution to take. * */ //----------------------------------------------------------------------------- var bug = 85721; var summary = 'Performance: execution of regular expression'; var FAST = 100; // execution should be 100 ms or less to pass the test var MSG_FAST = 'Execution took less than ' + FAST + ' ms'; var MSG_SLOW = 'Execution took '; var MSG_MS = ' ms'; var str = ''; var re = ''; var status = ''; var actual = ''; var expect= ''; printBugNumber (bug); printStatus (summary); function elapsedTime(startTime) { return new Date() - startTime; } function isThisFast(ms) { if (ms <= FAST) return MSG_FAST; return MSG_SLOW + ms + MSG_MS; } /* * The first regexp. We'll test for performance (Section 1) and accuracy (Section 2). */ str='<sql:connection id="conn1"> <sql:url>www.m.com</sql:url> <sql:driver>drive.class</sql:driver>\n<sql:userId>foo</sql:userId> <sql:password>goo</sql:password> </sql:connection>'; re = /<sql:connection id="([^\r\n]*?)">\s*<sql:url>\s*([^\r\n]*?)\s*<\/sql:url>\s*<sql:driver>\s*([^\r\n]*?)\s*<\/sql:driver>\s*(\s*<sql:userId>\s*([^\r\n]*?)\s*<\/sql:userId>\s*)?\s*(\s*<sql:password>\s*([^\r\n]*?)\s*<\/sql:password>\s*)?\s*<\/sql:connection>/; expect = Array("<sql:connection id=\"conn1\"> <sql:url>www.m.com</sql:url> <sql:driver>drive.class</sql:driver>\n<sql:userId>foo</sql:userId> <sql:password>goo</sql:password> </sql:connection>","conn1","www.m.com","drive.class","<sql:userId>foo</sql:userId> ","foo","<sql:password>goo</sql:password> ","goo"); /* * Check performance - */ status = inSection(1); var start = new Date(); var result = re.exec(str); actual = elapsedTime(start); reportCompare(isThisFast(FAST), isThisFast(actual), status); /* * Check accuracy - */ status = inSection(2); testRegExp([status], [re], [str], [result], [expect]); /* * The second regexp (HUGE!). We'll test for performance (Section 3) and accuracy (Section 4). * It comes from the O'Reilly book "Mastering Regular Expressions" by Jeffrey Friedl, Appendix B */ //# Some things for avoiding backslashitis later on. $esc = '\\\\'; $Period = '\.'; $space = '\040'; $tab = '\t'; $OpenBR = '\\['; $CloseBR = '\\]'; $OpenParen = '\\('; $CloseParen = '\\)'; $NonASCII = '\x80-\xff'; $ctrl = '\000-\037'; $CRlist = '\n\015'; //# note: this should really be only \015. // Items 19, 20, 21 $qtext = '[^' + $esc + $NonASCII + $CRlist + '\"]'; // # for within "..." $dtext = '[^' + $esc + $NonASCII + $CRlist + $OpenBR + $CloseBR + ']'; // # for within [...] $quoted_pair = $esc + '[^' + $NonASCII + ']'; // # an escaped character //############################################################################## //# Items 22 and 23, comment. //# Impossible to do properly with a regex, I make do by allowing at most one level of nesting. $ctext = '[^' + $esc + $NonASCII + $CRlist + '()]'; //# $Cnested matches one non-nested comment. //# It is unrolled, with normal of $ctext, special of $quoted_pair. $Cnested = $OpenParen + // # ( $ctext + '*' + // # normal* '(?:' + $quoted_pair + $ctext + '*)*' + // # (special normal*)* $CloseParen; // # ) //# $comment allows one level of nested parentheses //# It is unrolled, with normal of $ctext, special of ($quoted_pair|$Cnested) $comment = $OpenParen + // # ( $ctext + '*' + // # normal* '(?:' + // # ( '(?:' + $quoted_pair + '|' + $Cnested + ')' + // # special $ctext + '*' + // # normal* ')*' + // # )* $CloseParen; // # ) //############################################################################## //# $X is optional whitespace/comments. $X = '[' + $space + $tab + ']*' + // # Nab whitespace. '(?:' + $comment + '[' + $space + $tab + ']*)*'; // # If comment found, allow more spaces. //# Item 10: atom $atom_char = '[^(' + $space + '<>\@,;:\".' + $esc + $OpenBR + $CloseBR + $ctrl + $NonASCII + ']'; $atom = $atom_char + '+' + // # some number of atom characters... '(?!' + $atom_char + ')'; // # ..not followed by something that could be part of an atom // # Item 11: doublequoted string, unrolled. $quoted_str = '\"' + // # " $qtext + '*' + // # normal '(?:' + $quoted_pair + $qtext + '*)*' + // # ( special normal* )* '\"'; // # " //# Item 7: word is an atom or quoted string $word = '(?:' + $atom + // # Atom '|' + // # or $quoted_str + // # Quoted string ')' //# Item 12: domain-ref is just an atom $domain_ref = $atom; //# Item 13: domain-literal is like a quoted string, but [...] instead of "..." $domain_lit = $OpenBR + // # [ '(?:' + $dtext + '|' + $quoted_pair + ')*' + // # stuff $CloseBR; // # ] // # Item 9: sub-domain is a domain-ref or domain-literal $sub_domain = '(?:' + $domain_ref + '|' + $domain_lit + ')' + $X; // # optional trailing comments // # Item 6: domain is a list of subdomains separated by dots. $domain = $sub_domain + '(?:' + $Period + $X + $sub_domain + ')*'; //# Item 8: a route. A bunch of "@ $domain" separated by commas, followed by a colon. $route = '\@' + $X + $domain + '(?:,' + $X + '\@' + $X + $domain + ')*' + // # additional domains ':' + $X; // # optional trailing comments //# Item 6: local-part is a bunch of $word separated by periods $local_part = $word + $X '(?:' + $Period + $X + $word + $X + // # additional words ')*'; // # Item 2: addr-spec is local@domain $addr_spec = $local_part + '\@' + $X + $domain; //# Item 4: route-addr is <route? addr-spec> $route_addr = '<' + $X + // # < '(?:' + $route + ')?' + // # optional route $addr_spec + // # address spec '>'; // # > //# Item 3: phrase........ $phrase_ctrl = '\000-\010\012-\037'; // # like ctrl, but without tab //# Like atom-char, but without listing space, and uses phrase_ctrl. //# Since the class is negated, this matches the same as atom-char plus space and tab $phrase_char = '[^()<>\@,;:\".' + $esc + $OpenBR + $CloseBR + $NonASCII + $phrase_ctrl + ']'; // # We've worked it so that $word, $comment, and $quoted_str to not consume trailing $X // # because we take care of it manually. $phrase = $word + // # leading word $phrase_char + '*' + // # "normal" atoms and/or spaces '(?:' + '(?:' + $comment + '|' + $quoted_str + ')' + // # "special" comment or quoted string $phrase_char + '*' + // # more "normal" ')*'; // ## Item #1: mailbox is an addr_spec or a phrase/route_addr $mailbox = $X + // # optional leading comment '(?:' + $phrase + $route_addr + // # name and address '|' + // # or $addr_spec + // # address ')'; //########################################################################### re = new RegExp($mailbox, "g"); str = 'Jeffy<"That Tall Guy"@ora.com (this address is no longer active)>'; expect = Array('Jeffy<"That Tall Guy"@ora.com (this address is no longer active)>'); /* * Check performance - */ status = inSection(3); var start = new Date(); var result = re.exec(str); actual = elapsedTime(start); reportCompare(isThisFast(FAST), isThisFast(actual), status); /* * Check accuracy - */ status = inSection(4); testRegExp([status], [re], [str], [result], [expect]);