Note: After saving, you have to bypass your browser's cache to see the changes. Google Chrome, Firefox, Microsoft Edge and Safari: Hold down the ⇧ Shift key and click the Reload toolbar button. For details and instructions about other browsers, see Wikipedia:Bypass your cache.
//[[User talk:AndyZ/peerreviewer.js]] <pre>
 // ******************************************* //
 // See [[User:AndyZ/peerreviewer]] for details //
 // Quick installation -                        //
 // Add to your monobook.js:                    //
 // {{subst:js|User:AndyZ/peerreviewer.js}}     //
 // ******************************************* //
 // Written by AndyZ, 2006                      //
 // ******************************************* //
 //Semi-automatic javascript peer reviewer 
 // note that this is NOT a [[WP:BOT]] 
 // though it may be considered a [[WP:SBOTS|semi-bot]]
// *-*-*-*-*-* start code *-*-*-*-*-*

    // *-*-*-*-*-*-*-*-*-*- //
    // configurable options //
    // details on talk page //
    // *-*-*-*-*-*-*-*-*-*- //
	// input_PR is the source id for the input
	// output_PR is the output id for the output
	
var input_PR, output_PR;
if(!input_PR) input_PR = "wpTextbox1";
if(!output_PR) output_PR = "theResponse";	
	
	//configurable options, see talk page for details
var allSpaces_PR, defaultView_PR, select_PR, popup_PR, sendTo_PR, toolbarLink_PR, toolbar_PR, directRef_PR, cat_PR, alpha_PR, userSandbox_PR, initMsg_PR, endMsg_PR, noXHR_PR, maintain_PR, maintain2_PR, spellcheck_PR, showHeading_PR, showInstaview_PR, instaview_PR, width_PR, imgCheck_PR, context_PR, simple_PR, expandContractions_PR;
if(!allSpaces_PR) allSpaces_PR = false; // if true, "peer review" link will appear on all article pages		  
if(!defaultView_PR) defaultView_PR = 0; // options: 0 - normal, in prose;  1 - template form;  2 - with references;  (for now)                          
if(!select_PR) select_PR = false; // selects text 				
if(!popup_PR) popup_PR = false; // feature not available yet				
if(!sendTo_PR) sendTo_PR = false; // if true, removes send to tab
if(!toolbarLink_PR) toolbarLink_PR = false; // accepted values = "personal", "cactions", "navigation", "tb"			
if(!toolbar_PR) toolbar_PR = "personal";
if(!directRef_PR) directRef_PR = false;
if(!cat_PR) cat_PR = false;
if(!alpha_PR) alpha_PR = false;
if(!userSandbox_PR) userSandbox_PR = "User:" + wgUserName + "/sandbox"
if(!initMsg_PR) initMsg_PR = "</noinclude>{{#ifeq:{{BASEPAGENAME}}|Peer review/" + wgTitle + "|~~~~}}<noinclude>" + "The following suggestions were generated by a semi-automatic [[User:AndyZ/peerreviewer|javascript program]], and might not be applicable for the article in question."
if(!endMsg_PR) endMsg_PR = "\nYou may wish to browse through [[User:AndyZ/Suggestions]] for further ideas. Thanks, ~~"+"~~\n\n\n";			
if(!noXHR_PR) noXHR_PR = false; // allow [[ajax]] ([[XMLHTTPrequest]]) or not			
if(!maintain_PR) maintain_PR = false; //for maintainers of [[WP:PR/A]] and its subpages		
if(!maintain2_PR) maintain2_PR = false; //for maintainers of [[WP:PR/A]] and its subpages	
 if(maintain2_PR) select_PR = true;
 if(maintain2_PR) showHeading_PR = true;
if(!spellcheck_PR) spellcheck_PR = false; //spell checker, takes long time though
if(!showHeading_PR) showHeading_PR = false;
if(!showInstaview_PR) showInstaview_PR = false;	
if(instaview_PR == undefined) instaview_PR = true; //instaview button!! released under BSD license by Pilaf
if(imgCheck_PR == undefined) imgCheck_PR = false;
if(context_PR == undefined) context_PR = false;
if(!width_PR) width_PR = 1200;
var width4_PR = width_PR + 4;
width_PR = width_PR.toString(); width4_PR = width4_PR.toString();
if(!simple_PR) simple_PR = false;
if(expandContractions_PR==undefined) expandContractions_PR = true;
	//colors, style
var restoreText_PR, restoreStyle_PR, topBarColor_PR, botBarColor_PR;
if(!restoreText_PR) restoreText_PR = "[restore]"; // text for restoration button			
if(!restoreStyle_PR) restoreStyle_PR = "background:yellow; position:absolute; margin-left:5px; margin-top:120px;";	  
if(!topBarColor_PR) topBarColor_PR = "red"; // color of top bar of suggestions			  
if(!botBarColor_PR) botBarColor_PR = "#cccccc"; // color of bottom bar of suggestions
    // *-*-*-*-*-* end configurable options *-*-*-*-*-*

if(wgNamespaceNumber == 0 || wgNamespaceNumber == 4 || allSpaces_PR){		//only if namespace is main (or wp)
					//the actual output location of the suggestions
    //!!! needs cleanup for readability
					
	//feedbackid = "theFeedback";
	//drag_PR = 'onmousedown="StartDrag(document.getElementById('+feedbackid+'))" onmouseup="CancelDrag()" onmouseout="CancelDrag()"'
	
	var instaview_button_txt;
	if(instaview_PR)
		instaview_button_txt = '<input type="button" value="Instaview" name="instaview_button" id="instaview_button" style="width:150" onclick="instaPreview();" onMouseOver="window.status=\'Preview the suggestions using Live Preview ((C)2006 Pilaf, BSD) without having to copy+paste and using diff. button\'; return true;" onMouseOut="window.status=\'\'">' 	
	else
		instaview_button_txt = "";
					
					//add new button for <span onclick="addToPage()">move to</span> soon
document.write('<div id="theFeedback" style="position:absolute; width:'+width_PR+'px; margin-top:150px; margin-left:40px; border:2px solid #000000; background:55ff55; visibility:hidden; z-index:20;">' + 
    '<div id="topBar" style="background:'+topBarColor_PR+'; text-align:right; width:'+width4_PR+'px">' + 
    '<span onclick="popreview();" onMouseOver="window.status=\'Shows current suggestions in new window, so that they do not interfere with editing\'" onMouseOut="window.status=\'\'">new window</span> | ' +
    '<span onclick="hide_PR()" onMouseOver="window.status=\'Hides suggestions so you can continue editing\'" onMouseOut="window.status=\'\'">close</span>' + 
    '</div>' + 
    '<form name="theForm"><textarea style="width:'+width_PR+'px" rows="20" name="theResponse" id="theResponse">'+initMsg_PR+'</textarea>' +
    '<div style="background:'+botBarColor_PR+'; width:' + width4_PR + 'px">'+instaview_button_txt +
    ' <input type="button" value="Readonly" name="switch_readonly" onclick="determineReadonly()"> |' + 
    ' <input type="button" value="Autoformat article per MoS" name="MOSformatting" onclick="MOS_format();" onMouseOver="window.status=\'Combo of scripts (thx Bobblewik, Gimmetrow) that fix certain MoS issues in article. Be sure to carefully check diff\'" onMouseOut="window.status=\'\'">' +
	' <a href="http://en.wiki.x.io/wiki/User talk:AndyZ/peerreviewer.js" target="_blank" onMouseOver="window.status=\'All feedback is appreciated\'" onMouseOut="window.status=\'\'">Questions/comments/errors?</a><br>' + 
	'</div><div id="InstaViewResponse" style="background:white; visibility:hidden"></div>'
	+'</form></div>'
	+'<div id="restore" style="z-index:19; visibility:hidden;'+restoreStyle_PR+'" onclick="show_PR()" onMouseOver="window.status=\'Show suggestions\'" onMouseOut="window.status=\'\'">'+restoreText_PR+'</div>')	
}

if(simple_PR) JSpeerreview_callingFunction = "JSpeerreview_simple();"
else JSpeerreview_callingFunction = "JSpeerreview();";

if(toolbar_PR == "personal" || toolbar_PR == "navigation" || toolbar_PR == "cactions" || toolbar_PR == "tb"){
    if((wgNamespaceNumber == 0 || wgNamespaceNumber == 4 || allSpaces_PR) && !toolbarLink_PR){
    //adds peer review link to top bar (with your user + talk pgs, prefs., watchlist, etc.)
    addOnloadHook(function () {
        if(document.forms.editform) {
            mw.util.addPortletLink('p-'+toolbar_PR, 'javascript:' + JSpeerreview_callingFunction, 'peer review', 'ca-peerreviewer', 'Semi-automatic peer reviewer by javascript', '', '');
        }
    });	
    }

    if((wgNamespaceNumber == 0 || allSpaces_PR) && toolbarLink_PR){
    addOnloadHook(function () {
        mw.util.addPortletLink('p-'+toolbar_PR, 'javascript:toJSpeerreview()', 'peer review', 'ca-peerreviewer', 'Semi-automatic peer reviewer by javascript', '', '');
    });	
    }
}

templateData_PR = new Array(
    ["lead","*Please expand the lead to conform with guidelines at [[Wikipedia:Lead]]. The article should have an appropriate number of paragraphs as is shown on [[WP:LEAD]], and should adequately summarize the article."],
    ["leadlong","*The lead of this article may be too long, or may contain too many paragraphs. Please follow guidelines at [[WP:LEAD]]; be aware that the lead should adequately summarize the article."],
    ["leaddetail","*The lead is for summarizing the rest of the article, and should not introduce new topics not discussed in the rest of the article, as per [[WP:LEAD]]. Please ensure that the lead adequately summarizes the article."],
    ["infobox","*You may wish to consider adding an appropriate [[WP:INFOBOX|infobox]] for this article, if one exists relating to the topic of the article. "],
    ["contxt","*Per [[Wikipedia:Only make links that are relevant to the context|Wikipedia:Context]] and [[Wikipedia:Manual of Style (dates and numbers)|Wikipedia:Manual of Style (dates)]], months and days of the week generally should not be linked. Years, decades, and centuries can be linked if they provide [[WP:CONTEXT|context]] for the article."],
    ["linkdate","*Per [[Wikipedia:Only make links that are relevant to the context|Wikipedia:Context]] and [[Wikipedia:Build the web]], years with full dates should be linked; for example, if January 15, 2006 appeared in the article, link it as [[January 15]], [[2006]]."],
    ["dateth","*As per [[Wikipedia:Manual of Style (dates and numbers)|Wikipedia:Manual of Style (dates)]], dates shouldn't use <sup>th</sup>; for example, instead of (if such appeared in the article) using ''[[January 30|January 30<sup>th</sup>]] was a great day'', use ''[[January 30]] was a great day''."], 
    ["nbsp","*Per [[Wikipedia:Manual of Style (dates and numbers)#Units of measurement|Wikipedia:Manual of Style (numbers)]], there should be a non-breaking space - <code>&amp;nbsp;</code> between a number and the unit of measurement. For example, instead of ''{{{1|18mm}}}'', use ''{{{2|18&nbsp;mm}}}'', which when you are editing the page, should look like: <tt>{{{3|18&amp;nbsp;mm}}}</tt>."], 
    ["spellnum","*Per [[Wikipedia:Manual of Style (dates and numbers)#Units of measurement|Wikipedia:Manual of Style (numbers)]], please spell out source units of measurements in text; for example, ''the Moon is 380,000 kilometres (240,000 mi) from Earth''."], 
    ["abbrev","*Per [[Wikipedia:Manual of Style (dates and numbers)#Units of measurement|Wikipedia:Manual of Style (numbers)]], when doing conversions, please use standard abbreviations: for example, miles -> mi, kilometers squared -> km<sup>2</sup>, and pounds -> lb."], 
    ["headingthe","*Per [[Wikipedia:Manual of Style (headings)]], headings generally do not start with articles ('the', 'a(n)'). For example, if there was a section called ''<nowiki>==The Biography==</nowiki>'', it should be changed to ''<nowiki>==Biography==</nowiki>''."], 
    ["headingre","*Per [[Wikipedia:Manual of Style (headings)]], headings generally should not repeat the title of the article. For example, if the article was [[Ferdinand Magellan]], instead of using the heading ''<nowiki>==Magellan's journey==</nowiki>'', use ''<nowiki>==Journey==</nowiki>''."], 
    ["headinglink","*As per [[Wikipedia:Manual of Style (headings)]], please do not [[WP:LINK|link]] words in headings."], 
    ["headingcap","*Per [[Wikipedia:Manual of Style (headings)]], avoid capitalizing words in section headings unless they are [[proper noun]]s or the first word of the heading."],
    ["gtl","*Please reorder/rename the last few sections to follow guidelines at [[Wikipedia:Guide to layout]]."], 
    ["overlink","*Consider removing links that add little to the article or that have been repeated in close proximity to other links to the same article, as per [[Wikipedia:Manual of Style (links)]] and [[WP:CONTEXT]]. Guides recommend having greater than 3% words in links, but be sure not to overlink words just to add more links."], 
    ["underlink","*Consider adding more [[WP:LINK|links]] to the article; per [[Wikipedia:Manual of Style (links)]] and [[Wikipedia:Build the web]], create links to relevant articles."], 
    ["footspace","*As done in [[WP:FOOTNOTE]], footnotes usually are located right after a punctuation mark (as recommended by the [[The Chicago Manual of Style|CMS]], but not mandatory), such that there is no space in between. For example, ''the sun is larger than the moon [2].'' is usually written as ''the sun is larger than the moon.[2]''"], 
    ["alpha","*Please alphabetize the [[WP:IL|interlanguage links]]."], 
//    ["alpha|[[WP:CAT|categories]]","*Please alphabetize the [[WP:CAT|categories]]."],
//    ["alpha|[[WP:CAT|categories]] and [[WP:IL|interlanguage links]]","*Please alphabetize the [[WP:CAT|categories]] and [[WP:IL|interlanguage links]]."],
    ["ref","*The article will need references. See [[WP:CITE]] and [[WP:V]] for more information."], 
    ["foot","*This article needs [[WP:FOOTNOTE|footnotes]], preferably in the [http://meta.wikimedia.org/wiki/Cite/Cite.php cite.php] format recommended by [[WP:WIAFA]]. Simply, enclose inline citations, with [[WP:CITE]] or [[WP:CITE/ES]] information, with <nowiki><ref>THE FOOTNOTE</ref></nowiki>. At the bottom of the article, in a section named “References” or “Footnotes”, add <code><nowiki><div class=\"references-small\"><references/></div></nowiki></code>."], 
    ["noimg","*This article has no or few [[WP:IMAGE|images]]. Please see if there are any [[WP:IT|free use]] images that fall under the [[Wikipedia:Image use policy]] and fit under one of the [[Wikipedia:Image copyright tags]] that can be uploaded. To upload images on Wikipedia, go to [[Special:Upload]]; to upload non-[[WP:FU|fair use]] images on the [[Wikimedia Commons]], go to [[commons:special:upload]]."], 
    ["leadimg","*If there is not a [[WP:IT|free use]] image in the top right corner of the article, please try to find and include one."], 
    ["caption","*Per [[Wikipedia:What is a featured article?]], [[WP:IMAGE|Images]] should have concise captions."], 
    ["toc","*Per [[WP:WIAFA]], this article's table of contents (ToC) may be too long – consider shrinking it down by merging short sections or using a proper system of daughter pages as per [[Wikipedia:Summary style]]."], 
    ["expand","*This article is a bit too short, and therefore may not be as comprehensive as [[WP:WIAFA]] critera 1(b) is looking for. Please see if anything can be expanded upon."], 
    ["SS","*This article may need to undergo [[WP:SS|summary style]], where a series of appropriate subpages are used. For example, if the article is [[United States]], then an appropriate subpage would be [[History of the United States]], such that a summary of the subpage exists on the mother article, while the subpage goes into more detail."], 
    ["copyedit","*Please ensure that the article has gone through a thorough copyediting so that it exemplifies some of [[WP:WIAFA|Wikipedia's best work]]. See also [[User:Tony1/How to satisfy Criterion 1a]]."], 
    ["list","*This article may be a bit list-weighty; in other words, some of the lists should be converted to prose (paragraph form)."], 
    ["trivia","*Generally, trivia sections are looked down upon; please either remove the trivia section or incorporate any important facts into the rest of the article."],
    ["persondata","*If this article is about a person, please add <code><nowiki>{{persondata|PLEASE SEE [[WP:PDATA]]!}}</nowiki></code> along with the required parameters to the article - see [[Wikipedia:Persondata]] for more information."],
    ["how","*Please avoid including instruction manuals, tutorials, etc. or other 'how-to's per [[WP:NOT#Wikipedia is not an indiscriminate collection of information|WP:NOT]]."],
    ["ig","*Avoid including [[WP:IG|galleries]] in articles, as per [[Wikipedia:Galleries#Policy|Wikipedia:Galleries]]. Common solutions to this problem include moving the gallery to [http://commons.wikimedia.org/wiki/Main_Page wikicommons] or integrating images with the text."],
    ["fact","*Please provide citations for all of the <code><nowiki>{{fact}}</nowiki></code>s."]
);

