More work done on Telecomms:

▫ Signals can now be rejected by Subspace broadcasters through a specific data[] parameter.
▫ Improved the log browser.
▫ Log browsers and telecommunication monitors no longer require access to use. You do need access to delete logs, however.
▫ Intercoms need power to work. They don't drain power, they just need a constant flow of equipment power. As such, that offline intercom sprite's now finally being put to use.


Scripting language:

▫ Sorry about all the files; they're all necessary! It's important to notice that the basic structure of the scripting language code is not mine; I cannibalized the base structure from some obscure BYOND project. It's pretty well documented, and I'd say easier to browse through than atmos. Here's the basic deal:

A compiler datum manages the relationships between the three main subsystems of a scripting language: the Scanner, the Parser, and the Interpreter. The Scanner splits raw text into token datums that the Parser can read. The Parser transforms the otherwise random bits and strings into ordered AST Trees and nodes for the Interpreter to read. The interpreter actually executes the code and handles scope/functions/code blocks.

git-svn-id: http://tgstation13.googlecode.com/svn/trunk@3193 316c924e-a436-60f5-8080-3fe189b3f50e

code/modules/scripting/Scanner/Scanner.dm

@@ -0,0 +1,231 @@
+/*
+	File: Scanner
+*/
+/*
+	Class: n_Scanner
+	An object responsible for breaking up source code into tokens for use by the parser.
+*/
+/n_Scanner
+	var
+		code
+		list
+/*
+	Var: errors
+	A list of fatal errors found by the scanner. If there are any items in this list, then it is not safe to parse the returned tokens.
+
+	See Also:
+	- <scriptError>
+*/
+			errors   = new
+/*
+	Var: warnings
+	A list of non-fatal problems in the source code found by the scanner.
+*/
+			warnings = new
+
+	proc
+/*
+	Proc: LoadCode
+	Loads source code.
+*/
+		LoadCode(c)
+			code=c
+
+/*
+	Proc: LoadCodeFromFile
+	Gets the code from a file and calls <LoadCode()>.
+*/
+		LoadCodeFromFile(f)
+			LoadCode(file2text(f))
+
+/*
+	Proc: Scan
+	Runs the scanner and returns the resulting list of tokens. Ensure that <LoadCode()> has been called first.
+*/
+		Scan()
+
+/*
+	Class: nS_Scanner
+	A scanner implementation for n_Script.
+*/
+/n_Scanner/nS_Scanner
+
+	var
+/*
+	Variable: codepos
+	The scanner's position in the source code.
+*/
+		codepos				 = 1
+		line					 = 1
+		linepos 			 = 0 										 //column=codepos-linepos
+		n_scriptOptions/nS_Options/options
+		list
+/*
+	Variable: ignore
+	A list of characters that are ignored by the scanner.
+
+	Default Value:
+	Whitespace
+*/
+			ignore 			 = list(" ", "\t", "\n") //Don't add tokens for whitespace
+/*
+	Variable: end_stmt
+	A list of characters that end a statement. Each item may only be one character long.
+
+	Default Value:
+	Semicolon
+*/
+			end_stmt		 = list(";")
+/*
+	Variable: string_delim
+	A list of characters that can start and end strings.
+
+	Default Value:
+	Double and single quotes.
+*/
+			string_delim = list("\"", "'")
+/*
+	Variable: delim
+	A list of characters that denote the start of a new token. This list is automatically populated.
+*/
+			delim 			 = new
+
+/*
+	Macro: COL
+	The current column number.
+*/
+	#define COL codepos-linepos
+
+/*
+	Constructor: New
+	Parameters:
+	code	 	- The source code to tokenize.
+	options - An <nS_Options> object used to configure the scanner.
+*/
+	New(code, n_scriptOptions/nS_Options/options)
+		.=..()
+		ignore+= ascii2text(13) //Carriage return
+		delim += ignore + options.symbols + end_stmt + string_delim
+		src.options=options
+		LoadCode(code)
+
+	Scan() //Creates a list of tokens from source code
+		var/list/tokens=new
+		for(, src.codepos<=lentext(code), src.codepos++)
+			var/char=copytext(code, codepos, codepos+1)
+			if(char=="\n")
+				line++
+				linepos=codepos
+			if(ignore.Find(char))
+				continue
+			else if(end_stmt.Find(char))
+				tokens+=new /token/end(char, line, COL)
+			else if(string_delim.Find(char))
+				codepos++ //skip string delimiter
+				tokens+=ReadString(char)
+			else if(options.CanStartID(char))
+				tokens+=ReadWord()
+			else if(options.IsDigit(char))
+				tokens+=ReadNumber()
+			else if(options.symbols.Find(char))
+				tokens+=ReadSymbol()
+		codepos=initial(codepos)
+		line=initial(line)
+		linepos=initial(linepos)
+		return tokens
+
+	proc
+/*
+	Proc: ReadString
+	Reads a string in the source code into a token.
+
+	Parameters:
+	start - The character used to start the string.
+*/
+		ReadString(start)
+			var
+				buf
+			for(, codepos <= lentext(code), codepos++)//codepos to lentext(code))
+				var/char=copytext(code, codepos, codepos+1)
+				switch(char)
+					if("\\")					//Backslash (\) encountered in string
+						codepos++       //Skip next character in string, since it was escaped by a backslash
+						char=copytext(code, codepos, codepos+1)
+						switch(char)
+							if("\\")      //Double backslash
+								buf+="\\"
+							if("n")				//\n Newline
+								buf+="\n"
+							else
+								if(char==start) //\" Doublequote
+									buf+=start
+								else				//Unknown escaped text
+									buf+=char
+					if("\n")
+						. = new/token/string(buf, line, COL)
+						errors+=new/scriptError("Unterminated string. Newline reached.", .)
+						line++
+						linepos=codepos
+						break
+					else
+						if(char==start) //string delimiter found, end string
+							break
+						else
+							buf+=char     //Just a normal character in a string
+			if(!.) return new/token/string(buf, line, COL)
+
+/*
+	Proc: ReadWord
+	Reads characters separated by an item in <delim> into a token.
+*/
+		ReadWord()
+			var
+				char=copytext(code, codepos, codepos+1)
+				buf
+			while(!delim.Find(char) && codepos<=lentext(code))
+				buf+=char
+				char=copytext(code, ++codepos, codepos+1)
+			codepos-- //allow main Scan() proc to read the delimiter
+			if(options.keywords.Find(buf))
+				return new /token/keyword(buf, line, COL)
+			else
+				return new /token/word(buf, line, COL)
+
+/*
+	Proc: ReadSymbol
+	Reads a symbol into a token.
+*/
+		ReadSymbol()
+			var
+				char=copytext(code, codepos, codepos+1)
+				buf
+
+			while(options.symbols.Find(buf+char))
+				buf+=char
+				if(++codepos>lentext(code)) break
+				char=copytext(code, codepos, codepos+1)
+
+			codepos-- //allow main Scan() proc to read the next character
+			return new /token/symbol(buf, line, COL)
+
+/*
+	Proc: ReadNumber
+	Reads a number into a token.
+*/
+		ReadNumber()
+			var
+				char=copytext(code, codepos, codepos+1)
+				buf
+				dec=0
+
+			while(options.IsDigit(char) || (char=="." && !dec))
+				if(char==".") dec=1
+				buf+=char
+				codepos++
+				char=copytext(code, codepos, codepos+1)
+			var/token/number/T=new(buf, line, COL)
+			if(isnull(text2num(buf)))
+				errors+=new/scriptError("Bad number: ", T)
+				T.value=0
+			codepos-- //allow main Scan() proc to read the next character
+			return T

code/modules/scripting/Scanner/Tokens.dm

@@ -0,0 +1,38 @@
+/*
+	Class: Token
+	Represents an entity and position in the source code.
+*/
+/token
+	var
+		value
+		line
+		column
+
+	New(v, l=0, c=0)
+		value=v
+		line=l
+		column=c
+
+	string
+	symbol
+	word
+	keyword
+	number
+		New()
+			.=..()
+			if(!isnum(value))
+				value=text2num(value)
+				ASSERT(!isnull(value))
+	accessor
+		var
+			object
+			member
+
+		New(object, member, l=0, c=0)
+			src.object=object
+			src.member=member
+			src.value="[object].[member]" //for debugging only
+			src.line=l
+			src.column=c
+
+	end