#pragma rtGlobals=1		// Use modern global access method.

StrConstant kBlack = "#000000"

Menu "GeSHi"
	"Create Igor Language File",/Q,CreateLanguagePrompt()
End


Function RedBD(num)
	// Reduces the bit depth of a number from 16 bit to 8 bit
	Variable num
	num /= 2^16
	num *= 2^8
	num = floor(num)
	return num
End

Function CreateLanguagePrompt()
	Variable colorsToUse = 1
	Prompt colorsToUse, "Select color set", popup, "Use Igor's default syntax colors;Use syntax colors currently being used;"
	DoPrompt "", colorsToUse
	if (V_flag == 1)		// User hit cancel.
		return 0
	endif
	
	CreateLanguageFile(colorsToUse - 1)
End

Function CreateLanguageFile(colorsToUse)
	Variable colorsToUse		// see description in CreateIgorGeSHiLanguage() function
	
	String fileText = ""
	String fileNameStr
	Variable refNum
	
	// open file
	Open/M="Save Language File As..." /T=".php" refNum as "igor.php"
	if (strlen(S_fileName) < 1)		// User hit cancel button.
		return 0
	endif
	
	fileNameStr = S_fileName
	fileText = CreateIgorGeSHiLanguage(colorsToUse, fileNameStr)
	
	// write text to file
	Variable startPos = 0
	Variable posDelta = 300
	Variable n, length = strlen(fileText)
	For (n=0; n<length; n+=posDelta)
		fprintf refNum, "%s", fileText[startPos, startPos + posDelta]
		startPos += posDelta + 1
	EndFor
	
	// close file
	Close refNum
	return 0
End

Function/S CreateIgorGeSHiLanguage(colorsToUse, fileName)
	Variable colorsToUse		// 0 = (default) use default Igor syntax coloring values
							// 1 = use current Igor syntax colors (which may not be the default values)
	String fileName			// name of file
	
	String langColor, commColor, strColor, biOpColor, biFuncColor, poundColor
	
	Switch (colorsToUse)
		Case 1:			// use current Igor syntax colors
			Execute "SetIgorOption colorize, keywordColor=?"
			NVAR V_red, V_green, V_blue
			sprintf langColor, "#%.2x%.2x%.2x", RedBD(V_red), RedBD(V_green), RedBD(V_blue)
			Execute "SetIgorOption colorize, commentColor=?"
			sprintf commColor, "#%.2x%.2x%.2x", RedBD(V_red), RedBD(V_green), RedBD(V_blue)
			Execute "SetIgorOption colorize, stringColor=?"
			sprintf strColor, "#%.2x%.2x%.2x", RedBD(V_red), RedBD(V_green), RedBD(V_blue)
			Execute "SetIgorOption colorize, operationColor=?"
			sprintf biOpColor, "#%.2x%.2x%.2x", RedBD(V_red), RedBD(V_green), RedBD(V_blue)
			Execute "SetIgorOption colorize, functionColor=?"
			sprintf biFuncColor, "#%.2x%.2x%.2x", RedBD(V_red), RedBD(V_green), RedBD(V_blue)
			Execute "SetIgorOption colorize, poundColor=?"
			sprintf poundColor, "#%.2x%.2x%.2x", RedBD(V_red), RedBD(V_green), RedBD(V_blue)
			break
		default:			// use the default Igor colors
			  langColor = "#0000ff"			// blue
			  commColor = "#ff0000"		// red
			  strColor = "#009c00"			// green
			  biopColor = "#007575"		// orange
			  bifuncColor = "#c34e00"		// brown
			  poundColor = "#cc00a3"		// purple
	EndSwitch
	
						
	
	String file = ""
	Variable n, num, newNum
	String list = "", item = "", keywords = "", currentItem = ""