for(i=0;i<templateData_PR.length;i++)
	templateData_PR[i][1] += "<sup>[[User:AndyZ/G#" + templateData_PR[i][0] + "|[?]]]</sup>";	//appending footnotes	

// *-*-*-*-*-* non-configurable global variable declarations *-*-*-*-*-*
var temp_mem, foot_mem;
var imgFU = false, imgFUstr = "";
var imgNT = false, imgNTstr = "";
var PRtemplateData, tempPRdata; // !!!
var outputText_PR = initMsg_PR;	//actual output text
var spellcheck_output = "";

function JSpeerreview(){
    //wpTxt is the variable for the text of a document, input_PR is the id
if(document.getElementById(input_PR))
    wpTxt = document.getElementById(input_PR).value;
else{
    alert("Error: Could not locate text\n" + input_PR); return;
}

if(!document.getElementById(output_PR)){
    alert("Error: Unable to access output location\n" + output_PR); return;	
}

//current date variables
    var current_date = new Date(), cur_month = current_date.getMonth(), cur_year = current_date.getFullYear();
    var y_abbrev = cur_year.toString().substring(2,4);
    var m_abbrev = new Array("J","F","M","A","MY","JN","JL","AU","S","O","N","D");
    var m_full = new Array("January","February","March","April","May","June","July","August","September","October","November","December");

// --------------------	
//<nowiki> Messages on WP:PR 
// --------------------	
if(wgTitle.indexOf("Peer review") != -1 && wgTitle.indexOf("/Automated") == -1
 && wgNamespaceNumber == 4 		//WP namespace
 && document.editform.wpTextbox1.value.indexOf("User:AndyZ/peerreviewer") == -1){
document.editform.wpTextbox1.value += 
"\n*A script has been used to generate a semi-[[User:AndyZ/peerreviewer|automated]]"
+" review of the article for issues relating to grammar and [[WP:MOS|house]] style. If you would find such a review helpful, please click [[Wikipedia:Peer review/Automated/"
+m_full[cur_month]+" "+cur_year+"#"+ wgTitle.split("Peer review/")[1].split("/archive")[0] +"|here]]. Thanks, ~~~~";

// Add a tag to the summary box - ''stolen'' from [[User:Bobblewik]] 
    var txt = document.editform.wpSummary;
    var summary = "Automated peer review at [[WP:PRA/"+m_abbrev[cur_month]+y_abbrev+"#"+wgTitle.split("Peer review/")[1].split("/archive")[0]+"]]";
	if (txt.value.indexOf(summary) == -1) {
		if (txt.value.match(/[^\*\/\s][^\/\s]?\s*$/)) {
			txt.value += " | ";
		}
		txt.value += summary;
	}

return;
} // </nowiki>    
// |%|%|%|%|%|%|%|%|%|%|%|%|%|%|%|%|%|%| //
// |%|%|%|%|%| START  OUTPUT |%|%|%|%|%| //
// |%|%|%|%|%|%|%|%|%|%|%|%|%|%|%|%|%|%| //

document.getElementById(output_PR).value = JSpeerreview_body(document.getElementById(input_PR).value,document.getElementById(output_PR).value);

//----------* replacing template format with actual words
temp_mem = document.getElementById(output_PR).value;
if(defaultView_PR == 0)
    replaceTemp();
document.getElementById('instaview_button').style.width = 150;
document.theForm.switch_readonly.style.width = 150;
//----------* 

//show feedback
document.getElementById("theFeedback").style.visibility = "visible";

if(select_PR)				//selects suggestions, for easy copy+pasting
	document.getElementById(output_PR).select();

// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
}// ending brace for function %%
// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function JSpeerreview_simple(){
	output_PR = "wpTextbox1";
    document.getElementById('wpTextbox1').value = JSpeerreview_body(document.getElementById('wpTextbox1').value,"");
    replaceTemp();
}
function JSpeerreview_body(inputText_PR,outputText_PR){

if(outputText_PR.indexOf("~~"+"~~")!=-1){
    var existingPR = confirm("There are already suggestions here.\nContinuing will cause the old suggestions to be overwritten.\nDo you wish to proceed?");	
    if(!existingPR) return;
    else{
        outputText_PR = initMsg_PR;		//reset global variables
        imgFU = false; imgFUstr = ""; imgNT = false; imgNTstr = "";
    }
}

if(outputText_PR == "") outputText_PR = initMsg_PR;

if(showHeading_PR) //heading on output (at top)
    outputText_PR = "===[["+wgTitle+"]]===\n"+outputText_PR;

//----------* [[WP:LEAD|lead]] - determine number of paragraphs
inputText_PR_lead = inputText_PR.substring(0,inputText_PR.indexOf("=="))

if(/^([A-Z]|'{3})/gm.test(inputText_PR_lead))
	numberOfParagraphs = inputText_PR_lead.match(/^([A-Z]|'{3})/gm).length;
else 
	numberOfParagraphs = 1;

if (/<!-- ONE MORE LEAD PARAGRAPH -->/.test(inputText_PR))
	numberOfParagraphs += 1;

if (/<!-- LEAD: OFF -->/.test(inputText_PR))
	outputText_PR += '';
else if(numberOfParagraphs == 1)
    outputText_PR+="\n{{subst:User:AndyZ/PR/lead}}" + "<strong>" + numberOfParagraphs + "</strong>";
else if(numberOfParagraphs == 2 && inputText_PR.length>=30000)
    outputText_PR+="\n{{subst:User:AndyZ/PR/lead}}" + "<strong>" + numberOfParagraphs + "</strong>";
else if(numberOfParagraphs == 3 && inputText_PR.length<=15000)
    outputText_PR+="\n{{subst:User:AndyZ/PR/leadlong}}" + "<strong>" + numberOfParagraphs + "</strong>";
else if(numberOfParagraphs == 4 && inputText_PR.length<=30000)
    outputText_PR+="\n{{subst:User:AndyZ/PR/leadlong}}" + "<strong>" + numberOfParagraphs + "</strong>";
else if(numberOfParagraphs >= 5)
{
    outputText_PR+="\n{{subst:User:AndyZ/PR/leadlong}}" + "<strong>" + numberOfParagraphs + "</strong>";
    outputText_PR+="\n{{subst:User:AndyZ/PR/leaddetail}}";
}

//----------* Links compared to # of words (see [[WP:MOS-L]])
words = inputText_PR.split(" ").length; links = inputText_PR.split("[[").length;
if(.03 * words >= links) outputText_PR+="\n{{subst:User:AndyZ/PR/underlink}}";
if(.10 * words <= links) outputText_PR+="\n{{subst:User:AndyZ/PR/overlink}}";

//----------* WP:CONTEXT / WP:MOSDATE
//looks for linked years, days of weeks, or months
var year_pattern = /[^,\]]\s\[\[\d{4}\]\]/g;
var day_pattern = /\[\[((Mon|Tues|Wednes|Thurs|Fri|Satur|Sun)day|January|February|March|April|May|June|July|August|September|October|November|December)\]\]/g;
if (year_pattern.test(inputText_PR) || day_pattern.test(inputText_PR))
	outputText_PR+="\n{{subst:User:AndyZ/PR/contxt}}" + "<strong>" + inputText_PR.match(year_pattern) + '; ' + inputText_PR.match(day_pattern) + "</strong>";

//----------* [[WP:MOS#Time]] !!!
/*
var mostime = new Array(["recently", /recently/gi], ["soon", /\ssoon\s/g]);	check_mostime = true; mostimestring = "";	
for(i=0;i<mostime.length;i++){
    if(mostime[i][1].test(inputText_PR)){
        check_mostime = false; mostimestring += "|" + mostime[i][0];		//add parameters
    }
}
if(!check_mostime) outputText_PR+="\n{{subst:User:AndyZ/PR/time"+mostimestring+"}}";
*/

//----------* Images (in article/lead)
if(!/\[\[image:/gi.test(inputText_PR) && !/\[\[file:/gi.test(inputText_PR)) outputText_PR+="\n{{subst:User:AndyZ/PR/noimg}}";
if(!/image:/gi.test(inputText_PR.substring(0,1000))
&& !/\.(jpg|png|svg|gif|jpeg)\W/gi.test(inputText_PR.substring(0,1000))) outputText_PR+="\n{{subst:User:AndyZ/PR/leadimg}}";

//----------* Images without captions
var images_without_captions_pattern = /\|(\d{2,3}px|none|left|center|right|thumb|thumbnail|frame|\.(jpg|gif|png|svg))\]\]/i;
if (images_without_captions_pattern.test(inputText_PR.replace(/\n\s*\|.+/gi,""))) 
	outputText_PR+="\n{{subst:User:AndyZ/PR/caption}}" + "<strong>" + inputText_PR.replace(/\n\s*\|.+/gi,"").match(images_without_captions_pattern) + "</strong>";
	
//----------* Discourage galleries, per [[WP:IG]]
if(/<\/?gallery>/i.test(inputText_PR)) outputText_PR+="\n{{subst:User:AndyZ/PR/ig}}";

//----------* Discourage <table> syntax -> {| [[Help:Table]] |}
if(/<\/table>/.test(inputText_PR)) outputText_PR+="\n*Please convert tables from [[HTML]] syntax to [[Help:Table]] wiki-markup."; 

//----------* Image licensing: cannot check licensing of WikiMedia Commons images
var imgCode = /\[\[image:(.+?)(\||\])/gi
var imgList = new Array();
if(imgCode.test(inputText_PR) && !noXHR_PR && imgCheck_PR){
	imgList = inputText_PR.match(imgCode);
	for(i=0;i<imgList.length;i++) {
		imgList[i] = imgList[i].replace(/\[\[image:(.+?)(\||\])/gi,"Image:$1");
		wpajax.download({url:'http://en.wiki.x.io/w/index.php?title='+imgList[i]+'&action=raw',
	    		onSuccess: checkImgLicense, onFailure: wikiImg, message: "raw," + imgList[i] });
	}
}
		//output for image licensing prolems
if(imgNT) outputText_PR+="\n{{subst:User:AndyZ/PR/imgtag"+imgNTstr+"}} <!--Listed images do not have licensing information-->";
if(imgFU) outputText_PR+="\n{{subst:User:AndyZ/PR/imgfu"+imgFUstr+"}} <!--List images are fair use without rationale-->";

//----------* Searches for infobox
if(!/\{\{.*(taxo|geo|info)box/gi.test(inputText_PR) && !/<!-- INFOBOX: OFF -->/.test(inputText_PR))
	outputText_PR+="\n{{subst:User:AndyZ/PR/infobox}} (Note that there might not be an applicable infobox; remember that these suggestions are not generated manually)";

//----------* Searches for [[Template:Persondata]]
if((/\[\[Category\:\d{1,}\s(BC\s)?(birth|death)s/gi.test(inputText_PR) 	               //category:xxxx births/deaths
 || /\{\{Infobox(\_|\s)(biography|philosopher|Military\sPerson)/gi.test(inputText_PR)) //person infobox
 && !/\{\{persondata/gi.test(inputText_PR)) 	                	                   //persondata metadata template
	outputText_PR+="\n{{subst:User:AndyZ/PR/persondata}}";

// -------------------- --------------------
// [[WP:MOSNUM]] and [[WP:MOSDATE]]:
// -------------------- --------------------
//----------* checks for & nbsp;
list_unitnbsp = /((\d+)\s?((kilo|hecta|deca|deci|centi|milli|micro|nano)?(meter|metre|liter|litre|gram)s?|(k|d|c|m|n|µ)(g|l|m)|inch(es)?|f(oo|ee)?t\s|y(ar)?ds?|mi(les?)?\s|lbs?\s|pounds?|tons?|ounces?|ozs?\s|pints?|quarts?|gallons?|in<sup>2<\/sup>|squared inches|ft<sup>2<\/sup>|squared feet|m<sup>2<\/sup>|squared meter|km<sup>2<\/sup>|squared kilo|cm<sup>2<\/sup>|squared centi|mi<sup>2<\/sup>|squared mile|in<sup>3<\/sup>|cubic inch|ft<sup>3<\/sup>|cubic feet|m<sup>3<\/sup>|cubic meter|km<sup>3<\/sup>|cubic kilo|cm<sup>3<\/sup>|cubic centi|mi<sup>3<\/sup>|cubic mile))\W/gi;
if(list_unitnbsp.test(inputText_PR)){
	temp_unitnbsp = inputText_PR.match(list_unitnbsp);	
	outputText_PR+="\n{{subst:User:AndyZ/PR/nbsp|"+RegExp.$1+"|"+RegExp.$2+"&nbsp;"+RegExp.$3+"|"+RegExp.$2+"&amp;nbsp;"+RegExp.$3+"}}";
}

//----------* Checks for usage of standard abbreviations in parentheses (for conversions)
if(/((kilo|hecta|deca|deci|centi|milli|micro|nano)?(meter|metre|liter|litre|gram)s?|inch(es)?|f(oo|ee)t|yards?|miles?)\)/gi
    .test(inputText_PR))
    outputText_PR+="\n{{subst:User:AndyZ/PR/abbrev}}";

//----------* Checks that units are spelled out in text
var list_SN_PR = /([\d\.]+\s(kms?|mi|yds?|fts?|in\.|cms?|dms?|nms?|oz|lbs?|kgs?|mgs?|dag|dg|ng|(in|ft|yd|mi|m|km|cm|mm|dm|nm)<sup>[23]<\/sup>|ha|hl|dl|cl|ml)\s)/gi;
if(list_SN_PR.test(inputText_PR)){
    temp_SN = inputText_PR.match(list_SN_PR);
    outputText_PR+="\n{{subst:User:AndyZ/PR/spellnum}} " + "Specifically, an example is " + RegExp.$1.substring(0,RegExp.$1.length-1) + ".";
}

//----------* Checks for usage of standard abbreviations in parentheses (without 's') (for conversions) !!!
var plurality_pattern = /(\s|nbsp;)((k|d|c|m|n|µ)(g|l|m)|ft|yd|mi|lb|oz)s(\W)/gi;
if(plurality_pattern.test(inputText_PR) && !/<!-- PLURALITY: OFF -->/.test(inputText_PR))
    outputText_PR+="\n*When writing standard abbreviations, the abbreviations should not have a 's' to demark plurality (for example, change kms to km and lbs to lb)." + "<strong>" + inputText_PR.match(plurality_pattern) +  "</strong>";

//----------* Does not work; may fix soon - looks for conversions
//original logic: follow pattern: /(\d* )(\s|&nbsp;)?(UNIT)[^\}\s][^\(]//i
/* !!! ex
area2 = /\d(\s|)((in|ft|mi|(|k|c|m)m)<sup>2<\/sup>|squared (inches|feet|meter|(|kilo|centi|milli)(meter|metre)|mile))[^\}\s][^\(]/gi
vol2 = /\d(\s|)((in|ft|mi|(|m|c|k)m)<sup>3<\/sup>|cubic (inch|feet|meter|(|kilo|centi|milli)(metre|meter)))[^\}\s][^\(]/gi
if(area2.test(inputText_PR) || vol2.test(inputText_PR))
    outputText_PR+="\n{{subst:User:AndyZ/PR/convert}}";*/

//----------* Unlinked dates
/*var date_pattern = /\s(january|february|march|april|may|june|july|august|september|october|november|december)\s(\d\d?\D)/gi;
if(date_pattern
    .test(inputText_PR)) outputText_PR+="\n{{subst:User:AndyZ/PR/linkdate}}" + "<strong>" + inputText_PR.match(date_pattern) + "</strong>";*/

//----------* Dateth
var dateth = new Array(2); var check_th = false;
dateth[0] = /(\[\[)?(january|february|march|april|may|june|july|august|september|october|november|december)\s\d\d?(\]\])?(<sup>)?(th|st|nd|rd)/gi
dateth[1] = /\d\d?(<sup>)?(th|st|nd|rd)(<\/sup>)?\s(of\s)?(january|february|march|april|may|june|july|august|september|october|november|december)/gi
		
for(i=0;i<dateth.length;i++){if(dateth[i].test(inputText_PR)) check_th = true;}
if(check_th) outputText_PR+="\n{{subst:User:AndyZ/PR/dateth}}";

// -------------------- --------------------
// checks for correct MOS heading styles ([[WP:MSH]])
// -------------------- --------------------
//----------* Articles ("the", "a", "an") at beginning of heading
if(inputText_PR.indexOf("==The ") != -1 || inputText_PR.indexOf("== The ") != -1 || inputText_PR.indexOf("==the ") != -1 || inputText_PR.indexOf("== the ") != -1 || 
   inputText_PR.indexOf("== A ") != -1 || inputText_PR.indexOf("==A ") != -1 || inputText_PR.indexOf("==a ") != -1 || inputText_PR.indexOf("==a ") != -1 || 
   inputText_PR.indexOf("==An ") != -1 || inputText_PR.indexOf("== An ") != -1 || inputText_PR.indexOf("==an ") != -1 || inputText_PR.indexOf("== an ") != -1)
    outputText_PR+="\n{{subst:User:AndyZ/PR/headingthe}}";

//----------* Link in headings
var heading_link_pattern = /==.{0,}\[\[.{1,}\]\].{0,}==/gi;
if (heading_link_pattern.test(inputText_PR))
	outputText_PR+="\n{{subst:User:AndyZ/PR/headinglink}}" + "<strong>" + inputText_PR.match(heading_link_pattern) + "</strong>";

//----------* Title repeated in headings
var regex_headre = new RegExp("==.{0,}" + wgTitle.replace(/\s\(.*\)/,"") + ".{0,}==","gi")
if (regex_headre.test(inputText_PR) && !/<!-- NO REPEATED HEADINGS -->/.test(inputText_PR))
	outputText_PR+="\n{{subst:User:AndyZ/PR/headingre}}" + "<strong>" + inputText_PR.match(regex_headre) + "</strong>";
	
//----------* Special characters in headings
if(/==.*([^\[]\[[^\[]|[^\]]\][^\]]|&|\+|\{|\}).*==/gi.test(inputText_PR))
    outputText_PR+="\n*Per [[Wikipedia:Manual of Style (headings)]], avoid using special characters (ex: &+{}[]) in headings.";

//----------* Capitalization for common headings
if(/==\s?(See\sAlso|External\sLinks?|Works?\sCited|Further\sReadings?|History\sOf\s.{2,}|.{2,}\sAnd\s.{2,})\s?==/g
    .test(inputText_PR))
	outputText_PR+="\n{{subst:User:AndyZ/PR/headingcap}}";

//----------* How to, Trivia section
if(/==\s?(how[\s\-]to\s.*)\s?==/gi.test(inputText_PR)) outputText_PR+="\n{{subst:User:AndyZ/PR/how}}";
if(/==\s?(trivia|other\sfact|miscellaneous|interesting\s)/gi.test(inputText_PR)) outputText_PR+="\n{{subst:User:AndyZ/PR/trivia}}";

//----------* Order of last sections (WP:LAYOUT) (see also - references - external links)
var refsection_s = new Array("==Reference","==Source","==Footnote","==Cit","==Note","== Reference","== Source","== Footnote","== Cit","== Note"), 
    extlink_s = new Array("==External link","==External Link","== External Link","== External link"),
    seealso_s = new Array("==See also","== See also","==See Also","== See Also"),
    refsection = 0, extlink = 0, seealso = 0, check_gtl = true;
     //find sections
for(i=0;i<seealso_s.length;i++){if(inputText_PR.indexOf(seealso_s[i])!=-1)       seealso = inputText_PR.indexOf(seealso_s[i]);}
for(i=0;i<refsection_s.length;i++){if(inputText_PR.indexOf(refsection_s[i])!=-1) refsection = inputText_PR.indexOf(refsection_s[i]);}
for(i=0;i<extlink_s.length;i++){if(inputText_PR.indexOf(extlink_s[i])!=-1)       extlink = inputText_PR.indexOf(extlink_s[i]);}
if(seealso && refsection && (refsection < seealso)) check_gtl = false;
if(seealso && extlink && (extlink < seealso)) check_gtl = false;
if(refsection && extlink && (extlink < refsection)) check_gtl = false;

if(!check_gtl) outputText_PR+="\n{{subst:User:AndyZ/PR/gtl}}"

//----------* "List of..."					//not in use due to inaccuracy
/*if(/==\s?list/gi.test(inputText_PR))
	outputText_PR+="\n{{subst:User:AndyZ/PR/list}}";*/

//----------* Checks if categories are in alphabetical order !!!
self_alphabetic = [
    'aa','af','ak','als','am','ang','ab','ar','an','roa-rup','frp','as','ast','gn',
    'av','ay','az','bm','bn','zh-min-nan','map-bms','ba','be','bh','bi','bar','bo',
    'bs','br','bg','bxr','ca','cv','ceb','cs','ch','cbk-zam','ny','sn','tum','cho',
    'co','za','cy','da','pdc','de','dv','arc','nv','dz','mh','et','el','eml','en',
    'es','eo','eu','ee','fa','fo','fr','fy','ff','fur','ga','gv','gd','gl','ki',
    'glk','gu','got','zh-classical','xal','ko','ha','haw','hy','hi','ho','hsb','hr',
    'io','ig','ilo','bpy','id','ia','ie','iu','ik','os','xh','zu','is','it','he',
    'jv','kl','kn','kr','ka','ks','csb','kk','kw','rw','ky','rn','sw','kv','kg',
    'ht','kj','ku','lad','lbe','lo','la','lv','lb','lt','lij','li','ln','jbo','lg',
    'lmo','hu','mk','mg','ml','mt','mi','mr','mzn','ms','cdo','mo','mn','mus','my',
    'nah','na','fj','nl','nds-nl','cr','ne','new','ja','nap','ce','pih','no','nn',
    'nrm','nov','oc','or','om','ng','hz','ug','pa','pi','pam','pag','pap','ps','km',
    'pms','nds','pl','pt','ty','ksh','ro','rmy','rm','qu','ru','war','se','sm','sa',
    'sg','sc','sco','st','tn','sq','ru-sib','scn','si','simple','sd','ss','sk','cu',
    'sl','so','sr','sh','su','fi','sv','tl','ta','roa-tara','tt','te','tet','th',
    'vi','ti','tg','tpi','to','chr','chy','ve','tr','tk','tw','udm','bug','uk','ur',
    'uz','vec','vo','fiu-vro','wa','vls','wo','wuu','ts','ii','yi','yo','zh-yue',
    'diq','zea','bat-smg','zh','zh-tw','zh-cn']

/*cat1 = /\[\[Category:.{1,}\]\]/gi
alphed = true; check_il = true;				 //first for [[WP:CAT]]s, [[WP:IL]]s
if(cat1.test(inputText_PR)){
	theCats = inputText_PR.match(cat1)				 //array to hold categories
	for(i=0;i<theCats.length;i++)
		theCats[i]=theCats[i].toLowerCase(); //moves categories to lower case
	
	//compares all cats to see if in alphabetical order
	for(i=0;i<theCats.length-1;i++){	     //compares all of the categories
		if(!(theCats[i+1]>theCats[i]))
			alphed = false					 //if any categories out of order
	}										 //set variable to false
}
else{										
outputText_PR+="\n*This article does not have any [[WP:CAT|categories]]. Please categorize it with relevant <code><nowiki>[[Category:Categories]]</nowiki></code>."	 //if no categories
}
					
list_il = /\[\[(aa|af|ak|als|am|ang|ab|ar|an|roa\-rup|frp|as|ast|gn|av|ay|az|bm|bn|zh\-min\-nan|map\-bms|ba|be|bh|bi|bar|bo|bs|br|bg|bxr|ca|cv|ceb|cs|ch|cbk\-zam|ny|sn|tum|cho|co|za|cy|da|pdc|de|dv|arc|nv|dz|mh|et|el|eml|en|es|eo|eu|ee|fa|fo|fr|fy|ff|fur|ga|gv|gd|gl|ki|glk|gu|got|zh\-classical|xal|ko|ha|haw|hy|hi|ho|hsb|hr|io|ig|ilo|bpy|id|ia|ie|iu|ik|os|xh|zu|is|it|he|jv|kl|kn|kr|ka|ks|csb|kk|kw|rw|ky|rn|sw|kv|kg|ht|kj|ku|lad|lbe|lo|la|lv|lb|lt|lij|li|ln|jbo|lg|lmo|hu|mk|mg|ml|mt|mi|mr|mzn|ms|cdo|mo|mn|mus|my|nah|na|fj|nl|nds\-nl|cr|ne|new|ja|nap|ce|pih|no|nn|nrm|nov|oc|or|om|ng|hz|ug|pa|pi|pam|pag|pap|ps|km|pms|nds|pl|pt|ty|ksh|ro|rmy|rm|qu|ru|war|se|sm|sa|sg|sc|sco|st|tn|sq|ru\-sib|scn|si|simple|sd|ss|sk|cu|sl|so|sr|sh|su|fi|sv|tl|ta|roa\-tara|tt|te|tet|th|vi|ti|tg|tpi|to|chr|chy|ve|tr|tk|tw|udm|bug|uk|ur|uz|vec|vo|fiu\-vro|wa|vls|wo|wuu|ts|ii|yi|yo|zh\-yue|diq|zea|bat\-smg|zh|zh\-tw|zh\-cn):/gi		//interlanguage links 

if(list_il.test(inputText_PR)){
	theIL = inputText_PR.match(list_il)				 //array to hold ILs
	for(i=0;i<theIL.length-1;i++){
		if(theIL[i+1] <= theIL[i])			 //compares all categories
			check_il = false					
	}
}

if(!alphed && alphed2 && cat_PR)
	outputText_PR+="\n{{subst:User:AndyZ/PR/alpha|[[WP:CAT|categories]]}}"
if(!alphed2 && alphed && alpha_PR)
	outputText_PR+="\n{{subst:User:AndyZ/PR/alpha}}"
if(!alphed && !alphed2 && !cat_PR && alpha_PR)
	outputText_PR+="\n{{subst:User:AndyZ/PR/alpha}}"
if(!alphed && !alphed2 && cat_PR && !alpha_PR)
	outputText_PR+="\n{{subst:User:AndyZ/PR/alpha|[[WP:CAT|categories]]"+" and [[WP:IL|interlanguage links]]"+"}}"
if(!alphed && !alphed2 && cat_PR && alpha_PR)
	outputText_PR+="\n{{subst:User:AndyZ/PR/alpha|[[WP:CAT|categories]] and [[WP:IL|interlanguage links]]}}"*/

//----------* Summary style -ToC and entire article-
if(/\n==/g.test(inputText_PR)) theSections = inputText_PR.match(/\n==/g).length;
else theSections = 0;
    
if(theSections <= 5 || inputText_PR.length <= 7500)
    outputText_PR+="\n{{subst:User:AndyZ/PR/expand}}";
if(theSections >= 24 && inputText_PR.match(/{{TOClimit/gi) == null)
    outputText_PR+="\n{{subst:User:AndyZ/PR/toc}}";

if(!/\{\{main/gi.test(inputText_PR)){ if(inputText_PR.length >= 50000)
	outputText_PR+="\n{{subst:User:AndyZ/PR/SS}}";}
else if(inputText_PR.match(/\{\{main/gi).length <= 2 && inputText_PR.length >= 50000)
	outputText_PR+="\n{{subst:User:AndyZ/PR/SS}}";

//----------* Section-stub template
if(/\{\{(sect(ion)?(\-|\s)?stub|stub(\-|\s)?section)\}\}/i.test(inputText_PR))
    outputText_PR+="\n{{subst:User:AndyZ/PR/sectexpand}}";
//	
var inputText_PR_noquotes = inputText_PR.replace(/"(.+?)"/gi,"").replace(/\[\[.{4,50}?\|/gi,"")
//----------* Weasel words
var ww = new Array("some people sa","it has been","many people have","many scientists believe","allege","many people sa","many people believe","arguably","it is claimed","correctly","apparently","people considered","many considered","is considered","are considered"); var ww2 = new Array();
isww = false; awtstring = ""; inputText_PRawt = inputText_PR_noquotes; wwref = 500;
for(i=0;i<ww.length;i++) ww2[i] = new RegExp(ww[i],"gi")

for(i=0;i<ww.length;i++){
	while(ww2[i].test(inputText_PRawt)){
		inputText_PRawt = inputText_PRawt.substring(inputText_PRawt.indexOf(ww[i])+1,inputText_PRawt.length);
		if(!(/(<ref|\{\{ref|\{\{fn|\{\{harv)/gi.test(inputText_PRawt.substring(0,wwref)))){
			isww = true;
			if(awtstring.indexOf(ww[i]) == -1) awtstring=awtstring+"|''"+ww[i]+"''"
		}
	}
}

if(isww)
    outputText_PR+="\n{{subst:User:AndyZ/PR/awt"+awtstring+"}} <!--This javascript cannot determine if a citation is provided; if all weasel terms are covered by citations, please strike this-->"

//----------* American/British English spellings (ize/ise, ization/isation, or/our, er/re, etc)
// ?!!!
var check_amer = 0, check_brit = 0, ab_ex = "";

AmSpell = new Array("flavor","honor","armor","behavior","harbor","neighbor","favorite","aluminum","mustache","tidbit","meter","fiber","saber","defense","offense","pretense","organize","recognize","realize","colonize","criticize","categorize","ization","analyze","catalyze","hydrolyze","paralyze","anemia","anesthesia","cesium","diarrhea","gynecology","hemophilia","leukemia","esophagus","estrogen","orthopedic","pediatric","counterattack","counselor","equaling","modeling","quarreled","signaling","traveled","enrollment","fulfillment","installment","skillful"," aging","routing","anymore","paycheck","cozy"," gray","jewelry","curb","licorice","mold","molt","pajamas","program ","skeptic","sulfur");
BrSpell = new Array("flavour","honour","armour","behaviour","harbour","neighbour","favourite","aluminium","moustache","titbit","metre","fibre","sabre","defence","offence","pretence","organise","recognise","realise","colonise","criticise","categorise","isation","analyse","catalyse","hydrolyse","paralyse","anaemia","anaesthesia","caesium","diarrhoea","gynaecology","haemophilia","leukaemia","oesophagus","oestrogen","orthopaedic","paediatric","counter-attack","counsellor","equalling","modelling","quarrelled","signalling","travelled","enrolment","fulfilment","instalment","skilful"," ageing","routeing","any more","pay cheque","cosy"," grey","jewellery","kerb","liquorice","mould","moult","pyjamas","programme","sceptic","sulphur");

for(i=0;i<AmSpell.length;i++){
	if(inputText_PR_noquotes.indexOf(AmSpell[i]) != -1 && wgTitle.indexOf(AmSpell[i]) == -1){
		check_amer++;
		ab_ex += "''" + AmSpell[i] + "'' (A) (British: ''" + BrSpell[i] + "''), "; 	
	}
	if(inputText_PR_noquotes.indexOf(BrSpell[i]) != -1 && wgTitle.indexOf(BrSpell[i]) == -1){
		check_brit++;
		ab_ex += "''" + BrSpell[i] + "'' (B) (American: ''" + AmSpell[i] + "''), ";	
	}
}

if(check_amer >= 2 && check_brit >= 2) outputText_PR+="\n*Please make the spelling of English words consistent with either [[American and British English spelling differences|American or British spelling]], depending upon the subject of the article. Examples include: " + ab_ex.substring(0,ab_ex.length-2) + ".";

//----------* Spellcheck - load [[Wikipedia:Lists of common misspellings/For machines]]
if(!noXHR_PR && spellcheck_PR && wgTitle.indexOf("Peer review") == -1){
	wpajax.download({url:'http://en.wiki.x.io/w/index.php?title=Wikipedia:Lists_of_common_misspellings/For_machines&action=raw',
			onSuccess: spellCheckReview, OnFailure: spellCheckReview_fail, message: 'Wikipedia:Lists of common misspellings/For machines'});
    outputText_PR += spellcheck_output;
}

//----------* Common redundancies - based on [[User:Tony1/How_to_satisfy_Criterion_1a#Redundancy]]
// !!! more if possible, also general cleanup
redun_PR = new Array(0,0,0,0,0)
redun_regex = /(\salso\s|in\saddition|additionally|moreover|furthermore)/gi
if(redun_regex.test(inputText_PR_noquotes)){
	theaddnum = inputText_PR_noquotes.match(redun_regex)
	if((theaddnum.length>=8)&&(theaddnum.length >= inputText_PR.length/1800)) redun_PR[0] = 1;
}

redun_regex = /(some\s|a\svariety\sof|a\snumber\sof|a\smajority\sof|several|a\sfew|\smany|\sany\s|\sall\s)/gi
if(redun_regex.test(inputText_PR_noquotes)){
	thevsnum = inputText_PR_noquotes.match(redun_regex)
	if((thevsnum.length>=8)&&(thevsnum.length >= inputText_PR.length/1800)) redun_PR[1] = 1;
}

redun_regex = /(over\sthe\syears|currently|\snow\s|from\stime\sto\stime)/gi
if(redun_regex.test(inputText_PR_noquotes)){
	thetempnum = inputText_PR_noquotes.match(redun_regex)
	if(thetempnum.length>=6 && thetempnum.length >= inputText_PR.length/2300) redun_PR[2] = 1;
}

redun_regex = /(in\sthe\syear|in\sthe\syear\sof)\s(\[\[|)(\d\d\d\d)/gi
if(redun_regex.test(inputText_PR_noquotes)){inputText_PR_noquotes.match(redun_regex); exyear = RegExp.$3; redun_PR[3] = 1;}	

redun_regex = /(thereupon|thereupon|notwithstanding|in\sorder\s(to|for))/gi
if(redun_regex.test(inputText_PR_noquotes)){
	if(inputText_PR_noquotes.match(redun_regex).length > 2) redun_PR[4] = 1;	
}

if(redun_PR[0] || redun_PR[1] || redun_PR[2] || redun_PR[3]){
	outputText_PR+="\n*Watch for [[User:Tony1/How_to_satisfy_Criterion_2a#Redundancy|redundancies]] that make the article too wordy instead of being crisp and concise. (You may wish to try Tony1's [[User:Tony1/How to satisfy Criterion 1a: redundancy exercises|redundancy exercises]].)";	
	
	if(redun_PR[0])
		outputText_PR+="\n**While additive terms like “also”, “in addition”, “additionally”, “moreover”, and “furthermore” may sometimes be useful, overusing them when they aren't necessary can instead detract from the brilliancy of the article. This article has "+theaddnum.length+" additive terms, a bit too much." + "<strong>" + theaddnum.sort() + "</strong>";
	if(redun_PR[1])
		outputText_PR+="\n**Vague terms of size often are unnecessary and redundant -  “some”, “a variety/number/majority of”, “several”, “a few”, “many”, “any”, and “all”. For example, “<font color='red'><s>All</s></font> pigs are pink, so we thought of <font color='red'><s>a number of</s></font> ways to turn them green.” <strong>" + thevsnum.length + ": \"" + thevsnum.sort() + "\" were found.</strong>";
	if(redun_PR[2])
		outputText_PR+="\n**Temporal terms like “over the years”, “currently”, “now”, and “from time to time” often are too vague to be useful, but occasionally may be helpful. “I am <font color='red'><s>now</s></font> using a semi-bot to generate your peer review.”";
	if(redun_PR[3])
		outputText_PR+="\n**“In <font color='red'><s>the year [of]</s></font> "+exyear+"”";
	if(redun_PR[4])
		outputText_PR+="\n**Avoid misplaced formality: “in order to/for” (-> to/for), “thereupon”, “notwithstanding”, [[User:Tony1/How to satisfy Criterion 1a#Saying good-bye to misplaced formality|etc]].";
}

//----------* Contractions
if(/((is|are|was|were|have|has|had|wo|would|do|does|did|ca|could|should|might|must)n't|(would|should|could|might|must)'ve)/gi
    .test(inputText_PR_noquotes)){
	list_contraction = inputText_PR_noquotes.match(/((is|are|was|were|have|has|had|wo|would|do|does|did|ca|could|should|might|must)n't|(would|should|could|might|must)'ve)/gi).join(", ");
    outputText_PR+="\n*The script has spotted the following contractions: ''" + list_contraction + "'', if these are outside of quotations, they should be expanded.";
}

//----------* Footnotes
var check_ref = 0;
if (/<ref/g.test(inputText_PR)) 
	check_ref=1;
else if (/\{\{(ref|fn|harv)/gi.test(inputText_PR)) 
	check_ref=2;

if (!check_ref)						// no footnotes
	outputText_PR+="\n{{subst:User:AndyZ/PR/foot}}"
else if (check_ref==2)				//a method outside of the cite.php
	outputText_PR+="\n*You may wish to convert your form of references to the cite.php footnote system that [[WP:WIAFA]] 1(c) highly recommends."


//----------* Footnote spacing following a period
var list_sref = new Array(/(<\/ref>|\{\{(fn|ref)(\|.+)?\}\})\s?\./, /\.\s(<ref>|{\{(ref|fn))/, /<\/ref>(\s|\n)<ref/)
var check_sref = false;
// var reference_spacing_matches;
for (i = 0; i < list_sref.length; i++)
{
	if (list_sref[i].test(inputText_PR))
	{
		check_sref = true; 
		
		var test = inputText_PR.match(list_sref[i]);
		reference_spacing_matches = inputText_PR.match(list_sref[i]).join(',').replace(/</g, '&lt;').replace(/>/g, '&gt;');
		break;
	}
}

if (check_sref) 
	outputText_PR += "\n{{subst:User:AndyZ/PR/footspace}}" + "<strong>" + reference_spacing_matches + "</strong>";

//----------* Reference section
if(!/==\s?(reference|source|cit|works cit|footnote|note)/gi.test(inputText_PR))
    outputText_PR+="\n{{subst:User:AndyZ/PR/ref}}"

//----------* [citation needed]	
var citation_needed_pattern = /\{\{(fact|citation\sneeded|cn)/gi;
if (citation_needed_pattern.test(inputText_PR))
	outputText_PR += "\n{{subst:User:AndyZ/PR/fact}}" + "<strong>" + inputText_PR.match(citation_needed_pattern).length + "</strong>";

//----------* Copyediting reminder (default):
outputText_PR+="\n{{subst:User:AndyZ/PR/copyedit}}"

//----------* closing + signature
outputText_PR+=endMsg_PR;

return outputText_PR;
} // %%%%%%%%% END REVIEW %%%%%%%%%%
// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
// image licensing check functions:
// --------------------
// XMLHTTPrequest function by [[User:Zocky]], on [[WP:US]]
wpajax={
    download:function(bundle) {
// mandatory: bundle.url || optional: bundle.onSuccess (xmlhttprequest, bundle), bundle.onFailure (xmlhttprequest, bundle), bundle.otherStuff OK too, passed to onSuccess and onFailure
        var x = window.XMLHttpRequest ? new XMLHttpRequest() : window.ActiveXObject ? new ActiveXObject("Microsoft.XMLHTTP") : false;
        if (x) {
            x.onreadystatechange=function() {
                x.readyState==4 && wpajax.downloadComplete(x,bundle);
            };
            x.open("GET",bundle.url,true);
            x.send(null);
        }
        return x;
    },
      downloadComplete:function(x,bundle) {
            x.status==200 && (bundle.onSuccess && bundle.onSuccess(x,bundle) || true)
            || ( bundle.onFailure && bundle.onFailure(x,bundle) || checkpage(x,bundle));
      }
};

function wikiImg(xmlreq,data){}	//empty function
function checkImgLicense(xmlreq, data) {
	 var imgTxt = xmlreq.responseText;
	 imgData = data.message.split(",");
	 if(imgData.length > 2){
	       for(i=2;i<imgData.length;i++) imgData[1] += imgData[i];
	 }
	 if(imgData[0] == "raw"){
		   imgNTtemplates = /\{\{(nolicense|nosource|no\ssource|no\slicense|nld|nsd|untagged)/gi
		 
	       if(imgTxt.indexOf("{{") == -1 || imgNTtemplates.test(imgTxt)){
	            imgNT = true; imgNTstr += "|" + imgData[1];
       	   }
	       
	       templFU = /\{\{.{0,}(Music sample|Speech|Sheet music|Albumcover|Boardgamecover|Book cover|Comiccover|DVDcover|Gamecover|Softwarecover|Magazinecover|Time|Newspapercover|Video tape cover|Logo|Computer hardware logo|Disneylogo|PreK12\-logo|Restaurant|Radiologo|Schoolboard\-logo|Scoutlogo|Sports\-logo|Hqfl logo|Olympics\-logo|Tv\-logo|Tv\-program\-logo|Univ\-logo|Symbol|Seal|Icon|Game\-icon|Wayfinding|Stamp|USPSstamp|Money|Promotional|DisneyAttractionPoster|Eventposter|Sportsposter|Movie poster|Political poster|Film\-screenshot|Machinima\-screenshot|Musicpromo\-screenshot|Tv\-screenshot|Video\-screenshot|Game\-screenshot|Cvg\-titlescreen|screen|photo|sign|cover|artwork|Digimonimage|DisneyCharacter|Pokeimage|Yugiohimage|Comicpanel|comicscene|Public Library images|Otto Perry image|Robert Richardson image|Parody|Smithsonian|Standard test|Fair use in|Fairusein\d|no\srationale|nrd|Replaceable\sfair\suse|refu|orfud|or\-fu\-re)/gi
		   FUrat = /(rationale|fair\suse)/gi
		   
		   if(templFU.test(imgTxt) && !FUrat.test(imgTxt)){
				imgFU = true; imgFUstr += "|" + imgData[1];
		   }
 	 }
 	 else if(imgData[0] == "htm"){
	 	 if(imgTxt.indexOf("Template:") == -1){
		 	alert(imgData[1] + "\n" + "\nNo licensing information (HTML check)");	 
	 	 }
 	 }
}

function checkpage(xmlreq, data){
	if(xmlreq.statusText != "Not Found")
		alert(xmlreq.statusText + "\n" + data.url);	
}
// --------------------
// END img license checking
// --------------------
// START spellcheck, based on [[Wikipedia:Lists of common misspellings/For machines]]
// --------------------
function spellCheckReview(xmlreq, data){
	spellcheck_output = "";
	var spell_string = "";
	list_wordpairs = xmlreq.responseText.substring(0,xmlreq.responseText.lastIndexOf("zebra")+5)	// remove category
	list_wordpairs = list_wordpairs.split("\n");			// find all pairs of mispellings + actual words
	var misspelled_words = new Array(); var spellchecked_words = new Array();
	for(i=0;i<list_wordpairs.length;i++){
		list_wordpairs[i] = list_wordpairs[i].substring(1,list_wordpairs[i].length);
																// remove spaces
		try{
			temp_spellarray = list_wordpairs[i].split("->");
			misspelled_words[i] = temp_spellarray[0];
			spellchecked_words[i] = temp_spellarray[1];
		}
		catch(e){
			misspelled_words[i] = list_wordpairs[i].substring(0,list_wordpairs[i].indexOf("->"));
			spellchecked_words[i] = list_wordpairs[i].substring(list_wordpairs[i].indexOf("->")+2,list_wordpairs[i].length);
		}
		
		if(document.getElementById(input_PR).value.indexOf(" " + misspelled_words[i] + " ") != -1){
			spell_string += "''" + misspelled_words[i] + "'' (" + spellchecked_words[i] + ")" + ",";
		}
	}
												
	if(spell_string.length > 2)		//if mispelled_list exists																		
		spellcheck_output+="\n*Please check through the article for possible misspellings (see [[WP:SPELL]]). Examples of possible misspellings include: " + spell_string.substring(0,spell_string.length-1) + ".";
}

function spellCheckReview_fail(xmlreq,data){
	alert("Error: Unable to start spellcheck");
}
// --------------------
// END spellcheck
// --------------------
// START output configuring (template <-> prose, readonly, instaview, etc.)
// --------------------	
function replaceTemp(){// ----------* replace templates with actual contents (use ajax?)
	for(i = 0; i < templateData_PR.length; i++){		//templates are listed above with global variables
		document.getElementById(output_PR).value = document.getElementById(output_PR).value.replace(new RegExp("{{sub"+"st:User:AndyZ/PR/"+templateData_PR[i][0]+"}}","g"),templateData_PR[i][1]);
	}

    if(/\{\{subst:User:AndyZ\/PR\/.*\}\}/i.test(document.getElementById(output_PR).value))
        replaceTemplatesWithParams();	//continue by replacing templates w/ parameters
}

function replaceTemplatesWithParams(){
 output_txt = document.getElementById(output_PR).value;
 list_utemps = output_txt.match(/\{\{subst:User:AndyZ\/PR\/(.*)\}\}/gi);
 var list_params = new Array();
 for(i=0;i<list_utemps.length;i++){
    list_utemps[i] = list_utemps[i].substring(22,list_utemps[i].length-2);
    list_params = list_utemps[i].split("|");
    if(list_params.length == 1) continue;
    uTN_PR = list_params[0];
	
    list_paramsStr = "";
    for(j=1;j<list_params.length;j++){
        if(j==list_params.length-1) list_paramsStr += list_params[j];
        else list_paramsStr += list_params[j] + ",,";	
    }
		
        //if statements
    if(uTN_PR == "time")
        document.getElementById(output_PR).value = document.getElementById(output_PR).value.replace(/\{\{subst:User:AndyZ\/PR\/time.*\}\}/gi,"*Per [[WP:MOS#Time|WP:MOS]], avoid using words/phrases that indicate time periods relative to the current day. For example, ''" + list_paramsStr.replace(/\,\,/g,"'', ''") + "'' might be terms that should be replaced with specific dates/times.<sup>[[User:AndyZ/G#time|[?]]]</sup>");
    if(uTN_PR == "awt")
        document.getElementById(output_PR).value = document.getElementById(output_PR).value.replace(/\{\{subst:User:AndyZ\/PR\/awt.*\}\}/gi,"*There are a few occurrences of [[weasel word]]s in this article- please observe [[WP:AWT]]. Certain phrases should specify exactly who supports, considers, believes, etc., such a view.\n**" + list_paramsStr.replace(/\,\,/g,"\n**") + "\n**might be weasel words, and should be provided with proper [[WP:FOOTNOTE|citations]] (if they already do, or are not weasel terms, please <strike>strike</strike> this comment).<sup>[[User:AndyZ/G#awt|[?]]]</sup>");
    if(uTN_PR == "nbsp")
        document.getElementById(output_PR).value = document.getElementById(output_PR).value.replace(/\{\{subst:User:AndyZ\/PR\/nbsp.*\}\}/gi,"*Per [[Wikipedia:Manual of Style (dates and numbers)#Units of measurement|Wikipedia:Manual of Style (numbers)]], there should be a non-breaking space - <code>&amp;nbsp;</code> between a number and the unit of measurement. For example, instead of ''"+list_params[1]+"'', use ''"+list_params[2]+"'', which when you are editing the page, should look like: <tt>"+list_params[3]+"</tt>.<sup>[[User:AndyZ/G#nbsp|[?]]]</sup>");
	/*if(uTN_PR == "imgfu")
		document.getElementById(output_PR).value = document.getElementById(output_PR).value.replace(/\{\{subst:User:AndyZ\/PR\/imgfu.*\}\}/gi,"*Images with [[fair use]] tags need [[WP:FU|fair use rationales]] - please see [[WP:FUC]]. Specifically, [[:" + list_paramsStr.replace(/\,\,/gi,"]], [[:") + "]] need(s) proper fair use rationales.");
	if(uTN_PR == "imgtag")
		document.getElementById(output_PR).value = document.getElementById(output_PR).value.replace(/\{\{subst:User:AndyZ\/PR\/imgtag.*\}\}/gi,"*Images need proper [[WP:IMAGE|image]] [[WP:IT|copyright tags]] and source information. Specifically, [[:" + list_paramsStr.replace(/\,\,/gi,"]], [[:") + "]] need(s) proper image copyright tags.");
	*/
 }	
}

function determineReadonly(){		//readonly, to prevent accidental editing of the text
	if(document.getElementById(output_PR).readOnly) {
		document.getElementById(output_PR).readOnly = false; 	
		document.theForm.switch_readonly.value = "Readonly";		//button properties 
		document.theForm.switch_readonly.style.width = 150;
	}
	else {
		document.getElementById(output_PR).readOnly = true; 
		document.theForm.switch_readonly.value = "Edit-able";		//button properties 
		document.theForm.switch_readonly.style.width = 150;
	}
}

function popreview(){
	PRresult = "<script>wgUserName = '" + wgUserName + "';</s" + "cript><script type='text/javascript' src='http://en.wiki.x.io/w/index.php?title=User:AndyZ/peerreviewer.js&action=raw&ctype=text/javascript&dontcountme=s'></s" + "cript>Return to <a href='http://en.wiki.x.io/wiki/" + wgPageName + "'>" + wgTitle + "</a> (<a href='http://en.wiki.x.io/w/index.php?title="+wgPageName+"&action=edit'>edit</a> | <a href='http://en.wiki.x.io/w/index.php?title="+wgPageName+"&action=history'>history</a>) <br><br><form name='theForm'> <input type='button' value='Readonly' name='switch_readonly' onclick='determineReadonly()' style='width:150'><br><textarea id='theResponse' name='theResponse' cols='120' rows='50'>" + document.getElementById(output_PR).value + "</textarea></form>";
	var newPage_PR = window.open("http://en.wiki.x.io/","winName");
	newPage_PR.document.write(PRresult);
	newPage_PR.document.close();
}

// --------------------	
// show and hide results 
// --------------------	
function hide_PR(){var d=document;
	d.getElementById("theFeedback").style.visibility = "hidden";
	d.getElementById("restore").style.visibility = "visible";
}
function show_PR(){var d=document;
	d.getElementById("theFeedback").style.visibility = "visible";
	d.getElementById("restore").style.visibility = "hidden";
}

function toJSpeerreview(){
	if(document.title.indexOf("Editing ") == 0) JSpeerreview();
	else window.open('http://en.wiki.x.io/w/index.php?title='+wgPageName+'&action=edit&fakeaction=displayPR','Edit');	
}

// STARTFILE: autopr.js
function pr()
{
  var pagename = document.editform.action.substring(pagename.indexOf('title=') + 6,pagename.lastIndexOf('&action=submit'));

  window.open('http://en.wiki.x.io/w/index.php?title=Talk:' + unescape(pagename) + '&action=edit&fakeaction=prtemp','Talk', 'status,toolbar,location,menubar,directories,resizeable,scrollbars');          
  window.open('/w/index.php?title=Wikipedia:Peer_review/' + unescape(pagename) + '&action=edit&fakeaction=prsub&faketarget=' + unescape(pagename),'PRnom', 'status,toolbar,location,menubar,directories,resizeable,scrollbars');
  window.open('/w/index.php?title=Wikipedia:Peer_review&action=edit&fakeaction=prlist&faketarget=' + unescape(pagename), 'PRlisting', 'status,toolbar,location,menubar,directories,resizeable,scrollbars');
}

function autopr()
{
  if (document.title.indexOf('Editing ') == 0)
    {
      var theaction = '';
      var target = '';
      if (location.search)
        {
          var l = location.search.substring(1).split('&');
          for (var i = 0; i < l.length; ++i)
            {
              var eq = l[i].indexOf('=');
              var name = l[i].substring(0, eq);
              if (name == 'fakeaction')
                theaction = l[i].substring(eq + 1);
              else if (name == 'faketarget')
                target = unescape(l[i].substring(eq + 1)).replace(/_/g, ' ');
            }
        }
      if (theaction == 'prlist')
        {
          req = document.editform.wpTextbox1.value.indexOf("{{Wikipedia:Peer review/");
          document.editform.wpTextbox1.value = document.editform.wpTextbox1.value.substring(0,req) + '{{Wikipedia:Peer review/' + target + '}}\n' + document.editform.wpTextbox1.value.substring(req,document.editform.wpTextbox1.value.length);
          document.editform.wpSummary.value = '[[Wikipedia:Peer review/' + target + ']]';
        }
      else if (theaction == 'prsub'){
          if (document.editform.wpTextbox1.value.length > 0)
              window.alert("There's an old peer review at the default location already.\n\n" +
                           'Please either move it out of the way (and update existing links to it), or file the PR by hand in another location (such as [[Wikipedia:Peer review/' + wgTitle.split("/")[1] + ' 2]]).');
          else
            document.editform.wpTextbox1.value += '===[[' + target + ']]===\n' +
              '<!--Reason for nomination.--> ~~' + '~~';
      }
      else if (theaction == 'prtemp'){
          if (document.editform.wpTextbox1.value.indexOf('{{peerreview}}') != -1)     
              window.alert("There has already been a peer review.");
          else{
              document.editform.wpTextbox1.value = '{{peerreview}}\n\n' + document.editform.wpTextbox1.value;
              document.editform.wpSummary.value = 'peer reviewing - [[Wikipedia:Peer review/' + target + ']]';
            }
        }
      else if (theaction == 'displayPR')
	    	    JSpeerreview();
      else
        pr();
    }
}

if(sendTo_PR){
	addOnloadHook(function () {
	    if(document.forms.editform) mw.util.addPortletLink('p-cactions', 'javascript:autopr()', 'send to WP:PR', 'ca-peerreview', 'Submits article for peer review', '', '');
	});
}

if(document.location.href.indexOf("fakeaction") != -1) addOnloadHook(autopr);

// ENDFILE autopr.js </pre>
// <pre>STARTFILE maintainPRA.js
var mem;
if(wgUserName == "AZPR" || maintain_PR){
	if(wgTitle.indexOf("Peer review/") != -1 && wgTitle.indexOf("Automated") == -1 && wgNamespaceNumber == 4 && document.title.indexOf("Editing ") == 0){
		addOnloadHook(function () {
		    mem = document.getElementById("wpTextbox1").value;
		    JSpeerreview();
		    if(mem != document.getElementById("wpTextbox1").value) document.getElementById('wpSave').click();
		});
	}

	if(wgPageName.indexOf("Wikipedia:Peer_review/Automated/") != -1 && document.title.indexOf("Editing ") == 0){
		addOnloadHook(function () {
		    document.getElementById('wpSummary').value += "new automated PR requests";
		});
	}
	
	if((document.location.href.indexOf("action=edit")!=-1) && (wgNamespaceNumber == 0)){
		addOnloadHook(JSpeerreview);
	}
	
	if(wgNamespaceNumber == 4 && wgTitle.indexOf("Peer review/Automated/") != -1 && /\d{4}/.test(wgTitle) && document.editform){
		if(document.getElementById("wpTextbox1").value == ""){
			document.getElementById("wpTextbox1").value = "{"+"{Wikipedia:Peer review/Automated/header}}\n==Requests==\n{"+"{Wikipedia:Peer review/Automated/foot}}";
			document.getElementById('wpSummary').value += "Starting new subpage for automated peer reviews";
			document.getElementById('wpSave').click();
		}
	}
	
	if(wgNamespaceNumber == 5 && wgTitle.indexOf("Peer review/Automated/") != -1 && /\d{4}/.test(wgTitle) && document.editform){
		if(document.getElementById("wpTextbox1").value == ""){
			document.getElementById("wpTextbox1").value = "#redirect [[Wikipedia talk:Peer review/Automated]]";
			document.getElementById('wpSummary').value += "Redirect to [[Wikipedia talk:Peer review/Automated]]";
			document.getElementById('wpSave').click();
		}
	}

	if(wgPageName == "User:VeblenBot/C/Requests_for_peer_review" && document.location.href.indexOf("edit") != -1)
        mw.util.addPortletLink('p-'+toolbar_PR, 'javascript:askAddMsg()', 'add notices', 'ca-addmsg', 'Goes through articles, add little notices regarding auto-PRs', '', '');
	
      //  if(wgPageName == "Wikipedia:Peer_review" && document.location.href.indexOf("edit") != -1)
      //          mw.util.addPortletLink('p-'+toolbar_PR, 'javascript:askAddMsg()', 'add notices', 'ca-addmsg', 'Goes through articles, add little notices regarding auto-PRs', '', '');
}

if(maintain2_PR){
	if(wgTitle.indexOf("Peer review/") != -1 && wgTitle.indexOf("Automated") == -1 && wgNamespaceNumber == 4){
		addOnloadHook(function () {
		    mem = document.getElementById("wpTextbox1").value;
		    JSpeerreview();
		    if(mem != document.getElementById("wpTextbox1").value) document.getElementById('wpSave').click();
		});
	}

	if(wgPageName.indexOf("Wikipedia:Peer_review/Automated/") != -1 && document.title.indexOf("Editing ") == 0){
		addOnloadHook(function () {
		    document.getElementById('wpSummary').value += "new automated PR requests";
		});
	}
	
	if(wgNamespaceNumber == 4 && wgTitle.indexOf("Peer review/Automated/") != -1 && /\d{4}/.test(wgTitle) && document.editform){
		if(document.getElementById("wpTextbox1").value == ""){
			document.getElementById("wpTextbox1").value = "{"+"{Wikipedia:Peer review/Automated/header}}\n==Requests==\n{"+"{Wikipedia:Peer review/Automated/foot}}";
			document.getElementById('wpSummary').value += "Starting new subpage for automated peer reviews";
			document.getElementById('wpSave').click();
		}
	}
}
// ENDFILE maintainPRA.js

// ************************* ///_///_/// 
// END PEER REVIEWING SCRIPT //|_)/|_)//
// ************************* //|///| \//
function instaPreview(){
	if(document.getElementById('InstaViewResponse').style.visibility == "hidden"){
		InstaViewPR.dump(output_PR, 'InstaViewResponse');
		document.getElementById('instaview_button').style.width = 150;
		document.getElementById('instaview_button').value = "Hide instaview";
		document.getElementById('InstaViewResponse').style.visibility = "visible";
		document.getElementById('InstaViewResponse').style.background = "white";
		document.getElementById('InstaViewResponse').style.border = "2px solid orange";
		document.getElementById('theFeedback').style.width = width4_PR+"px"
	}
	else{
		document.getElementById('instaview_button').style.width = 150;
		document.getElementById('instaview_button').value = "Instaview";
		document.getElementById('InstaViewResponse').innerHTML = "";
		document.getElementById('InstaViewResponse').style.visibility = "hidden";
	}
}
if(showInstaview_PR){
	addOnloadHook(function(){
	  if (document.getElementById('editpage-copywarn')) {
	    var oldPreview = document.getElementById('wpPreview');
	    var newPreview = document.createElement('input');
	    newPreview.setAttribute('type', 'button');
	    newPreview.setAttribute('style', 'font-style: italic');
	    newPreview.setAttribute('value', 'InstaView');
	    newPreview.setAttribute('onclick', "InstaViewPR.dump('wpTextbox1', 'InstaViewDump')");
	    oldPreview.parentNode.insertBefore(newPreview, oldPreview);
	    oldPreview.parentNode.innerHTML += '<div style="margin: 5px 0 5px 0; padding: 5px; border: 2px solid orange;" id="InstaViewDump"></div>';
	    oldPreview.value = 'Classic Preview';
	    }
	});
}

// STARTFILE: livepreview.js

/*
 * InstaView - a Mediawiki to HTML converter in JavaScript
 * Version 0.6.1
 * Copyright (C) Pedro Fayolle 2005-2006
 * http://en.wiki.x.io/wiki/User:Pilaf
 * Distributed under the BSD license
 *----------* For full comments/documentation, see [[User:Pilaf/instaview.js]]
*/

var InstaViewPR = {}

// options
InstaViewPR.conf =
{
	user: {},
	wiki: {
		lang: 'en',
		interwiki: 'ab|aa|af|ak|sq|als|am|ang|ar|an|arc|hy|roa-rup|as|ast|av|ay|az|bm|ba|eu|be|bn|bh|bi|bs|br|bg|my|ca|ch|ce|chr|chy|ny|zh|zh-tw|zh-cn|cho|cv|kw|co|cr|hr|cs|da|dv|nl|dz|en|eo|et|ee|fo|fj|fi|fr|fy|ff|gl|ka|de|got|el|kl|gn|gu|ht|ha|haw|he|hz|hi|ho|hu|is|io|ig|id|ia|ie|iu|ik|ga|it|ja|jv|kn|kr|csb|ks|kk|km|ki|rw|rn|tlh|kv|kg|ko|kj|ku|ky|lo|la|lv|li|ln|lt|jbo|nds|lg|lb|mk|mg|ms|ml|mt|gv|mi|minnan|mr|mh|zh-min-nan|mo|mn|mus|nah|na|nv|ne|se|no|nn|oc|or|om|pi|fa|pl|pt|pa|ps|qu|ro|rm|ru|sm|sg|sa|sc|gd|sr|sh|st|tn|sn|scn|simple|sd|si|sk|sl|so|st|es|su|sw|ss|sv|tl|ty|tg|ta|tt|te|th|bo|ti|tpi|to|tokipona|ts|tum|tr|tk|tw|uk|ur|ug|uz|ve|vi|vo|wa|cy|wo|xh|ii|yi|yo|za|zu',
		default_thumb_width: 180
	},
	paths: {
		articles: '/wiki/',
		math: '/math/',
		images: '',
		images_fallback: 'http://up.wiki.x.io/wikipedia/commons/',
		magnify_icon: 'skins/common/images/magnify-clip.png'
	},
	locale: {
		user: 'User',
		image: 'Image',
		category: 'Category',
		months: ['Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec']
	}
}

// options with default values or backreferences
with (InstaViewPR.conf) {
	user.name = user.name || wgUserName || 'Wikipedian'
	user.signature = '[['+locale.user+':'+user.name+'|'+user.name+']]'
	paths.images = 'http://up.wiki.x.io/wikipedia/' + wiki.lang + '/'
}

// define constants
InstaViewPR.BLOCK_IMAGE = new RegExp('^\\[\\['+InstaViewPR.conf.locale.image+':.*?\\|.*?(?:frame|thumbnail|thumb|none|right|left|center)', 'i');

InstaViewPR.dump = function(from, to)
{
	if (typeof from == 'string') from = document.getElementById(from)
	if (typeof to == 'string') to = document.getElementById(to)
	to.innerHTML = this.convert(from.value)
}

InstaViewPR.convert = function(wiki)
{
	var 	ll = (typeof wiki == 'string')? wiki.replace(/\r/g,'').split(/\n/): wiki, // lines of wikicode
		o='',	// output
		p=0,	// para flag
		$r	// result of passing a regexp to $()
	
	// some shorthands
	function remain() { return ll.length }
	function sh() { return ll.shift() }
	function ps(s) { o+=s } // push
	
	function f()
	{
		var i=1,a=arguments,f=a[0],o='',c,p
		for (;i<a.length; i++) if ((p=f.indexOf('?'))+1) {
			// allow character escaping
			i -= c=f.charAt(p+1)=='?'?1:0
			o += f.substring(0,p)+(c?'?':a[i])
			f=f.substr(p+1+c)
		} else break;
		return o+f
	}
	
	function html_entities(s) { return s.replace(/&/g,"&amp;").replace(/</g,"&lt;").replace(/>/g,"&gt;") }
	
	function max(a,b) { return (a>b)?a:b }
	function min(a,b) { return (a<b)?a:b }

	function str_imatch(a, b)
	{
		for (var i=0, l=min(a.length, b.length); i<l; i++) if (a.charAt(i)!=b.charAt(i)) break
		return i
	}

	function $(c) { return (typeof c == 'string') ? (ll[0].substr(0,c.length)==c) : ($r = ll[0].match(c)) }
	
	function $$(c) { return ll[0]==c } // compare current line against a string
	function _(p) { return ll[0].charAt(p) } // return char at pos p
	
	function endl(s) { ps(s); sh() }
	
	function parse_list()
	{
		var prev='';
		
		while (remain() && $(/^([*#:;]+)(.*)$/)) {
			
			var l_match = $r;
			sh();
			var ipos = str_imatch(prev, l_match[1]);

			for (var i=prev.length-1; i >= ipos; i--) {
				
				var pi = prev.charAt(i)
				
				if (pi=='*') ps('</ul>')
				else if (pi=='#') ps('</ol>')
				// close a dl only if the new item is not a dl item (:, ; or empty)
				else switch (l_match[1].charAt(i)) { case'':case'*':case'#': ps('</dl>') }
			}

			for (var i=ipos; i<l_match[1].length; i++) {
				
				var li = l_match[1].charAt(i)
				
				if (li=='*') ps('<ul>')
				else if (li=='#') ps('<ol>')
				// open a new dl only if the prev item is not a dl item (:, ; or empty)
				else switch(prev.charAt(i)) { case'':case'*':case'#': ps('<dl>') }
			}
			
			switch (l_match[1].charAt(l_match[1].length-1)) {
			
				case '*': case '#':
					ps('<li>' + parse_inline_nowiki(l_match[2])); break
					
				case ';':
					ps('<dt>')
					
					var dt_match
					
					// handle ;dt :dd format
					if (dt_match = l_match[2].match(/(.*?) (:.*?)$/)) {
						
						ps(parse_inline_nowiki(dt_match[1]))
						ll.unshift(dt_match[2])
						
					} else ps(parse_inline_nowiki(l_match[2]))
					
					break
					
				case ':':
					ps('<dd>' + parse_inline_nowiki(l_match[2]))
			}
			
			prev=l_match[1]
		}

		for (var i=prev.length-1; i>=0; i--)
			ps(f('</?>', (prev.charAt(i)=='*')? 'ul': ((prev.charAt(i)=='#')? 'ol': 'dl')))
	}
	
	function parse_table()
	{
		endl(f('<table?>', $(/^\{\|( .*)$/)? $r[1]: ''))
		
		for (;remain();) if ($('|')) switch (_(1)) {
			case '}': endl('</table>'); return
			case '-': endl(f('<tr ?>', $(/\|-*(.*)/)[1])); break
			default: parse_table_data()
		}
		else if ($('!')) parse_table_data()
		else sh()
	}
	
	function parse_table_data()
	{
		var td_line, match_i
		var td_match = sh().match(/^(\|\+|\||!)((?:([^[|]*?)\|(?!\|))?(.*))$/)
		if (td_match[1] == '|+') ps('<caption');
		else ps('<t' + ((td_match[1]=='|')?'d':'h'))
		if (typeof td_match[3] != 'undefined') {
			ps(' ' + td_match[3])
			match_i = 4
		} else match_i = 2
		
		ps('>')
		
		if (td_match[1] != '|+') {
			td_line = td_match[match_i].split((td_match[1] == '|')? '||': /(?:\|\||!!)/)
			
			ps(parse_inline_nowiki(td_line.shift()))
			
			while (td_line.length) ll.unshift(td_match[1] + td_line.pop())
			
		} else ps(td_match[match_i])
		
		var tc = 0, td = []
		
		for (;remain(); td.push(sh()))
		if ($('|')) {
			if (!tc) break // we're at the outer-most level (no nested tables), skip to td parse
			else if (_(1)=='}') tc--
		}
		else if (!tc && $('!')) break
		else if ($('{|')) tc++
		
		if (td.length) ps(InstaViewPR.convert(td))
	}
	
	function parse_pre()
	{
		ps('<pre>')
		do endl(parse_inline_nowiki(ll[0].substring(1)) + "\n"); while (remain() && $(' '))
		ps('</pre>')
	}
	
	function parse_block_image()
	{
		ps(parse_image(sh()))
	}

	function parse_image(str)
	{
		var tag = str.substring(InstaViewPR.conf.locale.image.length + 3, str.length - 2);
		
		var width;
		var attr = [], filename, caption = '';
		var thumb=0, frame=0, center=0;
		var align='';
		
		if (tag.match(/\|/)) {
			// manage nested links
			var nesting = 0;
			var last_attr;
			for (var i = tag.length-1; i > 0; i--) {
				if (tag.charAt(i) == '|' && !nesting) {
					last_attr = tag.substr(i+1);
					tag = tag.substring(0, i);
					break;
				} else switch (tag.substr(i-1, 2)) {
					case ']]':
						nesting++;
						i--;
						break;
					case '[[':
						nesting--;
						i--;
				}
			}
			
			attr = tag.split(/\s*\|\s*/);
			attr.push(last_attr);
			filename = attr.shift();
			
			var w_match;
			
			for (;attr.length; attr.shift())
			if (w_match = attr[0].match(/^(\d*)px$/)) width = w_match[1]
			else switch(attr[0]) {
				case 'thumb':
				case 'thumbnail':
					thumb=true;
				case 'frame':
					frame=true;
					break;
				case 'none':
				case 'right':
				case 'left':
					center=false;
					align=attr[0];
					break;
				case 'center':
					center=true;
					align='none';
					break;
				default:
					if (attr.length == 1) caption = attr[0];
			}
			
		} else filename = tag;
		
		
		var o='';
		if (frame) {
			if (align=='') align = 'right';
			o += f("<div class='thumb t?'>", align);
			
			if (thumb) {
				if (!width) width = InstaViewPR.conf.wiki.default_thumb_width;
				
				o += f("<div style='width:?px;'>?", 2+width*1, make_image(filename, caption, width)) +
					f("<div class='thumbcaption'><div class='magnify' style='float:right'><a href='?' class='internal' title='Enlarge'><img src='?'></a></div>?</div>",
						InstaViewPR.conf.paths.articles + InstaViewPR.conf.locale.image + ':' + filename,
						InstaViewPR.conf.paths.magnify_icon,
						parse_inline_nowiki(caption)
					)
			} else {
				o += '<div>' + make_image(filename, caption) + f("<div class='thumbcaption'>?</div>", parse_inline_nowiki(caption))
			}
			
			o += '</div></div>';
			
		} else if (align != '') {
			o += f("<div class='float?'><span>?</span></div>", align, make_image(filename, caption, width));
		} else {
			return make_image(filename, caption, width);
		}
		
		return center? f("<div class='center'>?</div>", o): o;
	}
	
	function parse_inline_nowiki(str)
	{
		var start, lastend=0
		var substart=0, nestlev=0, open, close, subloop;
		var html='';
		
		while (-1 != (start = str.indexOf('<nowiki>', substart))) {
			html += parse_inline_wiki(str.substring(lastend, start));
			start += 8;
			substart = start;
			subloop = true;
			do {
				open = str.indexOf('<nowiki>', substart);
				close = str.indexOf('</nowiki>', substart);
				if (close<=open || open==-1) {
					if (close==-1) {
						return html + html_entities(str.substr(start));
					}
					substart = close+9;
					if (nestlev) {
						nestlev--;
					} else {
						lastend = substart;
						html += html_entities(str.substring(start, lastend-9));
						subloop = false;
					}
				} else {
					substart = open+8;
					nestlev++;
				}
			} while (subloop)
		}
		
		return html + parse_inline_wiki(str.substr(lastend));
	}
	
	function make_image(filename, caption, width)
	{
		// uppercase first letter in file name
		filename = filename.charAt(0).toUpperCase() + filename.substr(1);
		// replace spaces with underscores
		filename = filename.replace(/ /g, '_');
		
		caption = strip_inline_wiki(caption);
		
		var md5 = hex_md5(filename);
		
		var source = md5.charAt(0) + '/' + md5.substr(0,2) + '/' + filename;
		
		if (width) width = "width='" + width + "px'";
		
		var img = f("<img onerror=\"this.onerror=null;this.src='?'\" src='?' ? ?>", InstaViewPR.conf.paths.images_fallback + source, InstaViewPR.conf.paths.images + source, (caption!='')? "alt='" + caption + "'" : '', width);
		
		return f("<a class='image' ? href='?'>?</a>", (caption!='')? "title='" + caption + "'" : '', InstaViewPR.conf.paths.articles + InstaViewPR.conf.locale.image + ':' + filename, img);
	}
	
	function parse_inline_images(str)
	{
		var start, substart=0, nestlev=0;
		var loop, close, open, wiki, html;
		
		while (-1 != (start=str.indexOf('[[', substart))) {
			if(str.substr(start+2).match(RegExp('^' + InstaViewPR.conf.locale.image + ':','i'))) {
				loop=true;
				substart=start;
				do {
					substart+=2;
					close=str.indexOf(']]',substart);
					open=str.indexOf('[[',substart);
					if (close<=open||open==-1) {
						if (close==-1) return str;
						substart=close;
						if (nestlev) {
							nestlev--;
						} else {
							wiki=str.substring(start,close+2);
							html=parse_image(wiki);
							str=str.replace(wiki,html);
							substart=start+html.length;
							loop=false;
						}
					} else {
						substart=open;
						nestlev++;
					}
				} while (loop)
				
			} else break;
		}
		
		return str;
	}

	function parse_inline_formatting(str)
	{
		var em,st,i,li,o='';
		while ((i=str.indexOf("''",li))+1) {
			o += str.substring(li,i);
			li=i+2;
			if (str.charAt(i+2)=="'") {
				li++;
				st=!st;
				o+=st?'<strong>':'</strong>';
			} else {
				em=!em;
				o+=em?'<em>':'</em>';
			}
		}
		return o+str.substr(li);
	}
	
	function parse_inline_wiki(str)
	{
		var aux_match;
		
		str = parse_inline_images(str);
		str = parse_inline_formatting(str);

		while (aux_match = str.match(/<(?:)math>(.*?)<\/math>/i)) {
			var math_md5 = hex_md5(aux_match[1]);
			str = str.replace(aux_match[0], f("<img src='?.png'>", InstaViewPR.conf.paths.math+math_md5));
		}
		
		var date = new Date;
		var minutes = date.getUTCMinutes();
		if (minutes < 10) minutes = '0' + minutes;
		var date = f("?:?, ? ? ? (UTC)", date.getUTCHours(), minutes, date.getUTCDate(), InstaViewPR.conf.locale.months[date.getUTCMonth()], date.getUTCFullYear());

		return str.
			// signatures
			replace(/~{5}(?!~)/g, date).
			replace(/~{4}(?!~)/g, InstaViewPR.conf.user.name+' '+date).
			replace(/~{3}(?!~)/g, InstaViewPR.conf.user.name).
			
			// [[:Category:...]], [[:Image:...]], etc...
			replace(RegExp('\\[\\[:((?:'+InstaViewPR.conf.locale.category+'|'+InstaViewPR.conf.locale.image+'|'+InstaViewPR.conf.wiki.interwiki+'):.*?)\\]\\]','gi'), "<a href='"+InstaViewPR.conf.paths.articles+"$1'>$1</a>").
			replace(RegExp('\\[\\[(?:'+InstaViewPR.conf.locale.category+'|'+InstaViewPR.conf.wiki.interwiki+'):.*?\\]\\]','gi'),'').
			
			// [[/Relative links]]
			replace(/\[\[(\/[^|]*?)\]\]/g, f("<a href='?$1'>$1</a>", location)).
			
			// [[/Replaced|Relative links]]
			replace(/\[\[(\/.*?)\|(.+?)\]\]/g, f("<a href='?$1'>$2</a>", location)).
			
			// [[Common links]]
			replace(/\[\[([^|]*?)\]\](\w*)/g, f("<a href='?$1'>$1$2</a>", InstaViewPR.conf.paths.articles)).
			
			// [[Replaced|Links]]
			replace(/\[\[(.*?)\|([^\]]+?)\]\](\w*)/g, f("<a href='?$1'>$2$3</a>", InstaViewPR.conf.paths.articles)).
			
			// [[Stripped:Namespace|Namespace]]
			replace(/\[\[([^\]]*?:)?(.*?)( *\(.*?\))?\|\]\]/g, f("<a href='?$1$2$3'>$2</a>", InstaViewPR.conf.paths.articles)).
			
			// External links
			replace(/\[(https?|news|ftp|mailto|gopher|irc):(\/*)([^\]]*?) (.*?)\]/g, "<a href='$1:$2$3'>$4</a>").
			replace(/\[http:\/\/(.*?)\]/g, "<a href='http://$1'>[#]</a>").
			replace(/\[(news|ftp|mailto|gopher|irc):(\/*)(.*?)\]/g, "<a href='$1:$2$3'>$1:$2$3</a>").
			replace(/(^| )(https?|news|ftp|mailto|gopher|irc):(\/*)([^ $]*)/g, "$1<a href='$2:$3$4'>$2:$3$4</a>").
			
			replace('__NOTOC__','').
			replace('__NOEDITSECTION__','');
	}
	
	function strip_inline_wiki(str)
	{
		return str
			.replace(/\[\[[^\]]*\|(.*?)\]\]/g,'$1')
			.replace(/\[\[(.*?)\]\]/g,'$1')
			.replace(/''(.*?)''/g,'$1');
	}

	for (;remain();) if ($(/^(={1,6})(.*)\1(.*)$/)) {
		p=0
		endl(f('<h?>?</h?>?', $r[1].length, parse_inline_nowiki($r[2]), $r[1].length, $r[3]))
		
	} else if ($(/^[*#:;]/)) {
		p=0
		parse_list()
		
	} else if ($(' ')) {
		p=0
		parse_pre()
		
	} else if ($('{|')) {
		p=0
		parse_table()
		
	} else if ($(/^----+$/)) {
		p=0
		endl('<hr>')
		
	} else if ($(InstaViewPR.BLOCK_IMAGE)) {
		p=0
		parse_block_image()
		
	} else {
		
		// handle paragraphs
		if ($$('')) {
			if (p = (remain()>1 && ll[1]==(''))) endl('<p><br>')
		} else {
			if(!p) {
				ps('<p>')
				p=1
			}
			ps(parse_inline_nowiki(ll[0]) + ' ')
		}
		
		sh();
	}
	
	return o
}


/*
 * A JavaScript implementation of the RSA Data Security, Inc. MD5 Message
 * Digest Algorithm, as defined in RFC 1321.
 * Version 2.2-alpha Copyright (C) Paul Johnston 1999 - 2005
 * Other contributors: Greg Holt, Andrew Kepert, Ydnar, Lostinet
 * Distributed under the BSD License
 * See http://pajhome.org.uk/crypt/md5 for more info.
 */

var hexcase = 0;
var b64pad  = "";

function hex_md5(s)    { return rstr2hex(rstr_md5(str2rstr_utf8(s))); }
function b64_md5(s)    { return rstr2b64(rstr_md5(str2rstr_utf8(s))); }
function any_md5(s, e) { return rstr2any(rstr_md5(str2rstr_utf8(s)), e); }
function hex_hmac_md5(k, d)
  { return rstr2hex(rstr_hmac_md5(str2rstr_utf8(k), str2rstr_utf8(d))); }
function b64_hmac_md5(k, d)
  { return rstr2b64(rstr_hmac_md5(str2rstr_utf8(k), str2rstr_utf8(d))); }
function any_hmac_md5(k, d, e)
  { return rstr2any(rstr_hmac_md5(str2rstr_utf8(k), str2rstr_utf8(d)), e); }

function rstr_md5(s)
{
  return binl2rstr(binl_md5(rstr2binl(s), s.length * 8));
}

function rstr_hmac_md5(key, data)
{
  var bkey = rstr2binl(key);
  if(bkey.length > 16) bkey = binl_md5(bkey, key.length * 8);

  var ipad = Array(16), opad = Array(16);
  for(var i = 0; i < 16; i++)
  {
    ipad[i] = bkey[i] ^ 0x36363636;
    opad[i] = bkey[i] ^ 0x5C5C5C5C;
  }

  var hash = binl_md5(ipad.concat(rstr2binl(data)), 512 + data.length * 8);
  return binl2rstr(binl_md5(opad.concat(hash), 512 + 128));
}

function rstr2hex(input)
{
  var hex_tab = hexcase ? "0123456789ABCDEF" : "0123456789abcdef";
  var output = "";
  var x;
  for(var i = 0; i < input.length; i++)
  {
    x = input.charCodeAt(i);
    output += hex_tab.charAt((x >>> 4) & 0x0F)
           +  hex_tab.charAt( x        & 0x0F);
  }
  return output;
}

function rstr2b64(input)
{
  var tab = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
  var output = "";
  var len = input.length;
  for(var i = 0; i < len; i += 3)
  {
    var triplet = (input.charCodeAt(i) << 16)
                | (i + 1 < len ? input.charCodeAt(i+1) << 8 : 0)
                | (i + 2 < len ? input.charCodeAt(i+2)      : 0);
    for(var j = 0; j < 4; j++)
    {
      if(i * 8 + j * 6 > input.length * 8) output += b64pad;
      else output += tab.charAt((triplet >>> 6*(3-j)) & 0x3F);
    }
  }
  return output;
}

function rstr2any(input, encoding)
{
  var divisor = encoding.length;
  var remainders = Array();
  var i, q, x, quotient;

  var dividend = Array(input.length / 2);
  for(i = 0; i < dividend.length; i++)
  {
    dividend[i] = (input.charCodeAt(i * 2) << 8) | input.charCodeAt(i * 2 + 1);
  }

  while(dividend.length > 0)
  {
    quotient = Array();
    x = 0;
    for(i = 0; i < dividend.length; i++)
    {
      x = (x << 16) + dividend[i];
      q = Math.floor(x / divisor);
      x -= q * divisor;
      if(quotient.length > 0 || q > 0)
        quotient[quotient.length] = q;
    }
    remainders[remainders.length] = x;
    dividend = quotient;
  }

  var output = "";
  for(i = remainders.length - 1; i >= 0; i--)
    output += encoding.charAt(remainders[i]);

  return output;
}

function str2rstr_utf8(input)
{
  var output = "";
  var i = -1;
  var x, y;

  while(++i < input.length)
  {
    x = input.charCodeAt(i);
    y = i + 1 < input.length ? input.charCodeAt(i + 1) : 0;
    if(0xD800 <= x && x <= 0xDBFF && 0xDC00 <= y && y <= 0xDFFF)
    {
      x = 0x10000 + ((x & 0x03FF) << 10) + (y & 0x03FF);
      i++;
    }

    if(x <= 0x7F)
      output += String.fromCharCode(x);
    else if(x <= 0x7FF)
      output += String.fromCharCode(0xC0 | ((x >>> 6 ) & 0x1F),
                                    0x80 | ( x         & 0x3F));
    else if(x <= 0xFFFF)
      output += String.fromCharCode(0xE0 | ((x >>> 12) & 0x0F),
                                    0x80 | ((x >>> 6 ) & 0x3F),
                                    0x80 | ( x         & 0x3F));
    else if(x <= 0x1FFFFF)
      output += String.fromCharCode(0xF0 | ((x >>> 18) & 0x07),
                                    0x80 | ((x >>> 12) & 0x3F),
                                    0x80 | ((x >>> 6 ) & 0x3F),
                                    0x80 | ( x         & 0x3F));
  }
  return output;
}

function str2rstr_utf16le(input)
{
  var output = "";
  for(var i = 0; i < input.length; i++)
    output += String.fromCharCode( input.charCodeAt(i)        & 0xFF,
                                  (input.charCodeAt(i) >>> 8) & 0xFF);
  return output;
}

function str2rstr_utf16be(input)
{
  var output = "";
  for(var i = 0; i < input.length; i++)
    output += String.fromCharCode((input.charCodeAt(i) >>> 8) & 0xFF,
                                   input.charCodeAt(i)        & 0xFF);
  return output;
}

function rstr2binl(input)
{
  var output = Array(input.length >> 2);
  for(var i = 0; i < output.length; i++)
    output[i] = 0;
  for(var i = 0; i < input.length * 8; i += 8)
    output[i>>5] |= (input.charCodeAt(i / 8) & 0xFF) << (i%32);
  return output;
}

function binl2rstr(input)
{
  var output = "";
  for(var i = 0; i < input.length * 32; i += 8)
    output += String.fromCharCode((input[i>>5] >>> (i % 32)) & 0xFF);
  return output;
}

function binl_md5(x, len)
{
  x[len >> 5] |= 0x80 << ((len) % 32);
  x[(((len + 64) >>> 9) << 4) + 14] = len;

  var a =  1732584193;
  var b = -271733879;
  var c = -1732584194;
  var d =  271733878;

  for(var i = 0; i < x.length; i += 16)
  {
    var olda = a;
    var oldb = b;
    var oldc = c;
    var oldd = d;
    a = md5_ff(a, b, c, d, x[i+ 0], 7 , -680876936);
    d = md5_ff(d, a, b, c, x[i+ 1], 12, -389564586);
    c = md5_ff(c, d, a, b, x[i+ 2], 17,  606105819);
    b = md5_ff(b, c, d, a, x[i+ 3], 22, -1044525330);
    a = md5_ff(a, b, c, d, x[i+ 4], 7 , -176418897);
    d = md5_ff(d, a, b, c, x[i+ 5], 12,  1200080426);
    c = md5_ff(c, d, a, b, x[i+ 6], 17, -1473231341);
    b = md5_ff(b, c, d, a, x[i+ 7], 22, -45705983);
    a = md5_ff(a, b, c, d, x[i+ 8], 7 ,  1770035416);
    d = md5_ff(d, a, b, c, x[i+ 9], 12, -1958414417);
    c = md5_ff(c, d, a, b, x[i+10], 17, -42063);
    b = md5_ff(b, c, d, a, x[i+11], 22, -1990404162);
    a = md5_ff(a, b, c, d, x[i+12], 7 ,  1804603682);
    d = md5_ff(d, a, b, c, x[i+13], 12, -40341101);
    c = md5_ff(c, d, a, b, x[i+14], 17, -1502002290);
    b = md5_ff(b, c, d, a, x[i+15], 22,  1236535329);
    a = md5_gg(a, b, c, d, x[i+ 1], 5 , -165796510);
    d = md5_gg(d, a, b, c, x[i+ 6], 9 , -1069501632);
    c = md5_gg(c, d, a, b, x[i+11], 14,  643717713);
    b = md5_gg(b, c, d, a, x[i+ 0], 20, -373897302);
    a = md5_gg(a, b, c, d, x[i+ 5], 5 , -701558691);
    d = md5_gg(d, a, b, c, x[i+10], 9 ,  38016083);
    c = md5_gg(c, d, a, b, x[i+15], 14, -660478335);
    b = md5_gg(b, c, d, a, x[i+ 4], 20, -405537848);
    a = md5_gg(a, b, c, d, x[i+ 9], 5 ,  568446438);
    d = md5_gg(d, a, b, c, x[i+14], 9 , -1019803690);
    c = md5_gg(c, d, a, b, x[i+ 3], 14, -187363961);
    b = md5_gg(b, c, d, a, x[i+ 8], 20,  1163531501);
    a = md5_gg(a, b, c, d, x[i+13], 5 , -1444681467);
    d = md5_gg(d, a, b, c, x[i+ 2], 9 , -51403784);
    c = md5_gg(c, d, a, b, x[i+ 7], 14,  1735328473);
    b = md5_gg(b, c, d, a, x[i+12], 20, -1926607734);
    a = md5_hh(a, b, c, d, x[i+ 5], 4 , -378558);
    d = md5_hh(d, a, b, c, x[i+ 8], 11, -2022574463);
    c = md5_hh(c, d, a, b, x[i+11], 16,  1839030562);
    b = md5_hh(b, c, d, a, x[i+14], 23, -35309556);
    a = md5_hh(a, b, c, d, x[i+ 1], 4 , -1530992060);
    d = md5_hh(d, a, b, c, x[i+ 4], 11,  1272893353);
    c = md5_hh(c, d, a, b, x[i+ 7], 16, -155497632);
    b = md5_hh(b, c, d, a, x[i+10], 23, -1094730640);
    a = md5_hh(a, b, c, d, x[i+13], 4 ,  681279174);
    d = md5_hh(d, a, b, c, x[i+ 0], 11, -358537222);
    c = md5_hh(c, d, a, b, x[i+ 3], 16, -722521979);
    b = md5_hh(b, c, d, a, x[i+ 6], 23,  76029189);
    a = md5_hh(a, b, c, d, x[i+ 9], 4 , -640364487);
    d = md5_hh(d, a, b, c, x[i+12], 11, -421815835);
    c = md5_hh(c, d, a, b, x[i+15], 16,  530742520);
    b = md5_hh(b, c, d, a, x[i+ 2], 23, -995338651);
    a = md5_ii(a, b, c, d, x[i+ 0], 6 , -198630844);
    d = md5_ii(d, a, b, c, x[i+ 7], 10,  1126891415);
    c = md5_ii(c, d, a, b, x[i+14], 15, -1416354905);
    b = md5_ii(b, c, d, a, x[i+ 5], 21, -57434055);
    a = md5_ii(a, b, c, d, x[i+12], 6 ,  1700485571);
    d = md5_ii(d, a, b, c, x[i+ 3], 10, -1894986606);
    c = md5_ii(c, d, a, b, x[i+10], 15, -1051523);
    b = md5_ii(b, c, d, a, x[i+ 1], 21, -2054922799);
    a = md5_ii(a, b, c, d, x[i+ 8], 6 ,  1873313359);
    d = md5_ii(d, a, b, c, x[i+15], 10, -30611744);
    c = md5_ii(c, d, a, b, x[i+ 6], 15, -1560198380);
    b = md5_ii(b, c, d, a, x[i+13], 21,  1309151649);
    a = md5_ii(a, b, c, d, x[i+ 4], 6 , -145523070);
    d = md5_ii(d, a, b, c, x[i+11], 10, -1120210379);
    c = md5_ii(c, d, a, b, x[i+ 2], 15,  718787259);
    b = md5_ii(b, c, d, a, x[i+ 9], 21, -343485551);

    a = safe_add(a, olda);
    b = safe_add(b, oldb);
    c = safe_add(c, oldc);
    d = safe_add(d, oldd);
  }
  return Array(a, b, c, d);
}

function md5_cmn(q, a, b, x, s, t){
  return safe_add(bit_rol(safe_add(safe_add(a, q), safe_add(x, t)), s),b);
}
function md5_ff(a, b, c, d, x, s, t){
  return md5_cmn((b & c) | ((~b) & d), a, b, x, s, t);
}
function md5_gg(a, b, c, d, x, s, t){
  return md5_cmn((b & d) | (c & (~d)), a, b, x, s, t);
}
function md5_hh(a, b, c, d, x, s, t){
  return md5_cmn(b ^ c ^ d, a, b, x, s, t);
}
function md5_ii(a, b, c, d, x, s, t){
  return md5_cmn(c ^ (b | (~d)), a, b, x, s, t);
}

function safe_add(x, y)
{
  var lsw = (x & 0xFFFF) + (y & 0xFFFF);
  var msw = (x >> 16) + (y >> 16) + (lsw >> 16);
  return (msw << 16) | (lsw & 0xFFFF);
}

function bit_rol(num, cnt)
{
  return (num << cnt) | (num >>> (32 - cnt));
}

// </nowiki>
// ENDFILE: livepreview.js

// <pre> STARTFILE: mos.js
function MOS_format(){}
//</pre> ENDFILE: mos.js

// *-*-*-*-*-*-*-*-*-*-*-*-*- //
// Comments and closing notes //
// *-*-*-*-*-*-*-*-*-*-*-*-*- //
// TO DO list                 //
// *-*-*-*-*-*-*-*-*-*-*-*-*- //

/* <pre> List of things to do:
 // Determine the usage of commas with dates                    --
 // Determine if conversions are included                       --
 //- not necessary to check - Determine if extraneous bolding is used
 //- not able to do (w/ JS): Determine if quotes have sources (due to huge amounts of ""s)
 //  Prove that images have proper image copyright tags
 //  Show that all fair use images have proper fair use rationales
 //- not able to do (w/ JS): Determine if sections or paragraphs are too short, outside of {{sect-stub}} or {{sectionexpand}}, etc. 
 //- not able to do (w/ JS): Determine if a list is used
 //- not able to do (w/ JS): Determine if words in headings are capitalized
 // Find common [[User:Tony1/How to satisfy Criterion 2a|redunancies]]
 //   <s>*"in order to/for" -> to/for</s>
 // Check w/ U:SUGG to see if any other things are missing
 // Help out with [[WP:FL]], maybe even [[WP:FPO]]?
 // simple links for easy copy+paste into sandboxes, talk pages, or [[WP:PR/A]] --
 //- not important - improving look 
 // embedding solutions beneath text, possibly (using innerHTML, etc., property) --
 // more configurable options that will be helpful to users
Second priority issues:
 // Add to/cleanup list of units (for units, conversions, and standard abbreviations)
 // Add to/subtract from list of weasel words
 // More infoboxes
*/
    /////////////////////////////////////////////////
    // Note:
    //  I am quite aware 
    //  that the layout and documentation
    //  of my coding is pretty terrible;
    //  feel free to edit this page
    //  and help clean it up
    //  (for non-admins, leave note on talk page)
    // -------------- -------------- -------------- 
    // Please be aware that changes
    // may affect many users
    //  AS OF LAST COUNT: 182 users use this script
    /////////////////////////////////////////////////
//</pre> [[Category:Wikipedia scripts|AndyZ/peerreviewer.js]]
//cut out code can be found at [[User:AndyZ/peerreviewer.js/comment]]