file += "<?php\n"
file += "/*************************************************************************************\n"
file += " * " + fileName + "\n"
file += " * --------\n"
file += " * Author: Adam Light (aclight@gmail.org)\n"
file += " * Copyright: (c) 2004 Nigel McNie (http://qbnz.com/highlighter/)\n"
file += " * Release Version: 1.0.7.18\n"
file += " * Date Started: 2007/02/25\n"
file += " *\n"
file += " * IGOR language file for GeSHi.\n"
file += " *\n"
file += " * CURRENT LANGUAGE VERSION\n"
file += " * Created on: " + date() + "\n"
file += " * Igor Version: " + StringByKey("IGORFILEVERSION", IgorInfo(3)) + "\n"
file += " *\n"
file += " *************************************************************************************\n"
file += " *\n"
file += " *     This file is part of GeSHi.\n"
file += " *\n"
file += " *   GeSHi is free software; you can redistribute it and/or modify\n"
file += " *   it under the terms of the GNU General Public License as published by\n"
file += " *   the Free Software Foundation; either version 2 of the License, or\n"
file += " *   (at your option) any later version.\n"
file += " *\n"
file += " *   GeSHi is distributed in the hope that it will be useful,\n"
file += " *   but WITHOUT ANY WARRANTY; without even the implied warranty of\n"
file += " *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n"
file += " *   GNU General Public License for more details.\n"
file += " *\n"
file += " *   You should have received a copy of the GNU General Public License\n"
file += " *   along with GeSHi; if not, write to the Free Software\n"
file += " *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\n"
file += " *\n"
file += " ************************************************************************************/\n"
file += "\n"
file += "$language_data = array (\n"
file += "\t'LANG_NAME' => 'IGOR',\n"
file += "\t'COMMENT_SINGLE' => array(1 => '//'),\n"
file += "\t'COMMENT_MULTI' => array(),\n"
file += "\t'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE,\n"
file += "\t'QUOTEMARKS' => array('\"'),\n"		// double quote mark
file += "\t'ESCAPE_CHAR' => '\\\\',\n"		// '\' is the escape character for strings, but to make sure this stays properly escaped into the igor.php file we need to use 4 backslashes here.
file += "\t'KEYWORDS' => array(\n"
file += "\t\t1 => array("		
	
	// flow control
	// reverse sort all of the lists of functions, operations, etc.
	list = SortList(FlowControlList(), ";", 5)	// reverse sort list
	num = ItemsInList(list, ";")
	newNum = 0
	keywords = "", item = ""
	For (n=0; n<num; n+=1)
		if (mod(newNum, 4) == 0)		// start a new line
			keywords += "\n\t\t\t"
		endif
		currentItem = StringFromList(n, list, ";")
		if (strlen(currentItem) > 0)	// dont add item if its empty
			sprintf item, "'%s', ", currentItem
		endif
		keywords += item
		newNum += 1
	EndFor
	keywords = RemoveEnding(keywords, " ")
	keywords = RemoveEnding(keywords, ",")
	keywords = RemoveEnding(keywords, " ")
	file += keywords
	file += "\n\t\t\t),\n"
	
	// function, macro, window, procs, object and reference keywords
	file += "\t\t2 => array("		
	// reverse sort all of the lists of functions, operations, etc.
	list = SortList(TypesList(), ";", 5)	// reverse sort list
	num = ItemsInList(list, ";")
	newNum = 0
	keywords = "", item = ""
	For (n=0; n<num; n+=1)
		if (mod(newNum, 4) == 0)		// start a new line
			keywords += "\n\t\t\t"
		endif
		currentItem = StringFromList(n, list, ";")
		if (strlen(currentItem) > 0)	// dont add item if its empty
			sprintf item, "'%s', ", currentItem
		endif
		keywords += item
		newNum += 1
	EndFor
	keywords = RemoveEnding(keywords, " ")
	keywords = RemoveEnding(keywords, ",")
	keywords = RemoveEnding(keywords, " ")
	file += keywords
	file += "\n\t\t\t),\n"
	
	// built in Igor functions
	file += "\t\t3 => array("			
	// reverse sort all of the lists of functions, operations, etc.
	list = SortList(FunctionList("*", ";", "KIND:1"), ";", 5)	// reverse sort list
	num = ItemsInList(list, ";")
	newNum = 0
	keywords = "", item = ""
	For (n=0; n<num; n+=1)
		if (mod(newNum, 4) == 0)		// start a new line
			keywords += "\n\t\t\t"
		endif
		currentItem = StringFromList(n, list, ";")
		if (strlen(currentItem) > 0)	// dont add item if its empty
			sprintf item, "'%s', ", currentItem
		endif
		keywords += item
		newNum += 1
	EndFor
	keywords = RemoveEnding(keywords, " ")
	keywords = RemoveEnding(keywords, ",")
	keywords = RemoveEnding(keywords, " ")
	file += keywords
	file += "\n\t\t\t),\n"	

	// built in Igor operations
	file += "\t\t4 => array("			
	// reverse sort all of the lists of functions, operations, etc.
	list = SortList(OperationList("*", ";", "internal"), ";", 5)	// reverse sort list
	num = ItemsInList(list, ";")
	newNum = 0
	keywords = "", item = ""
	For (n=0; n<num; n+=1)
		if (mod(newNum, 4) == 0)		// start a new line
			keywords += "\n\t\t\t"
		endif
		currentItem = StringFromList(n, list, ";")
		if (strlen(currentItem) > 0)	// dont add item if its empty
			sprintf item, "'%s', ", currentItem
		endif
		keywords += item
		newNum += 1
	EndFor
	keywords = RemoveEnding(keywords, " ")
	keywords = RemoveEnding(keywords, ",")
	keywords = RemoveEnding(keywords, " ")
	file += keywords
	file += "\n\t\t\t),\n"
	
	// pragmas control
	file += "\t\t5 => array("
	// reverse sort all of the lists of functions, operations, etc.
	list = SortList(PragmasList(), ";", 5)	// reverse sort list
	num = ItemsInList(list, ";")
	newNum = 0
	keywords = "", item = ""
	For (n=0; n<num; n+=1)
		if (mod(newNum, 4) == 0)		// start a new line
			keywords += "\n\t\t\t"
		endif
		currentItem = StringFromList(n, list, ";")
		if (strlen(currentItem) > 0)	// dont add item if its empty
			sprintf item, "'%s', ", currentItem
		endif
		keywords += item
		newNum += 1
	EndFor
	keywords = RemoveEnding(keywords, " ")
	keywords = RemoveEnding(keywords, ",")
	keywords = RemoveEnding(keywords, " ")
	file += keywords
	file += "\n\t\t\t),\n"
	
	file += "\t\t),\n"
	file += "\t'SYMBOLS' => array(\n"
	file += "\t\t'(', ')', '[', ']', '{', '}', '!', '@', '%', '&', '*', '|', '/', '<', '>'\n"
	file += "\t\t),\n"
	file += "\t'CASE_SENSITIVE' => array(\n"
	file += "\t\tGESHI_COMMENTS => false,\n"
	file += "\t\t\t1 => false,\n"
	file += "\t\t\t2 => false,\n"
	file += "\t\t\t3 => false,\n"
	file += "\t\t\t4 => false,\n"
	file += "\t\t\t5 => false\n"	
	file += "\t\t\t),\n"
	file += "\t'STYLES' => array(\n"
	file += "\t\t'KEYWORDS' => array(\n"
	// poundColor
	file += "\t\t\t1 => 'color: " + langColor + ";',\n"		// flow control
	file += "\t\t\t2 => 'color: " + langColor + ";',\n"	// variables, functions, data and reference types
	file += "\t\t\t3 => 'color: " + biFuncColor + ";',\n"			// Igor built in functions
	file += "\t\t\t4 => 'color: " + biOpColor + ";',\n"			// Igor built in operations
	file += "\t\t\t5 => 'color: " + poundColor + ";'\n"			// compiler directives
	file += "\t\t\t),\n"
	file += "\t\t'COMMENTS' => array(\n"
	file += "\t\t\t1 => 'color: " + commColor + "; font-style: italic;',\n"		// single line comments
	file += "\t\t\t),\n"
	file += "\t\t'ESCAPE_CHAR' => array(\n"
	file += "\t\t\t0 => 'color: " + strColor + ";'\n"
	file += "\t\t\t),\n"
	file += "\t\t'BRACKETS' => array(\n"
	file += "\t\t\t0 => 'color: " + kBlack + ";'\n"
	file += "\t\t\t),\n"
	file += "\t\t'STRINGS' => array(\n"
	file += "\t\t\t0 => 'color: " + strColor + ";'\n"
	file += "\t\t\t),\n"
	file += "\t\t'NUMBERS' => array(\n"
	file += "\t\t\t0 => 'color: " + kBlack + ";'\n"
	file += "\t\t\t),\n"
	file += "\t\t'METHODS' => array(\n"
	file += "\t\t\t0 => 'color: " + kBlack + ";'\n"
	file += "\t\t\t),\n"
	file += "\t\t'SYMBOLS' => array(\n"
	file += "\t\t\t0 => 'color: " + kBlack + ";'\n"
	file += "\t\t\t),\n"
	file += "\t\t'REGEXPS' => array(\n"
	file += "\t\t\t0 => 'color: " + kBlack + ";'\n"
	file += "\t\t\t),\n"
	file += "\t\t'SCRIPT' => array(\n"
	file += "\t\t\t0 => '',\n"
	file += "\t\t\t1 => '',\n"
	file += "\t\t\t2 => '',\n"
	file += "\t\t\t3 => ''\n"
	file += "\t\t\t)\n"
	file += "\t\t\t),\n"
	file += "\t'URLS' => array(\n"
	file += "\t\t\t1 => '',\n"
	file += "\t\t\t2 => '',\n"
	file += "\t\t\t3 => '',\n"
	file += "\t\t\t4 => '',\n"
	file += "\t\t\t5 => ''\n"
	file += "\t\t\t),\n"
	file += "\t'OOLANG' => false,\n"
	file += "\t'OBJECT_SPLITTERS' => array(\n"
	file += "\t\t1 => '',\n"
	file += "\t\t2 => ''\n"
	file += "\t\t),\n"
	file += "\t'REGEXPS' => array(\n"
	file += "\t\t0 => \"[\\$]{1,2}[a-zA-Z_][a-zA-Z0-9_]*\",\n"
	file += "\t\t1 => array(\n"
	file += "\t\t\tGESHI_SEARCH  => \"([a-zA-Z]+)(\\n)(.*)(\\n)(\\1;?)\",\n"
	file += "\t\t\tGESHI_REPLACE => '\\3',\n"
	file += "\t\t\tGESHI_BEFORE => '\\1\\2',\n"
	file += "\t\t\tGESHI_AFTER => '\\4\\5',\n"
	file += "\t\t\tGESHI_MODIFIERS => 'siU'\n"
	file += "\t\t\t)\n"
	file += "\t\t),\n"
	file += "\t'STRICT_MODE_APPLIES' => GESHI_NEVER,\n"
	file += "\t'SCRIPT_DELIMITERS' => array(\n"
	file += "\t\t0 => array(\n"
	file += "\t\t\t'<?php' => '?>'\n"
	file += "\t\t\t),\n"
	file += "\t\t1 => array(\n"
	file += "\t\t\t'<?' => '?>'\n"
	file += "\t\t\t),\n"
	file += "\t\t2 => array(\n"
	file += "\t\t\t'<%' => '%>'\n"
	file += "\t\t\t),\n"
	file += "\t\t3 => array(\n"
	file += "\t\t\t'<script language=\"igor\">' => '</script>'\n"
	file += "\t\t\t)\n"
	file += "\t\t\t),\n"
	file += "\t'HIGHLIGHT_STRICT_BLOCK' => array(\n"
	file += "\t\t0 => true,\n"
	file += "\t\t1 => true,\n"
	file += "\t\t2 => true,\n"
	file += "\t\t3 => true,\n"
	file += "\t\t4 => true,\n"
	file += "\t\t5 => true\n"
	file += "\t\t)\n"
	file += ");"
	return file
End

Function/S FlowControlList()
	String list = ""
	// flow control	
	list += "if;else;elseif;endif;for;endfor;"
	list += "strswitch;switch;case;endswitch;"
	list += "do;while;try;catch;endtry;break;continue;return;"
	return list
End

Function/S TypesList()
	String list = ""
	// data types
	list += "variable;string;constant;strconstant;"
	// reference types
	list += "NVAR;SVAR;WAVE;STRUCT;"
	// function/procedure/macro types
	list += "function;end;static;macro;window;graph;Structure;EndStructure;EndMacro;"
	list += "FuncFit;Proc;Picture;Menu;SubMenu;ThreadSafe;MultiThread;"
	// Commands
	list += "Prompt;DoPrompt;"
	return list
End

Function/S PragmasList()
	String list = "#include;#pragma;"
	return list
End