Version 2.10.10

Fix for *.ts conflict between TypeScript and Qt Translation files

.travis.yml

@@ -1,4 +1,7 @@
-before_install: sudo apt-get install libicu-dev -y
+before_install: 
+  - sudo apt-get install libicu-dev -y
+  # Short-term fix addressing https://github.com/bundler/bundler/issues/2784
+  - gem update --system 2.1.11
 rvm:
   - 1.8.7
   - 1.9.2

LICENSE

@@ -1,4 +1,4 @@
-Copyright (c) 2011-2013 GitHub, Inc.
+Copyright (c) 2011-2014 GitHub, Inc.
 
 Permission is hereby granted, free of charge, to any person
 obtaining a copy of this software and associated documentation

README.md

@@ -1,18 +1,20 @@
 # Linguist
 
-We use this library at GitHub to detect blob languages, highlight code, ignore binary files, suppress generated files in diffs and generate language breakdown graphs.
+We use this library at GitHub to detect blob languages, highlight code, ignore binary files, suppress generated files in diffs, and generate language breakdown graphs.
 
 ## Features
 
 ### Language detection
 
-Linguist defines the list of all languages known to GitHub in a [yaml file](https://github.com/github/linguist/blob/master/lib/linguist/languages.yml). In order for a file to be highlighted, a language and lexer must be defined there.
+Linguist defines a list of all languages known to GitHub in a [yaml file](https://github.com/github/linguist/blob/master/lib/linguist/languages.yml). In order for a file to be highlighted, a language and lexer must be defined there.
 
 Most languages are detected by their file extension. This is the fastest and most common situation.
 
-For disambiguating between files with common extensions, we use a [Bayesian classifier](https://github.com/github/linguist/blob/master/lib/linguist/classifier.rb). For an example, this helps us tell the difference between `.h` files which could be either C, C++, or Obj-C.
-
-In the actual GitHub app we deal with `Grit::Blob` objects. For testing, there is a simple `FileBlob` API.
+For disambiguating between files with common extensions, we first apply
+some common-sense heuristics to pick out obvious languages. After that, we use a
+[statistical
+classifier](https://github.com/github/linguist/blob/master/lib/linguist/classifier.rb).
+This process can help us tell the difference between, for example, `.h` files which could be either C, C++, or Obj-C.
 
 ```ruby
 
@@ -27,12 +29,9 @@ See [lib/linguist/language.rb](https://github.com/github/linguist/blob/master/li
 
 The actual syntax highlighting is handled by our Pygments wrapper, [pygments.rb](https://github.com/tmm1/pygments.rb). It also provides a [Lexer abstraction](https://github.com/tmm1/pygments.rb/blob/master/lib/pygments/lexer.rb) that determines which highlighter should be used on a file.
 
-We typically run on a pre-release version of Pygments, [pygments.rb](https://github.com/tmm1/pygments.rb), to get early access to new lexers. The [languages.yml](https://github.com/github/linguist/blob/master/lib/linguist/languages.yml) file is a dump of the lexers we have available on our server.
-
 ### Stats
 
-The Language Graph you see on every repository is built by aggregating the languages of each file in that repository. 
-The top language in the graph determines the project's primary language. Collectively, these stats make up the [Top Languages](https://github.com/languages) page.
+The Language stats bar that you see on every repository is built by aggregating the languages of each file in that repository. The top language in the graph determines the project's primary language. Collectively, these stats make up the [Top Languages](https://github.com/languages) page.
 
 The repository stats API, accessed through `#languages`, can be used on a directory:
 
@@ -42,10 +41,27 @@ project.language.name  #=> "Ruby"
 project.languages      #=> { "Ruby" => 0.98, "Shell" => 0.02 }
 ```
 
-These stats are also printed out by the `linguist` binary. Try running `linguist` on itself:
+These stats are also printed out by the `linguist` binary. You can use the
+`--breakdown` flag, and the binary will also output the breakdown of files by language.
 
-    $ bundle exec linguist lib/
-    100%  Ruby
+You can try running `linguist` on the `lib/` directory in this repository itself:
+
+    $ bundle exec linguist lib/ --breakdown
+
+    100.00% Ruby
+
+    Ruby:
+    linguist/blob_helper.rb
+    linguist/classifier.rb
+    linguist/file_blob.rb
+    linguist/generated.rb
+    linguist/heuristics.rb
+    linguist/language.rb
+    linguist/md5.rb
+    linguist/repository.rb
+    linguist/samples.rb
+    linguist/tokenizer.rb
+    linguist.rb
 
 #### Ignore vendored files
 

Rakefile

@@ -1,7 +1,7 @@
+require 'json'
 require 'rake/clean'
 require 'rake/testtask'
 require 'yaml'
-require 'json'
 
 task :default => :test
 

bin/linguist

@@ -1,14 +1,22 @@
 #!/usr/bin/env ruby
 
 # linguist — detect language type for a file, or, given a directory, determine language breakdown
-#
-# usage: linguist <path>
+#     usage: linguist <path> [<--breakdown>]
 
 require 'linguist/file_blob'
 require 'linguist/repository'
 
 path = ARGV[0] || Dir.pwd
 
+# special case if not given a directory but still given the --breakdown option
+if path == "--breakdown"
+  path = Dir.pwd
+  breakdown = true
+end
+
+ARGV.shift
+breakdown = true if ARGV[0] == "--breakdown"
+
 if File.directory?(path)
   repo = Linguist::Repository.from_directory(path)
   repo.languages.sort_by { |_, size| size }.reverse.each do |language, size|
@@ -16,6 +24,17 @@ if File.directory?(path)
     percentage = sprintf '%.2f' % percentage
     puts "%-7s %s" % ["#{percentage}%", language]
   end
+  if breakdown
+    puts
+    file_breakdown = repo.breakdown_by_file
+    file_breakdown.each do |lang, files|
+      puts "#{lang}:" 
+      files.each do |file|
+        puts file
+      end
+      puts
+    end
+  end
 elsif File.file?(path)
   blob = Linguist::FileBlob.new(path, Dir.pwd)
   type = if blob.text?

github-linguist.gemspec

@@ -1,10 +1,12 @@
 Gem::Specification.new do |s|
   s.name    = 'github-linguist'
-  s.version = '2.10.5'
+  s.version = '2.10.10'
   s.summary = "GitHub Language detection"
+  s.description = 'We use this library at GitHub to detect blob languages, highlight code, ignore binary files, suppress generated files in diffs, and generate language breakdown graphs.'
 
   s.authors  = "GitHub"
   s.homepage = "https://github.com/github/linguist"
+  s.license  = "MIT"
 
   s.files = Dir['lib/**/*']
   s.executables << 'linguist'

lib/linguist.rb

@@ -1,5 +1,6 @@
 require 'linguist/blob_helper'
 require 'linguist/generated'
+require 'linguist/heuristics'
 require 'linguist/language'
 require 'linguist/repository'
 require 'linguist/samples'

lib/linguist/classifier.rb

@@ -83,8 +83,8 @@ module Linguist
       debug_dump_all_tokens(tokens, languages) if verbosity >= 2
 
       languages.each do |language|
-        debug_dump_probabilities(tokens, language) if verbosity >= 1
         scores[language] = tokens_probability(tokens, language) + language_probability(language)
+        debug_dump_probabilities(tokens, language, scores[language]) if verbosity >= 1
       end
 
       scores.sort { |a, b| b[1] <=> a[1] }.map { |score| [score[0], score[1]] }
@@ -130,9 +130,9 @@ module Linguist
         @verbosity ||= (ENV['LINGUIST_DEBUG'] || 0).to_i
       end
 
-      def debug_dump_probabilities
+      def debug_dump_probabilities(tokens, language, score)
         printf("%10s = %10.3f + %7.3f = %10.3f\n",
-            language, tokens_probability(tokens, language), language_probability(language), scores[language])
+            language, tokens_probability(tokens, language), language_probability(language), score)
       end
 
       # Internal: show a table of probabilities for each <token,language> pair.

lib/linguist/generated.rb

@@ -58,6 +58,7 @@ module Linguist
         generated_parser? ||
         generated_net_docfile? ||
         generated_net_designer_file? ||
+        generated_postscript? ||
         generated_protocol_buffer? ||
         generated_jni_header? ||
         composer_lock? ||
@@ -176,6 +177,29 @@ module Linguist
       false
     end
 
+    # Internal: Is the blob of PostScript generated?
+    #
+    # PostScript files are often generated by other programs. If they tell us so,
+    # we can detect them.
+    #
+    # Returns true or false.
+    def generated_postscript?
+      return false unless ['.ps', '.eps'].include? extname
+
+      # We analyze the "%%Creator:" comment, which contains the author/generator
+      # of the file. If there is one, it should be in one of the first few lines.
+      creator = lines[0..9].find {|line| line =~ /^%%Creator: /}
+      return false if creator.nil?
+
+      # Most generators write their version number, while human authors' or companies'
+      # names don't contain numbers. So look if the line contains digits. Also
+      # look for some special cases without version numbers.
+      return creator =~ /[0-9]/ ||
+        creator.include?("mpage") ||
+        creator.include?("draw") ||
+        creator.include?("ImageMagick")
+    end
+
     # Internal: Is the blob a C++, Java or Python source file generated by the
     # Protocol Buffer compiler?
     #

lib/linguist/heuristics.rb

@@ -0,0 +1,60 @@
+module Linguist
+  # A collection of simple heuristics that can be used to better analyze languages.
+  class Heuristics
+    ACTIVE = false
+
+    # Public: Given an array of String language names,
+    # apply heuristics against the given data and return an array
+    # of matching languages, or nil.
+    #
+    # data      - Array of tokens or String data to analyze.
+    # languages - Array of language name Strings to restrict to.
+    #
+    # Returns an array of Languages or []
+    def self.find_by_heuristics(data, languages)
+      if active?
+        if languages.all? { |l| ["Objective-C", "C++"].include?(l) }
+          disambiguate_c(data, languages)
+        end
+        if languages.all? { |l| ["Perl", "Prolog"].include?(l) }
+          disambiguate_pl(data, languages)
+        end
+        if languages.all? { |l| ["TypeScript", "XML"].include?(l) }
+          disambiguate_ts(data, languages)
+        end
+      end
+    end
+
+    # .h extensions are ambigious between C, C++, and Objective-C.
+    # We want to shortcut look for Objective-C _and_ now C++ too!
+    #
+    # Returns an array of Languages or []
+    def self.disambiguate_c(data, languages)
+      matches = []
+      matches << Language["Objective-C"] if data.include?("@interface")
+      matches << Language["C++"] if data.include?("#include <cstdint>")
+      matches
+    end
+
+    def self.disambiguate_pl(data, languages)
+      matches = []
+      matches << Language["Prolog"] if data.include?(":-")
+      matches << Language["Perl"] if data.include?("use strict")
+      matches
+    end
+
+    def self.disambiguate_ts(data, languages)
+      matches = []
+      if (data.include?("</translation>"))
+        matches << Language["XML"]
+      else
+        matches << Language["TypeScript"]
+      end
+      matches
+    end
+
+    def self.active?
+      !!ACTIVE
+    end
+  end
+end

lib/linguist/language.rb

@@ -7,6 +7,7 @@ rescue LoadError
 end
 
 require 'linguist/classifier'
+require 'linguist/heuristics'
 require 'linguist/samples'
 
 module Linguist
@@ -32,7 +33,7 @@ module Linguist
     #
     # Returns an array
     def self.detectable_markup
-      ["CSS", "Less", "Sass", "Stylus", "TeX"]
+      ["CSS", "Less", "Sass", "SCSS", "Stylus", "TeX"]
     end
 
     # Detect languages by a specific type
@@ -113,19 +114,32 @@ module Linguist
         name += ".script!"
       end
 
+      # First try to find languages that match based on filename.
       possible_languages = find_by_filename(name)
 
+      # If there is more than one possible language with that extension (or no
+      # extension at all, in the case of extensionless scripts), we need to continue
+      # our detection work
       if possible_languages.length > 1
         data = data.call() if data.respond_to?(:call)
+        possible_language_names = possible_languages.map(&:name)
 
+        # Don't bother with emptiness
         if data.nil? || data == ""
           nil
+        # Check if there's a shebang line and use that as authoritative
         elsif (result = find_by_shebang(data)) && !result.empty?
           result.first
-        elsif classified = Classifier.classify(Samples::DATA, data, possible_languages.map(&:name)).first
+        # No shebang. Still more work to do. Try to find it with our heuristics.
+        elsif (determined = Heuristics.find_by_heuristics(data, possible_language_names)) && !determined.empty?
+          determined.first
+        # Lastly, fall back to the probablistic classifier.
+        elsif classified = Classifier.classify(Samples::DATA, data, possible_language_names ).first
+          # Return the actual Language object based of the string language name (i.e., first element of `#classify`)
           Language[classified[0]]
         end
       else
+        # Simplest and most common case, we can just return the one match based on extension
         possible_languages.first
       end
     end

lib/linguist/languages.yml

@@ -90,6 +90,8 @@ AppleScript:
   aliases:
   - osascript
   primary_extension: .applescript
+  extensions:
+  - .scpt
 
 Arc:
   type: programming
@@ -223,6 +225,7 @@ C#:
   - csharp
   primary_extension: .cs
   extensions:
+  - .cshtml
   - .csx
 
 C++:
@@ -380,6 +383,12 @@ Creole:
   wrap: true
   primary_extension: .creole
 
+Crystal:
+  type: programming
+  lexer: Ruby
+  primary_extension: .cr
+  ace_mode: ruby
+
 Cucumber:
   lexer: Gherkin
   primary_extension: .feature
@@ -724,6 +733,19 @@ Haxe:
   extensions:
   - .hxsl
 
+Hy:
+  type: programming
+  lexer: Clojure
+  ace_mode: clojure
+  color: "#7891b1"
+  primary_extension: .hy
+
+IDL:
+  type: programming
+  lexer: Text only
+  color: "#e3592c"
+  primary_extension: .pro
+
 INI:
   type: data
   extensions:
@@ -785,6 +807,11 @@ JSON:
   - .jshintrc
   - composer.lock
 
+JSON5:
+  type: data
+  lexer: JavaScript
+  primary_extension: .json5
+
 Jade:
   group: HTML
   type: markup
@@ -820,6 +847,7 @@ JavaScript:
   - .jsm
   - .jss
   - .jsx
+  - .njs
   - .pac
   - .sjs
   - .ssjs
@@ -913,10 +941,6 @@ LiveScript:
 Logos:
   type: programming
   primary_extension: .xm
-  extensions:
-  - .x
-  - .xi
-  - .xmi
 
 Logtalk:
   type: programming
@@ -932,6 +956,8 @@ Lua:
   extensions:
   - .nse
   - .rbxs
+  interpreters:
+  - lua
 
 M:
   type: programming
@@ -1146,6 +1172,12 @@ Oxygene:
   color: "#5a63a3"
   primary_extension: .oxygene
 
+PAWN:
+  type: programming
+  lexer: C++
+  color: "#dbb284"
+  primary_extension: .pwn
+  
 PHP:
   type: programming
   ace_mode: php
@@ -1199,16 +1231,28 @@ Perl:
   primary_extension: .pl
   extensions:
   - .PL
-  - .nqp
   - .perl
   - .ph
   - .plx
-  - .pm6
+  - .pm
   - .pod
   - .psgi
   interpreters:
   - perl
 
+Perl6:
+  type: programming
+  color: "#0298c3"
+  primary_extension: .p6
+  extensions:
+  - .6pl
+  - .6pm
+  - .nqp
+  - .p6l
+  - .p6m
+  - .pl6
+  - .pm6
+
 Pike:
   type: programming
   color: "#066ab2"
@@ -1230,6 +1274,12 @@ PogoScript:
   lexer: Text only
   primary_extension: .pogo
 
+PostScript:
+  type: markup
+  primary_extension: .ps
+  extensions:
+  - .eps
+
 PowerShell:
   type: programming
   ace_mode: powershell
@@ -1250,8 +1300,6 @@ Prolog:
   type: programming
   color: "#74283c"
   primary_extension: .prolog
-  extensions:
-  - .pro
 
 Protocol Buffer:
   type: markup
@@ -1289,6 +1337,8 @@ Python:
   - .xpy
   filenames:
   - wscript
+  - SConstruct
+  - SConscript
   interpreters:
   - python
 
@@ -1308,6 +1358,8 @@ R:
   type: programming
   color: "#198ce7"
   lexer: S
+  aliases:
+  - R
   primary_extension: .r
   extensions:
   - .R
@@ -1340,7 +1392,7 @@ RHTML:
   primary_extension: .rhtml
 
 RMarkdown:
-  type: markup
+  type: prose
   lexer: Text only
   wrap: true
   ace_mode: markdown
@@ -1537,6 +1589,8 @@ Standard ML:
   aliases:
   - sml
   primary_extension: .sml
+  extensions:
+  - .fun
 
 Stylus:
   type: markup
@@ -1584,6 +1638,7 @@ TeX:
   extensions:
   - .aux
   - .bib
+  - .cls
   - .dtx
   - .ins
   - .ltx
@@ -1690,6 +1745,7 @@ Visual Basic:
   - .frm
   - .frx
   - .vba
+  - .vbhtml
   - .vbs
 
 Volt:

lib/linguist/repository.rb

@@ -29,6 +29,7 @@ module Linguist
       @computed_stats = false
       @language = @size = nil
       @sizes = Hash.new { 0 }
+      @file_breakdown = Hash.new { |h,k| h[k] = Array.new }
     end
 
     # Public: Returns a breakdown of language stats.
@@ -60,6 +61,12 @@ module Linguist
       @size
     end
 
+    # Public: Return the language breakdown of this repository by file
+    def breakdown_by_file
+      compute_stats
+      @file_breakdown
+    end
+
     # Internal: Compute language breakdown for each blob in the Repository.
     #
     # Returns nothing
@@ -75,6 +82,10 @@ module Linguist
 
         # Only include programming languages and acceptable markup languages
         if blob.language.type == :programming || Language.detectable_markup.include?(blob.language.name)
+
+          # Build up the per-file breakdown stats
+          @file_breakdown[blob.language.group.name] << blob.name
+
           @sizes[blob.language.group] += blob.size
         end
       end

lib/linguist/vendor.yml

@@ -27,11 +27,14 @@
 # Node dependencies
 - node_modules/
 
+# Bower Components
+- bower_components/
+
 # Erlang bundles
 - ^rebar$
 
 # Bootstrap minified css and js
-- (^|/)bootstrap([^.]*)(\.min)\.(js|css)$
+- (^|/)bootstrap([^.]*)(\.min)?\.(js|css)$
 
 # Vendored dependencies
 - thirdparty/
@@ -82,6 +85,9 @@
 - (^|/)shCore\.js$
 - (^|/)shLegacy\.js$
 
+# AngularJS
+- (^|/)angular([^.]*)(\.min)?\.js$
+
 ## Python ##
 
 # django
@@ -140,6 +146,7 @@
 # LICENSE, README, git config files
 - ^COPYING$
 - LICENSE$
+- License$
 - gitattributes$
 - gitignore$
 - gitmodules$

samples/C#/Index.cshtml

@@ -0,0 +1,45 @@
+@{
+    ViewBag.Title = "Home Page";
+}
+@section featured {
+    <section class="featured">
+        <div class="content-wrapper">
+            <hgroup class="title">
+                <h1>@ViewBag.Title.</h1>
+                <h2>@ViewBag.Message</h2>
+            </hgroup>
+            <p>
+                To learn more about ASP.NET MVC visit
+                <a href="http://asp.net/mvc" title="ASP.NET MVC Website">http://asp.net/mvc</a>.
+                The page features <mark>videos, tutorials, and samples</mark> to help you get the most from ASP.NET MVC.
+                If you have any questions about ASP.NET MVC visit
+                <a href="http://forums.asp.net/1146.aspx/1?MVC" title="ASP.NET MVC Forum">our forums</a>.
+            </p>
+        </div>
+    </section>
+}
+<h3>We suggest the following:</h3>
+<ol class="round">
+    <li class="one">
+        <h5>Getting Started</h5>
+        ASP.NET MVC gives you a powerful, patterns-based way to build dynamic websites that
+        enables a clean separation of concerns and that gives you full control over markup
+        for enjoyable, agile development. ASP.NET MVC includes many features that enable
+        fast, TDD-friendly development for creating sophisticated applications that use
+        the latest web standards.
+        <a href="http://go.microsoft.com/fwlink/?LinkId=245151">Learn more…</a>
+    </li>
+
+    <li class="two">
+        <h5>Add NuGet packages and jump-start your coding</h5>
+        NuGet makes it easy to install and update free libraries and tools.
+        <a href="http://go.microsoft.com/fwlink/?LinkId=245153">Learn more…</a>
+    </li>
+
+    <li class="three">
+        <h5>Find Web Hosting</h5>
+        You can easily find a web hosting company that offers the right mix of features
+        and price for your applications.
+        <a href="http://go.microsoft.com/fwlink/?LinkId=245157">Learn more…</a>
+    </li>
+</ol>

samples/C#/Program.cs

@@ -0,0 +1,21 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+using System.Threading.Tasks;
+
+namespace LittleSampleApp
+{
+  /// <summary>
+  /// Just what it says on the tin. A little sample application for Linguist to try out.
+  /// 
+  /// </summary>
+  class Program
+  {
+    static void Main(string[] args)
+    {
+      Console.WriteLine("Hello, I am a little sample application to test GitHub's Linguist module.");
+      Console.WriteLine("I also include a Razor MVC file just to prove it handles cshtml files now.");
+    }
+  }
+}

samples/C++/CsvStreamer.h

@@ -0,0 +1,42 @@
+#pragma once
+#include <string>
+#include <vector>
+#include <fstream>
+#include "util.h"
+
+using namespace std;
+
+
+#define DEFAULT_DELIMITER	','
+
+
+class CsvStreamer
+{
+	private:
+		ofstream file;				// File output stream
+		vector<string> row_buffer;	// Buffer which stores a row's data before being flushed/written
+		int fields;					// Number of fields (columns)
+		long rows;					// Number of rows (records) including header row
+		char delimiter;				// Delimiter character; comma by default
+		string sanitize(string);	// Returns a string ready for output into the file
+		
+	public:
+		CsvStreamer();				// Empty CSV streamer... be sure to open the file before writing!
+		CsvStreamer(string, char);	// Same as open(string, char)...
+		CsvStreamer(string);		// Opens an output CSV file given a file path/name
+		~CsvStreamer();				// Ensures the output file is closed and saved
+		void open(string);			// Opens an output CSV file given a file path/name (default delimiter)
+		void open(string, char);	// Opens an output CSV file given a file path/name and a delimiting character (default comma)
+		void add_field(string);		// If still on first line, adds a new field to the header row
+		void save_fields();			// Call this to save the header row; all new writes should be through append()
+		void append(string);		// Appends the current row with this data for the next field; quoted only if needed (leading/trailing spaces are trimmed)
+		void append(string, bool);	// Like append(string) but can specify whether to trim spaces at either end of the data (false to keep spaces)
+		void append(float);			// Appends the current row with this number
+		void append(double);		// Appends the current row with this number
+		void append(long);			// Appends the current row with this number
+		void append(int);			// Appends the current row with this number
+		void writeln();				// Flushes what was in the row buffer into the file (writes the row)
+		void close();				// Saves and closes the file
+		int field_count();			// Gets the number of fields (columns)
+		long row_count();			// Gets the number of records (rows) -- NOT including the header row
+};

samples/C++/Field.h

@@ -0,0 +1,32 @@
+/*****************************************************************************
+* Dwarf Mine - The 13-11 Benchmark
+*
+* Copyright (c) 2013 Bünger, Thomas; Kieschnick, Christian; Kusber,
+* Michael; Lohse, Henning; Wuttke, Nikolai; Xylander, Oliver; Yao, Gary;
+* Zimmermann, Florian
+*
+* Permission is hereby granted, free of charge, to any person obtaining
+* a copy of this software and associated documentation files (the
+* "Software"), to deal in the Software without restriction, including
+* without limitation the rights to use, copy, modify, merge, publish,
+* distribute, sublicense, and/or sell copies of the Software, and to
+* permit persons to whom the Software is furnished to do so, subject to
+* the following conditions:
+*
+* The above copyright notice and this permission notice shall be
+* included in all copies or substantial portions of the Software.
+*
+* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+*****************************************************************************/
+
+#pragma once
+
+enum Field { Free, Black, White, Illegal };
+
+typedef Field Player;

samples/C++/Types.h

@@ -0,0 +1,32 @@
+/*****************************************************************************
+* Dwarf Mine - The 13-11 Benchmark
+*
+* Copyright (c) 2013 Bünger, Thomas; Kieschnick, Christian; Kusber,
+* Michael; Lohse, Henning; Wuttke, Nikolai; Xylander, Oliver; Yao, Gary;
+* Zimmermann, Florian
+*
+* Permission is hereby granted, free of charge, to any person obtaining
+* a copy of this software and associated documentation files (the
+* "Software"), to deal in the Software without restriction, including
+* without limitation the rights to use, copy, modify, merge, publish,
+* distribute, sublicense, and/or sell copies of the Software, and to
+* permit persons to whom the Software is furnished to do so, subject to
+* the following conditions:
+*
+* The above copyright notice and this permission notice shall be
+* included in all copies or substantial portions of the Software.
+*
+* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+*****************************************************************************/
+
+#pragma once
+
+#include <cstdint>
+
+typedef uint32_t smallPrime_t;

samples/C++/libcanister.h

@@ -0,0 +1,138 @@
+#ifndef LIBCANIH
+#define LIBCANIH
+#include <iostream>
+#include <fstream>
+#include <stdlib.h>
+#include <cstring>
+
+#define int64 unsigned long long
+//#define DEBUG
+
+#ifdef DEBUG
+#define dout cout
+#else
+#define dout if (0) cerr
+#endif
+
+using namespace std;
+
+namespace libcanister
+{
+
+    //the canmem object is a generic memory container used commonly
+    //throughout the canister framework to hold memory of uncertain
+    //length which may or may not contain null bytes. 
+    class canmem
+    {
+    public:
+        char* data; //the raw memory block
+        int size; //the absolute length of the block
+        canmem(); //creates an unallocated canmem
+        canmem(int allocsize); //creates an allocated, blank canmem of size
+        canmem(char* strdata); //automates the creation of zero-limited canmems
+        ~canmem(); //cleans up the canmem
+        void zeromem(); //overwrites this canmem
+        void fragmem(); //overwrites this canmem with fragment notation
+        void countlen(); //counts length of zero-limited strings and stores it in size
+        void trim(); //removes any nulls from the end of the string
+        static canmem null(); //returns a singleton null canmem
+        
+    };
+    
+    //contains information about the canister
+    class caninfo
+    {
+    public:
+        canmem path; //physical path
+        canmem internalname; //a name for the canister
+        int numfiles; //the number of files in the canister
+    };
+    
+    //necessary for the use of this class as a type in canfile
+    class canister;
+    
+    //this object holds the definition of a 'file' within the
+    //canister 'filesystem.'
+    class canfile
+    {
+    public:
+        libcanister::canister* parent; //the canister that holds this file
+        canmem path; //internal path ('filename')
+        canmem data; //the file's decompressed contents
+        int isfrag; //0 = probably not fragment, 1 = definitely a fragment (ignore)
+        int cfid; //'canfile id' -- a unique ID for this file
+        int64 dsize; //ondisk size (compressed form size)
+        int cachestate; //0 = not in memory, 1 = in memory, 2 = in memory and needs flush
+                        //-1 = error, check the data for the message
+        void cache(); //pull the file from disk and cache it in memory
+        void cachedump(); //deletes the contents of this file from the memory cache after assuring the on disk copy is up to date
+        void cachedumpfinal(fstream& infile); //same as cachedump, but more efficient during closing procedures
+        void flush(); //updates the on disk copy, but retains the memory cache
+    };
+
+    //the primary class
+    //this defines and controls a single canister
+    class canister
+    {
+        //table of contents
+        //absolutely worthless to the control code in the canister
+        //but quite useful to programs using the API, as they may
+        //desire to enumerate the files in a canister for a user's
+        //use or for their own.
+        //contains a newline-delimited list of files in the container.
+        canfile TOC;
+    public:
+        caninfo info; //the general info about this canister
+
+        //the raw canfiles -- recommended that programs do not modify
+        //these files directly, but not enforced.
+        canfile* files;
+        bool readonly; //if true then no write routines will do anything
+        
+        //maximum number of files to have in memory at any given
+        //time, change this to whatever suits your application.
+        int cachemax;
+        int cachecnt; //number of files in the cache (should not be modified)
+
+        //both initialize the canister from a physical location
+        canister (canmem fspath);
+        canister (char* fspath);
+
+        //destroys the canister (after flushing the modded buffers, of course)
+        ~canister();
+        
+        //open the fspath
+        //does it exist?
+        // | --- yes --- opening it (return 1)
+        // | --- yes --- file is corrupted, halting (return -1)
+        // | --- no  --- making a new one (return 0)
+        int open();
+        
+        //close the canister, flush all buffers, clean up
+        int close();
+        
+        //deletes the file at path inside this canister
+        int delFile(canmem path);
+        
+        //pulls the contents of the file from disk or memory and returns it as a file
+        canfile getFile(canmem path);
+        
+        //creates a file if it does not exist, otherwise overwrites
+        //returns whether operation succeeded
+        bool writeFile(canmem path, canmem data);
+        bool writeFile(canfile file);
+        
+        //get the 'table of contents', a file containing a newline delimited
+        //list of the file paths in the container which have contents
+        canfile getTOC();
+ 
+        //brings the cache back within the cachemax limit
+        //important: sCFID is the safe CFID
+        //(the CFID of the file we want to avoid uncaching)
+        //really just used internally, but it can't do any harm.
+        void cacheclean(int sCFID, bool dFlush = false);
+    };
+
+}
+
+#endif

samples/C++/metrics.h

@@ -0,0 +1,92 @@
+// Copyright 2011 Google Inc. All Rights Reserved.
+//
+// Licensed under the Apache License, Version 2.0 (the "License");
+// you may not use this file except in compliance with the License.
+// You may obtain a copy of the License at
+//
+//     http://www.apache.org/licenses/LICENSE-2.0
+//
+// Unless required by applicable law or agreed to in writing, software
+// distributed under the License is distributed on an "AS IS" BASIS,
+// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+// See the License for the specific language governing permissions and
+// limitations under the License.
+
+#ifndef NINJA_METRICS_H_
+#define NINJA_METRICS_H_
+
+#include <string>
+#include <vector>
+using namespace std;
+
+#include "util.h"  // For int64_t.
+
+/// The Metrics module is used for the debug mode that dumps timing stats of
+/// various actions.  To use, see METRIC_RECORD below.
+
+/// A single metrics we're tracking, like "depfile load time".
+struct Metric {
+  string name;
+  /// Number of times we've hit the code path.
+  int count;
+  /// Total time (in micros) we've spent on the code path.
+  int64_t sum;
+};
+
+
+/// A scoped object for recording a metric across the body of a function.
+/// Used by the METRIC_RECORD macro.
+struct ScopedMetric {
+  explicit ScopedMetric(Metric* metric);
+  ~ScopedMetric();
+
+private:
+  Metric* metric_;
+  /// Timestamp when the measurement started.
+  /// Value is platform-dependent.
+  int64_t start_;
+};
+
+/// The singleton that stores metrics and prints the report.
+struct Metrics {
+  Metric* NewMetric(const string& name);
+
+  /// Print a summary report to stdout.
+  void Report();
+
+private:
+  vector<Metric*> metrics_;
+};
+
+/// Get the current time as relative to some epoch.
+/// Epoch varies between platforms; only useful for measuring elapsed time.
+int64_t GetTimeMillis();
+
+/// A simple stopwatch which returns the time
+/// in seconds since Restart() was called.
+struct Stopwatch {
+ public:
+  Stopwatch() : started_(0) {}
+
+  /// Seconds since Restart() call.
+  double Elapsed() const {
+    return 1e-6 * static_cast<double>(Now() - started_);
+  }
+
+  void Restart() { started_ = Now(); }
+
+ private:
+  uint64_t started_;
+  uint64_t Now() const;
+};
+
+/// The primary interface to metrics.  Use METRIC_RECORD("foobar") at the top
+/// of a function to get timing stats recorded for each call of the function.
+#define METRIC_RECORD(name)                                             \
+  static Metric* metrics_h_metric =                                     \
+      g_metrics ? g_metrics->NewMetric(name) : NULL;                    \
+  ScopedMetric metrics_h_scoped(metrics_h_metric);
+
+extern Metrics* g_metrics;
+
+#endif // NINJA_METRICS_H_

samples/C++/render_adapter.cpp

@@ -0,0 +1,6 @@
+#include <cstdint>
+
+namespace Gui
+{
+
+}

samples/C++/rpc.h

@@ -0,0 +1,26 @@
+// Copyright (C) 2013 Simon Que
+//
+// This file is part of DuinoCube.
+//
+// DuinoCube is free software: you can redistribute it and/or modify
+// it under the terms of the GNU Lesser General Public License as published by
+// the Free Software Foundation, either version 3 of the License, or
+// (at your option) any later version.
+//
+// DuinoCube is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+// GNU Lesser General Public License for more details.
+//
+// You should have received a copy of the GNU Lesser General Public License
+// along with DuinoCube.  If not, see <http://www.gnu.org/licenses/>.
+
+// DuinoCube remote procedure call functions.
+
+#include <stdint.h>
+
+// Initializes RPC system.
+void rpc_init();
+
+// Runs the RPC server loop forever.
+void rpc_server_loop();

samples/C/bootstrap.h

@@ -0,0 +1,102 @@
+#ifndef BOOTSTRAP_H
+#define BOOTSTRAP_H
+
+#include <stdio.h>
+#include "cxrs.h"
+
+/* If we're not using GNU C, elide __attribute__ */
+#ifndef __GNUC__
+#  define  __attribute__(x)  /*NOTHING*/
+#endif
+
+typedef struct object object;
+
+object *true;
+object *false;
+object *eof;
+object *empty_list;
+object *global_enviroment;
+
+enum obj_type {
+        scm_bool,
+        scm_empty_list,
+        scm_eof,
+        scm_char,
+        scm_int,
+        scm_pair,
+        scm_symbol,
+        scm_prim_fun,
+        scm_lambda,
+        scm_str,
+        scm_file
+};
+
+typedef object *(*prim_proc)(object *args);
+
+object *read(FILE *in);
+object *eval(object *code, object *env);
+void print(FILE *out, object *obj, int display);
+
+int check_type(enum obj_type type, object *obj, int err_on_false);
+
+static inline int is_true(object *obj)
+{
+        return obj != false;
+}
+
+object *make_int(int value);
+int obj2int(object *i);
+
+object *make_bool(int value);
+int obj2bool(object *b);
+
+object *make_char(char c);
+char obj2char(object *ch);
+
+object *make_str(char *str);
+char *obj2str(object *str);
+
+object *cons(object *car, object *cdr);
+object *car(object *pair);
+object *cdr(object *pair);
+void set_car(object *pair, object *new);
+void set_cdr(object *pair, object *new);
+
+object *make_symbol(char *name);
+char *sym2str(object *sym);
+object *get_symbol(char *name) __attribute__((pure));
+
+object *make_prim_fun(prim_proc fun);
+prim_proc obj2prim_proc(object *proc);
+
+object *make_lambda(object *args, object *code, object *env);
+object *lambda_code(object *lambda);
+object *lambda_args(object *lambda);
+
+object *make_port(FILE *handle, int direction);
+int port_direction(object *port);
+FILE *port_handle(object *port);
+void set_port_handle_to_null(object *port);
+
+/*both of these should never be called*/
+object *apply_proc(object *);
+object *eval_proc(object *);
+
+
+object *maybe_add_begin(object *code);
+
+void init_enviroment(object *env);
+
+
+void eval_err(char *msg, object *code) __attribute__((noreturn));
+
+void define_var(object *var, object *val, object *env);
+void set_var(object *var, object *val, object *env);
+object *get_var(object *var, object *env);
+
+object *cond2nested_if(object *cond);
+object *let2lambda(object *let);
+object *and2nested_if(object *and);
+object *or2nested_if(object *or);
+
+#endif /*include guard*/

samples/Dart/point.dart

@@ -1,15 +1,19 @@
+import 'dart:math' as math;
+
 class Point {
+  num x, y;
+
   Point(this.x, this.y);
-  distanceTo(Point other) {
+
+  num distanceTo(Point other) {
     var dx = x - other.x;
     var dy = y - other.y;
-    return Math.sqrt(dx * dx + dy * dy);
+    return math.sqrt(dx * dx + dy * dy);
   }
-  var x, y;
 }
 
-main() {
-  Point p = new Point(2, 3);
-  Point q = new Point(3, 4);
+void main() {
+  var p = new Point(2, 3);
+  var q = new Point(3, 4);
   print('distance from p to q = ${p.distanceTo(q)}');
 }

samples/Gosu/hello.gsp

@@ -1 +0,0 @@
-print("hello")

samples/Hy/fibonacci.hy

@@ -0,0 +1,9 @@
+;; Fibonacci example in Hy.
+
+(defn fib [n]
+  (if (<= n 2) n
+      (+ (fib (- n 1)) (fib (- n 2)))))
+
+(if (= __name__ "__main__")
+  (for [x [1 2 3 4 5 6 7 8]]
+    (print (fib x))))

samples/Hy/hello-world.hy

@@ -0,0 +1,13 @@
+;; The concurrent.futures example in Hy.
+
+(import [concurrent.futures [ThreadPoolExecutor as-completed]]
+        [random [randint]]
+        [sh [sleep]])
+
+(defn task-to-do []
+  (sleep (randint 1 5)))
+
+(with-as (ThreadPoolExecutor 10) executor
+  (setv jobs (list-comp (.submit executor task-to-do) (x (range 0 10))))
+  (for (future (as-completed jobs))
+    (.result future)))

samples/IDL/mg_acosh.pro

@@ -0,0 +1,29 @@
+; docformat = 'rst'
+
+;+
+; Inverse hyperbolic cosine. Uses the formula:
+; 
+; $$\text{acosh}(z) = \ln(z + \sqrt{z + 1} \sqrt{z - 1})$$
+;
+; :Examples:
+;    The arc hyperbolic sine function looks like::
+;
+;       IDL> x = 2.5 * findgen(1000) / 999. + 1.
+;       IDL> plot, x, mg_acosh(x), xstyle=1
+;
+;    This should look like:
+;
+;    .. image:: acosh.png
+;
+; :Returns:
+;    float, double, complex, or double complex depending on the input
+;
+; :Params:
+;    z : in, required, type=numeric
+;       input
+;-
+function mg_acosh, z
+  compile_opt strictarr
+  
+  return, alog(z + sqrt(z + 1) * sqrt(z - 1))
+end

samples/IDL/mg_analysis.dlm

@@ -0,0 +1,9 @@
+MODULE mg_analysis
+DESCRIPTION Tools for analysis
+VERSION 1.0
+SOURCE mgalloy
+BUILD_DATE January 18, 2011
+
+FUNCTION MG_ARRAY_EQUAL      2 2 KEYWORDS
+FUNCTION MG_TOTAL            1 1
+

samples/IDL/mg_gcd.pro

@@ -0,0 +1,35 @@
+; docformat = 'rst'
+
+;+
+; Find the greatest common denominator (GCD) for two positive integers.
+; 
+; :Returns:
+;    integer
+;
+; :Params:
+;    a : in, required, type=integer
+;       first integer
+;    b : in, required, type=integer
+;       second integer
+;-
+function mg_gcd, a, b
+  compile_opt strictarr
+  on_error, 2
+  
+  if (n_params() ne 2) then message, 'incorrect number of arguments'
+  if (~mg_isinteger(a) || ~mg_isinteger(b)) then begin
+    message, 'integer arguments required'
+  endif
+  
+  _a = abs(a)
+  _b = abs(b)
+  minArg = _a < _b
+  maxArg = _a > _b
+  
+  if (minArg eq 0) then return, maxArg
+  
+  remainder = maxArg mod minArg
+  if (remainder eq 0) then return, minArg
+  
+  return, mg_gcd(minArg, remainder)
+end

samples/IDL/mg_trunc.pro

@@ -0,0 +1,42 @@
+; docformat = 'rst'
+
+;+
+; Truncate argument towards 0.0, i.e., takes the `FLOOR` of positive values
+; and the `CEIL` of negative values.
+;
+; :Examples:
+;   Try the main-level program at the end of this file. It does::
+;
+;      IDL> print, mg_trunc([1.2, -1.2, 0.0])
+;                 1          -1           0
+;      IDL> print, floor([1.2, -1.2, 0.0])
+;                 1          -2           0
+;      IDL> print, ceil([1.2, -1.2, 0.0])
+;                 2          -1           0
+;
+; :Returns:
+;    array of same type as argument
+;
+; :Params:
+;    x : in, required, type=float/double
+;       array containing values to truncate
+;-
+function mg_trunc, x
+  compile_opt strictarr
+  
+  result = ceil(x)
+  posInd = where(x gt 0, nposInd)
+  
+  if (nposInd gt 0L) then begin
+    result[posInd] = floor(x[posInd])
+  endif
+  
+  return, result
+end
+
+
+; main-level example program
+
+print, mg_trunc([1.2, -1.2, 0.0])
+
+end

samples/JSON5/example.json5

@@ -0,0 +1,29 @@
+/*
+ * The following is a contrived example, but it illustrates most of the features:
+ */
+
+{
+    foo: 'bar',
+    while: true,
+
+    this: 'is a \
+multi-line string',
+
+    // this is an inline comment
+    here: 'is another', // inline comment
+
+    /* this is a block comment
+       that continues on another line */
+
+    hex: 0xDEADbeef,
+    half: .5,
+    delta: +10,
+    to: Infinity,   // and beyond!
+
+    finally: 'a trailing comma',
+    oh: [
+        "we shouldn't forget",
+        'arrays can have',
+        'trailing commas too',
+    ],
+}

samples/JSON5/package.json5

@@ -0,0 +1,28 @@
+// This file is written in JSON5 syntax, naturally, but npm needs a regular
+// JSON file, so compile via `npm run build`. Be sure to keep both in sync!
+
+{
+    name: 'json5',
+    version: '0.2.0',
+    description: 'JSON for the ES5 era.',
+    keywords: ['json', 'es5'],
+    author: 'Aseem Kishore <aseem.kishore@gmail.com>',
+    contributors: [
+        'Max Nanasy <max.nanasy@gmail.com>',
+    ],
+    main: 'lib/json5.js',
+    bin: 'lib/cli.js',
+    dependencies: {},
+    devDependencies: {
+        mocha: '~1.0.3',
+    },
+    scripts: {
+        build: './lib/cli.js -c package.json5',
+        test: 'mocha --ui exports --reporter spec',
+    },
+    homepage: 'http://json5.org/',
+    repository: {
+        type: 'git',
+        url: 'https://github.com/aseemk/json5.git',
+    },
+}

samples/Oxygene/Program.pas

@@ -1,125 +0,0 @@
-namespace Loops;
-
-interface
-
-uses System.Linq;
-
-type
-  ConsoleApp = class
-  public
-    class method Main;
-    method loopsTesting;
-    method fillData : sequence of Country;
-  var 
-    Countries : sequence of Country;
-  end;
-
-type 
-  Country = public class
-  public
-    property Name : String;
-    property Capital : String;
-
-    constructor (setName : String; setCapital : String);
-  end;
-implementation
-
-class method ConsoleApp.Main;
-begin
-  Console.WriteLine('Loops example');
-  Console.WriteLine();
-
-  with myConsoleApp := new ConsoleApp() do
-     myConsoleApp.loopsTesting;
-end;
-
-method ConsoleApp.loopsTesting;
-begin
-  {---------------------------------}
-  {"for" loop, taking every 5th item}
-  for i : Int32 :=0 to 50 step 5 do 
-  begin
-    Console.Write(i); Console.Write(' ');
-  end;
-
-  Console.WriteLine(); Console.WriteLine();
-
-  {---------------------------------}
-  {"for" loop, going from high to low value}
-  for i : Int32 := 10 downto 1 do
-  begin
-    Console.Write(i); Console.Write(' ');
-  end;
-
-  Console.WriteLine(); Console.WriteLine();
-
-  Countries := fillData;
-  
-  {---------------------------------}
-  {loop with defined "index" variable, which will count from 0 through the number of elements looped}
-  Console.WriteLine('Countries: ');
-  for each c in Countries index num do 
-    Console.WriteLine(Convert.ToString(num + 1) + ') ' + c.Name);
-
-  Console.WriteLine();
-
-  Console.WriteLine('Cities: ');
-  var ind : Integer :=0;
-
-  {---------------------------------}
-  {simple "loop" construct that loops endlessly, until broken out of}
-  loop
-  begin
-    Console.WriteLine(Countries.ElementAt(ind).Capital);
-    Inc(ind);
-    if ind = Countries.Count then break;
-  end;
-
-  Console.WriteLine();
-
-  {---------------------------------}
-  {the type of 'c' is inferred automatically}
-  for each c in Countries do
-    Console.WriteLine(c.Capital + ' is the capital of ' + c.Name);
-
-  Console.WriteLine();
-
-  ind := 0;
-  Console.WriteLine('Cities: ');
-
-  {"repeat ... until" loop}
-  repeat 
-    Console.WriteLine(Countries.ElementAt(ind).Capital);
-    Inc(ind);
-  until ind = Countries.Count;
-
-  Console.WriteLine();
-
-  ind := 0;
-  Console.WriteLine('Countries: ');
-
-  {---------------------------------}
-  {"while ... do" loop}
-  while ind < Countries.Count do
-  begin
-    Console.WriteLine(Countries.ElementAt(ind).Name);
-    Inc(ind);
-  end;
-
-  Console.ReadLine();
-end;
-
-method ConsoleApp.fillData: sequence of Country;
-begin
-  result := [new Country('UK', 'London'), new Country('USA', 'Washington'), new Country('Germany', 'Berlin'), 
-             new Country('Ukraine', 'Kyiv'), new Country('Russia', 'Moscow'), new Country('France', 'Paris')];
-             
-end;
-
-constructor Country (setName :String; setCapital: String);
-begin
-  Name := setName;
-  Capital := setCapital;
-end;
-
-end.

samples/PAWN/grandlarc.pwn

@@ -0,0 +1,520 @@
+//----------------------------------------------------------
+//
+// GRAND LARCENY 1.0
+// A freeroam gamemode for SA-MP 0.3
+//
+//----------------------------------------------------------
+
+#include <a_samp>
+#include <core>
+#include <float>
+#include "../include/gl_common.inc"
+#include "../include/gl_spawns.inc"
+
+#pragma tabsize 0
+
+//----------------------------------------------------------
+
+#define COLOR_WHITE                 0xFFFFFFFF
+#define COLOR_NORMAL_PLAYER 0xFFBB7777
+
+#define CITY_LOS_SANTOS         0
+#define CITY_SAN_FIERRO         1
+#define CITY_LAS_VENTURAS         2
+
+new total_vehicles_from_files=0;
+
+// Class selection globals
+new gPlayerCitySelection[MAX_PLAYERS];
+new gPlayerHasCitySelected[MAX_PLAYERS];
+new gPlayerLastCitySelectionTick[MAX_PLAYERS];
+
+new Text:txtClassSelHelper;
+new Text:txtLosSantos;
+new Text:txtSanFierro;
+new Text:txtLasVenturas;
+
+new thisanimid=0;
+new lastanimid=0;
+
+//----------------------------------------------------------
+
+main()
+{
+        print("\n---------------------------------------");
+        print("Running Grand Larceny - by the SA-MP team\n");
+        print("---------------------------------------\n");
+}
+
+//----------------------------------------------------------
+
+public OnPlayerConnect(playerid)
+{
+        GameTextForPlayer(playerid,"~w~Grand Larceny",3000,4);
+          SendClientMessage(playerid,COLOR_WHITE,"Welcome to {88AA88}G{FFFFFF}rand {88AA88}L{FFFFFF}arceny");
+          
+          // class selection init vars
+          gPlayerCitySelection[playerid] = -1;
+        gPlayerHasCitySelected[playerid] = 0;
+        gPlayerLastCitySelectionTick[playerid] = GetTickCount();
+
+        //SetPlayerColor(playerid,COLOR_NORMAL_PLAYER);
+
+        //Kick(playerid);
+        
+        /*
+        Removes vending machines
+        RemoveBuildingForPlayer(playerid, 1302, 0.0, 0.0, 0.0, 6000.0);
+        RemoveBuildingForPlayer(playerid, 1209, 0.0, 0.0, 0.0, 6000.0);
+        RemoveBuildingForPlayer(playerid, 955, 0.0, 0.0, 0.0, 6000.0);
+        RemoveBuildingForPlayer(playerid, 1775, 0.0, 0.0, 0.0, 6000.0);
+        RemoveBuildingForPlayer(playerid, 1776, 0.0, 0.0, 0.0, 6000.0);
+        */
+        
+        /*
+        new ClientVersion[32];
+        GetPlayerVersion(playerid, ClientVersion, 32);
+        printf("Player %d reports client version: %s", playerid, ClientVersion);*/
+
+         return 1;
+}
+
+//----------------------------------------------------------
+
+public OnPlayerSpawn(playerid)
+{
+        if(IsPlayerNPC(playerid)) return 1;
+        
+        new randSpawn = 0;
+        
+        SetPlayerInterior(playerid,0);
+        TogglePlayerClock(playerid,0);
+         ResetPlayerMoney(playerid);
+        GivePlayerMoney(playerid, 30000);
+
+        if(CITY_LOS_SANTOS == gPlayerCitySelection[playerid]) {
+          randSpawn = random(sizeof(gRandomSpawns_LosSantos));
+          SetPlayerPos(playerid,
+                 gRandomSpawns_LosSantos[randSpawn][0],
+                 gRandomSpawns_LosSantos[randSpawn][1],
+                 gRandomSpawns_LosSantos[randSpawn][2]);
+                SetPlayerFacingAngle(playerid,gRandomSpawns_LosSantos[randSpawn][3]);
+        }
+        else if(CITY_SAN_FIERRO == gPlayerCitySelection[playerid]) {
+          randSpawn = random(sizeof(gRandomSpawns_SanFierro));
+          SetPlayerPos(playerid,
+                 gRandomSpawns_SanFierro[randSpawn][0],
+                 gRandomSpawns_SanFierro[randSpawn][1],
+                 gRandomSpawns_SanFierro[randSpawn][2]);
+                SetPlayerFacingAngle(playerid,gRandomSpawns_SanFierro[randSpawn][3]);
+        }
+        else if(CITY_LAS_VENTURAS == gPlayerCitySelection[playerid]) {
+          randSpawn = random(sizeof(gRandomSpawns_LasVenturas));
+          SetPlayerPos(playerid,
+                 gRandomSpawns_LasVenturas[randSpawn][0],
+                 gRandomSpawns_LasVenturas[randSpawn][1],
+                 gRandomSpawns_LasVenturas[randSpawn][2]);
+                SetPlayerFacingAngle(playerid,gRandomSpawns_LasVenturas[randSpawn][3]);
+        }
+
+        //SetPlayerColor(playerid,COLOR_NORMAL_PLAYER);
+        
+        SetPlayerSkillLevel(playerid,WEAPONSKILL_PISTOL,200);
+    SetPlayerSkillLevel(playerid,WEAPONSKILL_PISTOL_SILENCED,200);
+    SetPlayerSkillLevel(playerid,WEAPONSKILL_DESERT_EAGLE,200);
+    SetPlayerSkillLevel(playerid,WEAPONSKILL_SHOTGUN,200);
+    SetPlayerSkillLevel(playerid,WEAPONSKILL_SAWNOFF_SHOTGUN,200);
+    SetPlayerSkillLevel(playerid,WEAPONSKILL_SPAS12_SHOTGUN,200);
+    SetPlayerSkillLevel(playerid,WEAPONSKILL_MICRO_UZI,200);
+    SetPlayerSkillLevel(playerid,WEAPONSKILL_MP5,200);
+    SetPlayerSkillLevel(playerid,WEAPONSKILL_AK47,200);
+    SetPlayerSkillLevel(playerid,WEAPONSKILL_M4,200);
+    SetPlayerSkillLevel(playerid,WEAPONSKILL_SNIPERRIFLE,200);
+    
+    GivePlayerWeapon(playerid,WEAPON_COLT45,100);
+        //GivePlayerWeapon(playerid,WEAPON_MP5,100);
+        TogglePlayerClock(playerid, 0);
+
+        return 1;
+}
+
+//----------------------------------------------------------
+
+public OnPlayerDeath(playerid, killerid, reason)
+{
+    new playercash;
+    
+    // if they ever return to class selection make them city
+        // select again first
+        gPlayerHasCitySelected[playerid] = 0;
+    
+        if(killerid == INVALID_PLAYER_ID) {
+        ResetPlayerMoney(playerid);
+        } else {
+                playercash = GetPlayerMoney(playerid);
+                if(playercash > 0) {
+                        GivePlayerMoney(killerid, playercash);
+                        ResetPlayerMoney(playerid);
+                }
+        }
+           return 1;
+}
+
+//----------------------------------------------------------
+
+ClassSel_SetupCharSelection(playerid)
+{
+           if(gPlayerCitySelection[playerid] == CITY_LOS_SANTOS) {
+                SetPlayerInterior(playerid,11);
+                SetPlayerPos(playerid,508.7362,-87.4335,998.9609);
+                SetPlayerFacingAngle(playerid,0.0);
+            SetPlayerCameraPos(playerid,508.7362,-83.4335,998.9609);
+                SetPlayerCameraLookAt(playerid,508.7362,-87.4335,998.9609);
+        }
+        else if(gPlayerCitySelection[playerid] == CITY_SAN_FIERRO) {
+                SetPlayerInterior(playerid,3);
+                SetPlayerPos(playerid,-2673.8381,1399.7424,918.3516);
+                SetPlayerFacingAngle(playerid,181.0);
+            SetPlayerCameraPos(playerid,-2673.2776,1394.3859,918.3516);
+                SetPlayerCameraLookAt(playerid,-2673.8381,1399.7424,918.3516);
+        }
+        else if(gPlayerCitySelection[playerid] == CITY_LAS_VENTURAS) {
+                SetPlayerInterior(playerid,3);
+                SetPlayerPos(playerid,349.0453,193.2271,1014.1797);
+                SetPlayerFacingAngle(playerid,286.25);
+            SetPlayerCameraPos(playerid,352.9164,194.5702,1014.1875);
+                SetPlayerCameraLookAt(playerid,349.0453,193.2271,1014.1797);
+        }
+        
+}
+
+//----------------------------------------------------------
+// Used to init textdraws of city names
+
+ClassSel_InitCityNameText(Text:txtInit)
+{
+          TextDrawUseBox(txtInit, 0);
+        TextDrawLetterSize(txtInit,1.25,3.0);
+        TextDrawFont(txtInit, 0);
+        TextDrawSetShadow(txtInit,0);
+    TextDrawSetOutline(txtInit,1);
+    TextDrawColor(txtInit,0xEEEEEEFF);
+    TextDrawBackgroundColor(txtClassSelHelper,0x000000FF);
+}
+
+//----------------------------------------------------------
+
+ClassSel_InitTextDraws()
+{
+    // Init our observer helper text display
+        txtLosSantos = TextDrawCreate(10.0, 380.0, "Los Santos");
+        ClassSel_InitCityNameText(txtLosSantos);
+        txtSanFierro = TextDrawCreate(10.0, 380.0, "San Fierro");
+        ClassSel_InitCityNameText(txtSanFierro);
+        txtLasVenturas = TextDrawCreate(10.0, 380.0, "Las Venturas");
+        ClassSel_InitCityNameText(txtLasVenturas);
+
+    // Init our observer helper text display
+        txtClassSelHelper = TextDrawCreate(10.0, 415.0,
+         " Press ~b~~k~~GO_LEFT~ ~w~or ~b~~k~~GO_RIGHT~ ~w~to switch cities.~n~ Press ~r~~k~~PED_FIREWEAPON~ ~w~to select.");
+        TextDrawUseBox(txtClassSelHelper, 1);
+        TextDrawBoxColor(txtClassSelHelper,0x222222BB);
+        TextDrawLetterSize(txtClassSelHelper,0.3,1.0);
+        TextDrawTextSize(txtClassSelHelper,400.0,40.0);
+        TextDrawFont(txtClassSelHelper, 2);
+        TextDrawSetShadow(txtClassSelHelper,0);
+    TextDrawSetOutline(txtClassSelHelper,1);
+    TextDrawBackgroundColor(txtClassSelHelper,0x000000FF);
+    TextDrawColor(txtClassSelHelper,0xFFFFFFFF);
+}
+
+//----------------------------------------------------------
+
+ClassSel_SetupSelectedCity(playerid)
+{
+        if(gPlayerCitySelection[playerid] == -1) {
+                gPlayerCitySelection[playerid] = CITY_LOS_SANTOS;
+        }
+        
+        if(gPlayerCitySelection[playerid] == CITY_LOS_SANTOS) {
+                SetPlayerInterior(playerid,0);
+                   SetPlayerCameraPos(playerid,1630.6136,-2286.0298,110.0);
+                SetPlayerCameraLookAt(playerid,1887.6034,-1682.1442,47.6167);
+                
+                TextDrawShowForPlayer(playerid,txtLosSantos);
+                TextDrawHideForPlayer(playerid,txtSanFierro);
+                TextDrawHideForPlayer(playerid,txtLasVenturas);
+        }
+        else if(gPlayerCitySelection[playerid] == CITY_SAN_FIERRO) {
+                SetPlayerInterior(playerid,0);
+                   SetPlayerCameraPos(playerid,-1300.8754,68.0546,129.4823);
+                SetPlayerCameraLookAt(playerid,-1817.9412,769.3878,132.6589);
+                
+                TextDrawHideForPlayer(playerid,txtLosSantos);
+                TextDrawShowForPlayer(playerid,txtSanFierro);
+                TextDrawHideForPlayer(playerid,txtLasVenturas);
+        }
+        else if(gPlayerCitySelection[playerid] == CITY_LAS_VENTURAS) {
+                SetPlayerInterior(playerid,0);
+                   SetPlayerCameraPos(playerid,1310.6155,1675.9182,110.7390);
+                SetPlayerCameraLookAt(playerid,2285.2944,1919.3756,68.2275);
+                
+                TextDrawHideForPlayer(playerid,txtLosSantos);
+                TextDrawHideForPlayer(playerid,txtSanFierro);
+                TextDrawShowForPlayer(playerid,txtLasVenturas);
+        }
+}
+
+//----------------------------------------------------------
+
+ClassSel_SwitchToNextCity(playerid)
+{
+    gPlayerCitySelection[playerid]++;
+        if(gPlayerCitySelection[playerid] > CITY_LAS_VENTURAS) {
+         gPlayerCitySelection[playerid] = CITY_LOS_SANTOS;
+        }
+        PlayerPlaySound(playerid,1052,0.0,0.0,0.0);
+        gPlayerLastCitySelectionTick[playerid] = GetTickCount();
+        ClassSel_SetupSelectedCity(playerid);
+}
+
+//----------------------------------------------------------
+
+ClassSel_SwitchToPreviousCity(playerid)
+{
+    gPlayerCitySelection[playerid]--;
+        if(gPlayerCitySelection[playerid] < CITY_LOS_SANTOS) {
+         gPlayerCitySelection[playerid] = CITY_LAS_VENTURAS;
+        }
+        PlayerPlaySound(playerid,1053,0.0,0.0,0.0);
+        gPlayerLastCitySelectionTick[playerid] = GetTickCount();
+        ClassSel_SetupSelectedCity(playerid);
+}
+
+//----------------------------------------------------------
+
+ClassSel_HandleCitySelection(playerid)
+{
+        new Keys,ud,lr;
+    GetPlayerKeys(playerid,Keys,ud,lr);
+    
+    if(gPlayerCitySelection[playerid] == -1) {
+                ClassSel_SwitchToNextCity(playerid);
+                return;
+        }
+
+        // only allow new selection every ~500 ms
+        if( (GetTickCount() - gPlayerLastCitySelectionTick[playerid]) < 500 ) return;
+        
+        if(Keys & KEY_FIRE) {
+         gPlayerHasCitySelected[playerid] = 1;
+         TextDrawHideForPlayer(playerid,txtClassSelHelper);
+                TextDrawHideForPlayer(playerid,txtLosSantos);
+                TextDrawHideForPlayer(playerid,txtSanFierro);
+                TextDrawHideForPlayer(playerid,txtLasVenturas);
+         TogglePlayerSpectating(playerid,0);
+         return;
+        }
+        
+        if(lr > 0) {
+         ClassSel_SwitchToNextCity(playerid);
+        }
+        else if(lr < 0) {
+         ClassSel_SwitchToPreviousCity(playerid);
+        }
+}
+
+//----------------------------------------------------------
+
+public OnPlayerRequestClass(playerid, classid)
+{
+        if(IsPlayerNPC(playerid)) return 1;
+
+        if(gPlayerHasCitySelected[playerid]) {
+                ClassSel_SetupCharSelection(playerid);
+                return 1;
+        } else {
+                if(GetPlayerState(playerid) != PLAYER_STATE_SPECTATING) {
+                        TogglePlayerSpectating(playerid,1);
+                    TextDrawShowForPlayer(playerid, txtClassSelHelper);
+                    gPlayerCitySelection[playerid] = -1;
+                }
+          }
+    
+        return 0;
+}
+
+//----------------------------------------------------------
+
+public OnGameModeInit()
+{
+        SetGameModeText("Grand Larceny");
+        ShowPlayerMarkers(PLAYER_MARKERS_MODE_GLOBAL);
+        ShowNameTags(1);
+        SetNameTagDrawDistance(40.0);
+        EnableStuntBonusForAll(0);
+        DisableInteriorEnterExits();
+        SetWeather(2);
+        SetWorldTime(11);
+
+        //UsePlayerPedAnims();
+        //ManualVehicleEngineAndLights();
+        //LimitGlobalChatRadius(300.0);
+        
+        ClassSel_InitTextDraws();
+
+        // Player Class
+        AddPlayerClass(281,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(282,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(283,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(284,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(285,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(286,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(287,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(288,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(289,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(265,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(266,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(267,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(268,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(269,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(270,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(1,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(2,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(3,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(4,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(5,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(6,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(8,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(42,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(65,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        //AddPlayerClass(74,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(86,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(119,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+         AddPlayerClass(149,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(208,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(273,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(289,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        
+        AddPlayerClass(47,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(48,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(49,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(50,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(51,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(52,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(53,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(54,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(55,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(56,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(57,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(58,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+           AddPlayerClass(68,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(69,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(70,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(71,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(72,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(73,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(75,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(76,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(78,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(79,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(80,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(81,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(82,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(83,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(84,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(85,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(87,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(88,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(89,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(91,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(92,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(93,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(95,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(96,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(97,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(98,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+        AddPlayerClass(99,1759.0189,-1898.1260,13.5622,266.4503,-1,-1,-1,-1,-1,-1);
+
+        // SPECIAL
+        total_vehicles_from_files += LoadStaticVehiclesFromFile("vehicles/trains.txt");
+        total_vehicles_from_files += LoadStaticVehiclesFromFile("vehicles/pilots.txt");
+
+           // LAS VENTURAS
+     total_vehicles_from_files += LoadStaticVehiclesFromFile("vehicles/lv_law.txt");
+    total_vehicles_from_files += LoadStaticVehiclesFromFile("vehicles/lv_airport.txt");
+    total_vehicles_from_files += LoadStaticVehiclesFromFile("vehicles/lv_gen.txt");
+    
+    // SAN FIERRO
+    total_vehicles_from_files += LoadStaticVehiclesFromFile("vehicles/sf_law.txt");
+    total_vehicles_from_files += LoadStaticVehiclesFromFile("vehicles/sf_airport.txt");
+    total_vehicles_from_files += LoadStaticVehiclesFromFile("vehicles/sf_gen.txt");
+    
+    // LOS SANTOS
+    total_vehicles_from_files += LoadStaticVehiclesFromFile("vehicles/ls_law.txt");
+    total_vehicles_from_files += LoadStaticVehiclesFromFile("vehicles/ls_airport.txt");
+    total_vehicles_from_files += LoadStaticVehiclesFromFile("vehicles/ls_gen_inner.txt");
+    total_vehicles_from_files += LoadStaticVehiclesFromFile("vehicles/ls_gen_outer.txt");
+    
+    // OTHER AREAS
+    total_vehicles_from_files += LoadStaticVehiclesFromFile("vehicles/whetstone.txt");
+    total_vehicles_from_files += LoadStaticVehiclesFromFile("vehicles/bone.txt");
+    total_vehicles_from_files += LoadStaticVehiclesFromFile("vehicles/flint.txt");
+    total_vehicles_from_files += LoadStaticVehiclesFromFile("vehicles/tierra.txt");
+    total_vehicles_from_files += LoadStaticVehiclesFromFile("vehicles/red_county.txt");
+
+    printf("Total vehicles from files: %d",total_vehicles_from_files);
+
+        return 1;
+}
+
+//----------------------------------------------------------
+
+public OnPlayerUpdate(playerid)
+{
+        if(!IsPlayerConnected(playerid)) return 0;
+        if(IsPlayerNPC(playerid)) return 1;
+
+        // changing cities by inputs
+        if( !gPlayerHasCitySelected[playerid] &&
+         GetPlayerState(playerid) == PLAYER_STATE_SPECTATING ) {
+         ClassSel_HandleCitySelection(playerid);
+         return 1;
+        }
+        
+        // No weapons in interiors
+        if(GetPlayerInterior(playerid) != 0 && GetPlayerWeapon(playerid) != 0) {
+         SetPlayerArmedWeapon(playerid,0); // fists
+         return 0; // no syncing until they change their weapon
+        }
+        
+        // Don't allow minigun
+        if(GetPlayerWeapon(playerid) == WEAPON_MINIGUN) {
+         Kick(playerid);
+         return 0;
+        }
+        
+        /* No jetpacks allowed
+        if(GetPlayerSpecialAction(playerid) == SPECIAL_ACTION_USEJETPACK) {
+         Kick(playerid);
+         return 0;
+        }*/
+
+        /* For testing animations
+    new msg[128+1];
+        new animlib[32+1];
+        new animname[32+1];
+
+        thisanimid = GetPlayerAnimationIndex(playerid);
+        if(lastanimid != thisanimid)
+        {
+                GetAnimationName(thisanimid,animlib,32,animname,32);
+                format(msg, 128, "anim(%d,%d): %s %s", lastanimid, thisanimid, animlib, animname);
+                lastanimid = thisanimid;
+                SendClientMessage(playerid, 0xFFFFFFFF, msg);
+        }*/
+
+        return 1;
+}
+
+//----------------------------------------------------------

samples/Perl6/RoleQ.pm6

@@ -0,0 +1,23 @@
+role q {
+    token stopper { \' }
+
+    token escape:sym<\\> { <sym> <item=.backslash> }
+
+    token backslash:sym<qq> { <?before 'q'> <quote=.LANG('MAIN','quote')> }
+    token backslash:sym<\\> { <text=.sym> }
+    token backslash:sym<stopper> { <text=.stopper> }
+
+    token backslash:sym<miscq> { {} . }
+
+    method tweak_q($v) { self.panic("Too late for :q") }
+    method tweak_qq($v) { self.panic("Too late for :qq") }
+}
+
+role qq does b1 does c1 does s1 does a1 does h1 does f1 {
+    token stopper { \" }
+    token backslash:sym<unrec> { {} (\w) { self.throw_unrecog_backslash_seq: $/[0].Str } }
+    token backslash:sym<misc> { \W }
+
+    method tweak_q($v) { self.panic("Too late for :q") }
+    method tweak_qq($v) { self.panic("Too late for :qq") }
+}

samples/Perl6/grammar-test.p6

@@ -0,0 +1,22 @@
+token pod_formatting_code {
+    $<code>=<[A..Z]>
+    '<' { $*POD_IN_FORMATTINGCODE := 1 }
+    $<content>=[ <!before '>'> <pod_string_character> ]+
+    '>' { $*POD_IN_FORMATTINGCODE := 0 }
+}
+
+token pod_string {
+    <pod_string_character>+
+}
+
+token something:sym«<» {
+    <!>
+}
+
+token name {
+    <!>
+}
+
+token comment:sym<#> {
+   '#' {} \N*
+}

samples/Perl6/test.p6

@@ -0,0 +1,252 @@
+#!/usr/bin/env perl6
+
+use v6;
+
+my $string = 'I look like a # comment!';
+
+if $string eq 'foo' {
+    say 'hello';
+}
+
+regex http-verb {
+      'GET'
+    | 'POST'
+    | 'PUT'
+    | 'DELETE'
+    | 'TRACE'
+    | 'OPTIONS'
+    | 'HEAD'
+}
+
+# a sample comment
+
+say 'Hello from Perl 6!'
+
+
+#`{
+multi-line comment!
+}
+
+say 'here';
+
+#`(
+multi-line comment!
+)
+
+say 'here';
+
+#`{{{
+I'm a special comment!
+}}}
+
+say 'there';
+
+#`{{
+I'm { even } specialer!
+}}
+
+say 'there';
+
+#`{{
+does {{nesting}} work?
+}}
+
+#`«<
+trying mixed delimiters
+»
+
+my $string = qq<Hooray, arbitrary delimiter!>;
+my $string = qq«Hooray, arbitrary delimiter!»;
+my $string = q <now with whitespace!>;
+my $string = qq<<more strings>>;
+
+my %hash := Hash.new;
+
+=begin pod
+
+Here's some POD!  Wooo
+
+=end pod
+
+=for Testing
+    This is POD (see? role isn't highlighted)
+
+say('this is not!');
+
+=table
+    Of role things
+
+say('not in your table');
+#= A single line declarator "block" (with a keyword like role)
+#| Another single line declarator "block" (with a keyword like role)
+#={
+    A declarator block (with a keyword like role)
+  }
+#|{
+    Another declarator block (with a keyword like role)
+  }
+#= { A single line declarator "block" with a brace (with a keyword like role)
+#=«
+    More declarator blocks! (with a keyword like role)
+  »
+#|«
+    More declarator blocks! (with a keyword like role)
+  »
+
+say 'Moar code!';
+
+my $don't = 16;
+
+sub don't($x) {
+    !$x
+}
+
+say don't 'foo';
+
+my %hash = (
+    :foo(1),
+);
+
+say %hash<foo>;
+say %hash<<foo>>;
+say %hash«foo»;
+
+say %*hash<foo>;
+say %*hash<<foo>>;
+say %*hash«foo»;
+
+say $<todo>;
+say $<todo>;
+
+for (@A Z @B) -> $a, $b {
+    say $a + $b;
+}
+
+Q:PIR {
+    .loadlib "somelib"
+}
+
+my $longstring = q/
+    lots
+    of
+    text
+/;
+
+my $heredoc = q:to/END_SQL/;
+SELECT * FROM Users
+WHERE first_name = 'Rob'
+END_SQL
+my $hello;
+
+# Fun with regexen
+
+if 'food' ~~ /foo/ {
+    say 'match!'
+}
+
+my $re  = /foo/;
+my $re2 = m/ foo /;
+my $re3 = m:i/ FOO /;
+
+call-a-sub(/ foo /);
+call-a-sub(/ foo \/ bar /);
+
+my $re4    = rx/something | something-else/;
+my $result = ms/regexy stuff/;
+my $sub0   = s/regexy stuff/more stuff/;
+my $sub    = ss/regexy stuff/more stuff/;
+my $trans  = tr/regexy stuff/more stuff/;
+
+my @values = <a b c d>;
+call-sub(<a b c d>);
+call-sub <a b c d>;
+
+my $result = $a < $b;
+
+for <a b c d> -> $letter {
+    say $letter;
+}
+
+sub test-sub {
+    say @_;
+    say $!;
+    say $/;
+    say $0;
+    say $1;
+    say @*ARGS;
+    say $*ARGFILES;
+    say &?BLOCK;
+    say ::?CLASS;
+    say $?CLASS;
+    say @=COMMENT;
+    say %?CONFIG;
+    say $*CWD;
+    say $=data;
+    say %?DEEPMAGIC;
+    say $?DISTRO;
+    say $*DISTRO;
+    say $*EGID;
+    say %*ENV;
+    say $*ERR;
+    say $*EUID;
+    say $*EXECUTABLE_NAME;
+    say $?FILE;
+    say $?GRAMMAR;
+    say $*GID;
+    say $*IN;
+    say @*INC;
+    say %?LANG;
+    say $*LANG;
+    say $?LINE;
+    say %*META-ARGS;
+    say $?MODULE;
+    say %*OPTS;
+    say %*OPT;
+    say $?KERNEL;
+    say $*KERNEL;
+    say $*OUT;
+    say $?PACKAGE;
+    say $?PERL;
+    say $*PERL;
+    say $*PID;
+    say %=pod;
+    say $*PROGRAM_NAME;
+    say %*PROTOCOLS;
+    say ::?ROLE;
+    say $?ROLE;
+    say &?ROUTINE;
+    say $?SCOPE;
+    say $*TZ;
+    say $*UID;
+    say $?USAGE;
+    say $?VM;
+    say $?XVM;
+}
+
+say <a b c>;
+
+my $perl5_re = m:P5/ fo{2} /;
+my $re5      = rx«something | something-else»;
+
+my $M := %*COMPILING<%?OPTIONS><M>;
+
+say $M;
+
+sub regex-name { ... }
+my $pair = role-name => 'foo';
+$pair = rolesque => 'foo';
+
+my sub something(Str:D $value) { ... }
+
+my $s = q«<
+some
+string
+stuff
+»;
+
+my $regex = m«< some chars »;
+# after
+
+say $/<foo><bar>;
+
+roleq;

samples/PostScript/sierpinski.ps

@@ -0,0 +1,41 @@
+%!PS-Adobe-3.0
+%%Creator: Aaron Puchert
+%%Title: The Sierpinski triangle
+%%Pages: 1
+%%PageOrder: Ascend
+
+%%BeginProlog
+% PAGE SETTINGS
+/pageset {
+  28.3464566 28.3464566 scale    % set cm = 1
+  0.5 0.5 translate
+  0 setlinewidth
+} def
+
+% sierpinski(n) draws a sierpinski triangle of order n
+/sierpinski {
+dup 0 gt {
+  [0.5 0 0 0.5 0 0] concat dup 1 sub sierpinski
+  [1 0 0 1 1 0] concat dup 1 sub sierpinski
+  [1 0 0 1 -1 1] concat dup 1 sub sierpinski
+  [2 0 0 2 0 -1] concat
+} {
+  newpath
+    0 0 moveto
+    1 0 lineto
+    0 1 lineto
+  closepath
+  fill
+} ifelse pop} def
+%%EndProlog
+
+%%BeginSetup
+<< /PageSize [596 843] >> setpagedevice  % A4
+%%EndSetup
+
+%%Page: Test 1
+pageset
+[20 0 10 300 sqrt 0 0] concat
+9 sierpinski
+showpage
+%%EOF

samples/Prolog/calc.pl

@@ -1,68 +0,0 @@
-action_module(calculator) .
-
-
-%[-,-,d1,-] --push(D)-->          [-,-,D,-]  if mode(init)
-push(D) < -
-  mode(init),
-  deny([displayed(D1),mode(init)]),
-  affirm([displayed(D),mode(cont)]).
-
-%[-,-,D1,-] --push(D)-->          [-,-,10*D1+D,-]  if mode(cont)
-push(D) < -
-  mode(cont),
-  deny(displayed(D1)),
-  New = 10*D1 + D,
-  affirm(displayed(New)).
-
-%[a,op,d,m] --push(clear)-->      [0,nop,0,0]
-push(clear) < -
-  deny([accumulator(A),op(O),displayed(D),memory(M),mode(X)]),
-  affirm([accumulator(0),op(nop),displayed(0),memory(0),mode(init)]).
-
-%[a,op,d,m] --push(mem_rec)-->    [a,op,m,m]
-push(mem_rec) < -
-  memory(M),
-  deny([displayed(D),mode(X)]),
-  affirm([displayed(M),mode(init)]).
-
-%[a,op,d,m] --push(plus)-->       [op(a,d),plus,d,m]
-push(plus) < -
-  displayed(D),
-  deny([accumulator(A),op(O),mode(X)]),
-  eval(O,A,D,V),   ; use normal arithmetic, i.e., V=O(A,D)
-  affirm([accumulator(V),op(plus),mode(init)]).
-
-%[a,op,d,m] --push(minus)-->      [op(a,d,minus,d,m]
-push(minus) lt -
-  displayed(D),
-  deny([accumulator(A),op(O),mode(X)]),
-  eval(O,A,D,V),   ; use normal arithmetic, i.e., V=O(A,D)
-  affirm([accumulator(V),op(minus),mode(init)]).
-
-%[a,op,d,m] --push(times)-->      [op(a,d),times,d,m]
-push(times) < -
-  displayed(D),
-  deny([accumulator(A),op(O),mode(X)]),
-  eval(O,A,D,V),   ; use normal arithmetic, i.e., V=O(A,D)
-  affirm([accumulator(V),op(times),mode(init)]).
-
-%[a,op,d,m] --push(equal)-->      [a,nop,op(a,d),m]
-push(equal) < -
-  accumulator(A),
-  deny([op(O),displayed(D),mode(X)]),
-  eval(O,A,D,V),
-  affirm([op(nop),displayed(V),mode(init)]).
-
-%[a,op,d,m] --push(mem_plus)-->   [a,nop,v,plus(m,v)] where v=op(a,d)
-push(mem_plus) < -
-  accumulator(A),
-  deny([op(O),displayed(D),memory(M),mode(X)]),
-  eval(O,A,D,V),
-  eval(plus,M,V,V1),
-  affirm([op(nop),displayed(V),memory(V1),mode(init)]).
-
-%[a,op,d,m] --push(plus_minus)--> [a,op,-d,m]
-push(clear) < -
-  deny([displayed(D),mode(X)]),
-  eval(minus,0,D,V),
-  affirm([displayed(V),mode(init)]).

samples/Prolog/normal_form.pl

@@ -1,94 +0,0 @@
-%%----- normalize(+Wff,-NormalClauses) ------
-normalize(Wff,NormalClauses) :-
-   conVert(Wff,[],S),
-   cnF(S,T),
-   flatten_and(T,U),
-   make_clauses(U,NormalClauses).
-
-%%-----  make a sequence out of a conjunction -----
-flatten_and(X /\ Y, F) :-
-   !,
-   flatten_and(X,A),
-   flatten_and(Y, B),
-   sequence_append(A,B,F).
-flatten_and(X,X).
-
-%%-----  make a sequence out of a disjunction -----
-flatten_or(X \/ Y, F) :-
-   !,
-   flatten_or(X,A),
-   flatten_or(Y,B),
-   sequence_append(A,B,F).
-flatten_or(X,X).
-
-
-%%----- append two sequences -------------------------------
-sequence_append((X,R),S,(X,T)) :- !, sequence_append(R,S,T).
-sequence_append((X),S,(X,S)).
-
-%%----- separate into positive and negative literals -----------
-separate((A,B),P,N) :-
-   !,
-   (A = ~X -> N=[X|N1],
-               separate(B,P,N1)
-             ;
-               P=[A|P1],
-               separate(B,P1,N) ).
-separate(A,P,N) :-
-   (A = ~X -> N=[X],
-               P = []
-            ;
-               P=[A],
-               N = [] ).
-
-%%----- tautology ----------------------------
-tautology(P,N) :- some_occurs(N,P).
-
-some_occurs([F|R],B) :-
-   occurs(F,B) | some_occurs(R,B).
-
-occurs(A,[F|_]) :-
-   A == F,
-   !.
-occurs(A,[_|R]) :-
-   occurs(A,R).
-
-make_clauses((A,B),C) :-
-   !,
-   flatten_or(A,F),
-   separate(F,P,N),
-   (tautology(P,N) ->
-      make_clauses(B,C)
-          ;
-      make_clause(P,N,D),
-      C = [D|R],
-      make_clauses(B,R) ).
-make_clauses(A,C) :-
-   flatten_or(A,F),
-   separate(F,P,N),
-   (tautology(P,N) ->
-       C = []
-        ;
-       make_clause(P,N,D),
-       C = [D] ).
-
-make_clause([],N, false :- B) :-
-   !,
-   make_sequence(N,B,',').
-make_clause(P,[],H) :-
-   !,
-   make_sequence(P,H,'|').
-make_clause(P,N, H :- T) :-
-   make_sequence(P,H,'|'),
-   make_sequence(N,T,',').
-
-make_sequence([A],A,_) :- !.
-make_sequence([F|R],(F|S),'|') :-
-   make_sequence(R,S,'|').
-make_sequence([F|R],(F,S),',') :-
-   make_sequence(R,S,',').
-
-write_list([F|R]) :-
-   write(F), write('.'), nl,
-   write_list(R).
-write_list([]).

samples/Prolog/puzzle.pl

@@ -1,287 +0,0 @@
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%
-%%%     A* Algorithm
-%%%
-%%%
-%%%     Nodes have form    S#D#F#A
-%%%            where S describes the state or configuration
-%%%                  D is the depth of the node
-%%%                  F is the evaluation function value
-%%%                  A is the ancestor list for the node
-
-:- op(400,yfx,'#').    /* Node builder notation */
-
-solve(State,Soln) :- f_function(State,0,F),
-                     search([State#0#F#[]],S), reverse(S,Soln).
-
-f_function(State,D,F) :- h_function(State,H),
-                         F is D + H.
-
-search([State#_#_#Soln|_], Soln) :- goal(State).
-search([B|R],S) :- expand(B,Children),
-                   insert_all(Children,R,Open),
-                   search(Open,S).
-
-insert_all([F|R],Open1,Open3) :- insert(F,Open1,Open2),
-                                 insert_all(R,Open2,Open3).
-insert_all([],Open,Open).
-
-insert(B,Open,Open) :- repeat_node(B,Open), ! .
-insert(B,[C|R],[B,C|R]) :- cheaper(B,C), ! .
-insert(B,[B1|R],[B1|S]) :- insert(B,R,S), !.
-insert(B,[],[B]).
-
-repeat_node(P#_#_#_, [P#_#_#_|_]).
-
-cheaper( _#_#F1#_ , _#_#F2#_ ) :- F1 < F2.
-
-expand(State#D#_#S,All_My_Children) :-
-     bagof(Child#D1#F#[Move|S],
-           (D1 is D+1,
-             move(State,Child,Move),
-             f_function(Child,D1,F)),
-           All_My_Children).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%
-%%%     8-puzzle solver
-%%%
-%%%
-%%%     State have form    A/B/C/D/E/F/G/H/I
-%%%            where {A,...,I} = {0,...,8}
-%%%               0 represents the empty tile
-%%%
-
-goal(1/2/3/8/0/4/7/6/5).
-
-%%% The puzzle moves
-
-left( A/0/C/D/E/F/H/I/J , 0/A/C/D/E/F/H/I/J ).
-left( A/B/C/D/0/F/H/I/J , A/B/C/0/D/F/H/I/J ).
-left( A/B/C/D/E/F/H/0/J , A/B/C/D/E/F/0/H/J ).
-left( A/B/0/D/E/F/H/I/J , A/0/B/D/E/F/H/I/J ).
-left( A/B/C/D/E/0/H/I/J , A/B/C/D/0/E/H/I/J ).
-left( A/B/C/D/E/F/H/I/0 , A/B/C/D/E/F/H/0/I ).
-
-up( A/B/C/0/E/F/H/I/J , 0/B/C/A/E/F/H/I/J ).
-up( A/B/C/D/0/F/H/I/J , A/0/C/D/B/F/H/I/J ).
-up( A/B/C/D/E/0/H/I/J , A/B/0/D/E/C/H/I/J ).
-up( A/B/C/D/E/F/0/I/J , A/B/C/0/E/F/D/I/J ).
-up( A/B/C/D/E/F/H/0/J , A/B/C/D/0/F/H/E/J ).
-up( A/B/C/D/E/F/H/I/0 , A/B/C/D/E/0/H/I/F ).
-
-right( A/0/C/D/E/F/H/I/J , A/C/0/D/E/F/H/I/J ).
-right( A/B/C/D/0/F/H/I/J , A/B/C/D/F/0/H/I/J ).
-right( A/B/C/D/E/F/H/0/J , A/B/C/D/E/F/H/J/0 ).
-right( 0/B/C/D/E/F/H/I/J , B/0/C/D/E/F/H/I/J ).
-right( A/B/C/0/E/F/H/I/J , A/B/C/E/0/F/H/I/J ).
-right( A/B/C/D/E/F/0/I/J , A/B/C/D/E/F/I/0/J ).
-
-down( A/B/C/0/E/F/H/I/J , A/B/C/H/E/F/0/I/J ).
-down( A/B/C/D/0/F/H/I/J , A/B/C/D/I/F/H/0/J ).
-down( A/B/C/D/E/0/H/I/J , A/B/C/D/E/J/H/I/0 ).
-down( 0/B/C/D/E/F/H/I/J , D/B/C/0/E/F/H/I/J ).
-down( A/0/C/D/E/F/H/I/J , A/E/C/D/0/F/H/I/J ).
-down( A/B/0/D/E/F/H/I/J , A/B/F/D/E/0/H/I/J ).
-
-%%% the heuristic function
-h_function(Puzz,H) :- p_fcn(Puzz,P),
-                      s_fcn(Puzz,S),
-                      H is P + 3*S.
-
-
-%%% the move
-move(P,C,left) :-  left(P,C).
-move(P,C,up) :-  up(P,C).
-move(P,C,right) :-  right(P,C).
-move(P,C,down) :-  down(P,C).
-
-%%% the Manhattan distance function
-p_fcn(A/B/C/D/E/F/G/H/I, P) :-
-     a(A,Pa), b(B,Pb), c(C,Pc),
-     d(D,Pd), e(E,Pe), f(F,Pf),
-     g(G,Pg), h(H,Ph), i(I,Pi),
-     P is Pa+Pb+Pc+Pd+Pe+Pf+Pg+Ph+Pg+Pi.
-
-a(0,0). a(1,0). a(2,1). a(3,2). a(4,3). a(5,4). a(6,3). a(7,2). a(8,1).
-b(0,0). b(1,1). b(2,0). b(3,1). b(4,2). b(5,3). b(6,2). b(7,3). b(8,2).
-c(0,0). c(1,2). c(2,1). c(3,0). c(4,1). c(5,2). c(6,3). c(7,4). c(8,3).
-d(0,0). d(1,1). d(2,2). d(3,3). d(4,2). d(5,3). d(6,2). d(7,2). d(8,0).
-e(0,0). e(1,2). e(2,1). e(3,2). e(4,1). e(5,2). e(6,1). e(7,2). e(8,1).
-f(0,0). f(1,3). f(2,2). f(3,1). f(4,0). f(5,1). f(6,2). f(7,3). f(8,2).
-g(0,0). g(1,2). g(2,3). g(3,4). g(4,3). g(5,2). g(6,2). g(7,0). g(8,1).
-h(0,0). h(1,3). h(2,3). h(3,3). h(4,2). h(5,1). h(6,0). h(7,1). h(8,2).
-i(0,0). i(1,4). i(2,3). i(3,2). i(4,1). i(5,0). i(6,1). i(7,2). i(8,3).
-
-%%% the out-of-cycle function
-s_fcn(A/B/C/D/E/F/G/H/I, S) :-
-     s_aux(A,B,S1), s_aux(B,C,S2), s_aux(C,F,S3),
-     s_aux(F,I,S4), s_aux(I,H,S5), s_aux(H,G,S6),
-     s_aux(G,D,S7), s_aux(D,A,S8), s_aux(E,S9),
-     S is S1+S2+S3+S4+S5+S6+S7+S8+S9.
-
-s_aux(0,0) :- !.
-s_aux(_,1).
-
-s_aux(X,Y,0) :- Y is X+1, !.
-s_aux(8,1,0) :- !.
-s_aux(_,_,2).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%
-%%%     8-puzzle animation -- using VT100 character graphics
-%%%
-%%%
-%%%
-
-puzzle(P) :- solve(P,S),
-             animate(P,S),
-             message.
-
-animate(P,S) :- initialize(P),
-                cursor(1,2), write(S),
-                cursor(1,22), write('Hit ENTER to step solver.'),
-                get0(_X),
-                play_back(S).
-
-:- dynamic location/3.
-
-initialize(A/B/C/D/E/F/H/I/J) :-
-  cls,
-  retractall(location(_,_,_)),
-  assert(location(A,20,5)),
-  assert(location(B,30,5)),
-  assert(location(C,40,5)),
-  assert(location(F,40,10)),
-  assert(location(J,40,15)),
-  assert(location(I,30,15)),
-  assert(location(H,20,15)),
-  assert(location(D,20,10)),
-  assert(location(E,30,10)), draw_all.
-
-draw_all :- draw(1), draw(2), draw(3), draw(4),
-            draw(5), draw(6), draw(7), draw(8).
-
-%%% play_back([left,right,up,...]).
-play_back([M|R]) :- call(M), get0(_X), play_back(R).
-play_back([]) :- cursor(1,24).  %%% Put cursor out of the way
-
-message :- nl,nl,
-   write('    ********************************************'), nl,
-   write('    *  Enter 8-puzzle goals in the form ...    *'), nl,
-   write('    *     ?-  puzzle(0/8/1/2/4/3/7/6/5).       *'), nl,
-   write('    *   Enter goal ''message'' to reread this.   *'), nl,
-   write('    ********************************************'), nl, nl.
-
-
-cursor(X,Y) :- put(27), put(91), %%% ESC [
-               write(Y),
-               put(59),           %%%   ;
-               write(X),
-               put(72).           %%%   M
-
-%%% clear the screen, quickly
-cls :-  put(27), put("["), put("2"), put("J").
-
-%%% video attributes -- bold and blink not working
-plain         :- put(27), put("["), put("0"), put("m").
-reverse_video :- put(27), put("["), put("7"), put("m").
-
-
-%%% Tile objects, character map(s)
-%%% Each tile should be drawn using the character map,
-%%%   drawn at 'location', which is asserted and retracted
-%%%   by 'playback'.
-character_map(N, [ [' ',' ',' ',' ',' ',' ',' '],
-                   [' ',' ',' ', N ,' ',' ',' '],
-                   [' ',' ',' ',' ',' ',' ',' '] ]).
-
-
-%%% move empty tile (spot) to the left
-left :- retract(location(0,X0,Y0)),
-        Xnew is X0 - 10,
-        location(Tile,Xnew,Y0),
-        assert(location(0,Xnew,Y0)),
-        right(Tile),right(Tile),right(Tile),
-        right(Tile),right(Tile),
-        right(Tile),right(Tile),right(Tile),
-        right(Tile),right(Tile).
-
-up :- retract(location(0,X0,Y0)),
-      Ynew is Y0 - 5,
-      location(Tile,X0,Ynew),
-      assert(location(0,X0,Ynew)),
-      down(Tile),down(Tile),down(Tile),down(Tile),down(Tile).
-
-right :- retract(location(0,X0,Y0)),
-         Xnew is X0 + 10,
-         location(Tile,Xnew,Y0),
-         assert(location(0,Xnew,Y0)),
-         left(Tile),left(Tile),left(Tile),left(Tile),left(Tile),
-         left(Tile),left(Tile),left(Tile),left(Tile),left(Tile).
-
-down :- retract(location(0,X0,Y0)),
-        Ynew is Y0 + 5,
-        location(Tile,X0,Ynew),
-        assert(location(0,X0,Ynew)),
-        up(Tile),up(Tile),up(Tile),up(Tile),up(Tile).
-
-
-draw(Obj) :- reverse_video, character_map(Obj,M),
-             location(Obj,X,Y),
-             draw(X,Y,M), plain.
-
-%%% hide tile
-hide(Obj) :- character_map(Obj,M),
-             location(Obj,X,Y),
-             hide(X,Y,M).
-
-hide(_,_,[]).
-hide(X,Y,[R|G]) :- hide_row(X,Y,R),
-                   Y1 is Y + 1,
-                   hide(X,Y1,G).
-
-hide_row(_,_,[]).
-hide_row(X,Y,[_|R]) :- cursor(X,Y),
-                       write(' '),
-                       X1 is X + 1,
-                       hide_row(X1,Y,R).
-
-%%% draw tile
-draw(_,_,[]).
-draw(X,Y,[R|G]) :- draw_row(X,Y,R),
-                   Y1 is Y + 1,
-                   draw(X,Y1,G).
-
-draw_row(_,_,[]).
-draw_row(X,Y,[P|R]) :- cursor(X,Y),
-                       write(P),
-                       X1 is X + 1,
-                       draw_row(X1,Y,R).
-
-%%% Move an Object up
-up(Obj)    :- hide(Obj),
-              retract(location(Obj,X,Y)),
-              Y1 is Y - 1,
-              assert(location(Obj,X,Y1)),
-              draw(Obj).
-
-down(Obj)  :- hide(Obj),
-              retract(location(Obj,X,Y)),
-              Y1 is Y + 1,
-              assert(location(Obj,X,Y1)),
-              draw(Obj).
-
-left(Obj)  :- hide(Obj),
-              retract(location(Obj,X,Y)),
-              X1 is X - 1,
-              assert(location(Obj,X1,Y)),
-              draw(Obj).
-
-right(Obj) :- hide(Obj),
-              retract(location(Obj,X,Y)),
-              X1 is X + 1,
-              assert(location(Obj,X1,Y)),
-              draw(Obj).
-
-:- message.

samples/Prolog/quicksort.pl

@@ -1,13 +0,0 @@
-partition([], _, [], []).
-partition([X|Xs], Pivot, Smalls, Bigs) :-
-    (   X @< Pivot ->
-        Smalls = [X|Rest],
-        partition(Xs, Pivot, Rest, Bigs)
-    ;   Bigs = [X|Rest],
-        partition(Xs, Pivot, Smalls, Rest)
-    ).
-
-quicksort([])     --> [].
-quicksort([X|Xs]) -->
-    { partition(Xs, X, Smaller, Bigger) },
-    quicksort(Smaller), [X], quicksort(Bigger).

samples/Prolog/test-prolog.pl

@@ -1,12 +0,0 @@
-/* Prolog test file */
-male(john).
-male(peter).
-
-female(vick).
-female(christie).
-
-parents(john, peter, christie).
-parents(vick, peter, christie).
-
-/* X is a brother of Y */
-brother(X, Y) :- male(X), parents(X, F, M), parents(Y, F, M).

samples/Prolog/test-prolog.prolog

@@ -0,0 +1,12 @@
+-/* Prolog test file */
+ -male(john).
+ -male(peter).
+ -
+ -female(vick).
+ -female(christie).
+ -
+ -parents(john, peter, christie).
+ -parents(vick, peter, christie).
+ -
+ -/* X is a brother of Y */
+ -brother(X, Y) :- male(X), parents(X, F, M), parents(Y, F, M).

samples/Prolog/turing.pl

@@ -1,21 +1,21 @@
-turing(Tape0, Tape) :-
-    perform(q0, [], Ls, Tape0, Rs),
-    reverse(Ls, Ls1),
-    append(Ls1, Rs, Tape).
-
-perform(qf, Ls, Ls, Rs, Rs) :- !.
-perform(Q0, Ls0, Ls, Rs0, Rs) :-
-    symbol(Rs0, Sym, RsRest),
-    once(rule(Q0, Sym, Q1, NewSym, Action)),
-    action(Action, Ls0, Ls1, [NewSym|RsRest], Rs1),
-    perform(Q1, Ls1, Ls, Rs1, Rs).
-
-symbol([], b, []).
-symbol([Sym|Rs], Sym, Rs).
-
-action(left, Ls0, Ls, Rs0, Rs) :- left(Ls0, Ls, Rs0, Rs).
-action(stay, Ls, Ls, Rs, Rs).
-action(right, Ls0, [Sym|Ls0], [Sym|Rs], Rs).
-
-left([], [], Rs0, [b|Rs0]).
-left([L|Ls], Ls, Rs, [L|Rs]).
+-turing(Tape0, Tape) :-
+ -    perform(q0, [], Ls, Tape0, Rs),
+ -    reverse(Ls, Ls1),
+ -    append(Ls1, Rs, Tape).
+ -
+ -perform(qf, Ls, Ls, Rs, Rs) :- !.
+ -perform(Q0, Ls0, Ls, Rs0, Rs) :-
+ -    symbol(Rs0, Sym, RsRest),
+ -    once(rule(Q0, Sym, Q1, NewSym, Action)),
+ -    action(Action, Ls0, Ls1, [NewSym|RsRest], Rs1),
+ -    perform(Q1, Ls1, Ls, Rs1, Rs).
+ -
+ -symbol([], b, []).
+ -symbol([Sym|Rs], Sym, Rs).
+ -
+ -action(left, Ls0, Ls, Rs0, Rs) :- left(Ls0, Ls, Rs0, Rs).
+ -action(stay, Ls, Ls, Rs, Rs).
+ -action(right, Ls0, [Sym|Ls0], [Sym|Rs], Rs).
+ -
+ -left([], [], Rs0, [b|Rs0]).
+ -left([L|Ls], Ls, Rs, [L|Rs]).

samples/RMarkdown/example.rmd

@@ -0,0 +1,10 @@
+# An example RMarkdown
+
+Some text.
+
+## A graphic in R
+
+```{r}
+plot(1:10)
+hist(rnorm(10000))
+```

samples/Standard ML/RedBlackTree.fun

@@ -0,0 +1,254 @@
+(* From Twelf *)
+(* Red/Black Trees *)
+(* Author: Frank Pfenning *)
+
+functor RedBlackTree
+  (type key'
+   val compare : key' * key' -> order)
+  :> TABLE where type key = key' =
+struct
+  type key = key'
+  type 'a entry = key * 'a
+
+  datatype 'a dict =
+    Empty				(* considered black *)
+  | Red of 'a entry * 'a dict * 'a dict
+  | Black of 'a entry * 'a dict * 'a dict
+
+  type 'a Table = 'a dict ref
+
+  (* Representation Invariants *)
+  (*
+     1. The tree is ordered: for every node Red((key1,datum1), left, right) or
+        Black ((key1,datum1), left, right), every key in left is less than
+        key1 and every key in right is greater than key1.
+
+     2. The children of a red node are black (color invariant).
+
+     3. Every path from the root to a leaf has the same number of
+        black nodes, called the black height of the tree.
+  *)
+
+  local
+
+  fun lookup dict key =
+    let
+      fun lk (Empty) = NONE
+	| lk (Red tree) = lk' tree
+        | lk (Black tree) = lk' tree
+      and lk' ((key1, datum1), left, right) =
+	    (case compare(key,key1)
+	       of EQUAL => SOME(datum1)
+	        | LESS => lk left
+		| GREATER => lk right)
+      in
+	lk dict
+      end
+
+  (* val restore_right : 'a dict -> 'a dict *)
+  (*
+     restore_right (Black(e,l,r)) >=> dict
+     where (1) Black(e,l,r) is ordered,
+           (2) Black(e,l,r) has black height n,
+	   (3) color invariant may be violated at the root of r:
+               one of its children might be red.
+     and dict is a re-balanced red/black tree (satisfying all invariants)
+     and same black height n.
+  *)
+  fun restore_right (Black(e, Red lt, Red (rt as (_,Red _,_)))) =
+         Red(e, Black lt, Black rt)	(* re-color *)
+    | restore_right (Black(e, Red lt, Red (rt as (_,_,Red _)))) =
+         Red(e, Black lt, Black rt)	(* re-color *)
+    | restore_right (Black(e, l, Red(re, Red(rle, rll, rlr), rr))) =
+	 (* l is black, deep rotate *)
+	 Black(rle, Red(e, l, rll), Red(re, rlr, rr))
+    | restore_right (Black(e, l, Red(re, rl, rr as Red _))) =
+	 (* l is black, shallow rotate *)
+	 Black(re, Red(e, l, rl), rr)
+    | restore_right dict = dict
+
+  (* restore_left is like restore_right, except *)
+  (* the color invariant may be violated only at the root of left child *)
+  fun restore_left (Black(e, Red (lt as (_,Red _,_)), Red rt)) =
+	 Red(e, Black lt, Black rt)	(* re-color *)
+    | restore_left (Black(e, Red (lt as (_,_,Red _)), Red rt)) =
+	 Red(e, Black lt, Black rt)	(* re-color *)
+    | restore_left (Black(e, Red(le, ll as Red _, lr), r)) =
+	 (* r is black, shallow rotate *)
+	 Black(le, ll, Red(e, lr, r))
+    | restore_left (Black(e, Red(le, ll, Red(lre, lrl, lrr)), r)) =
+	 (* r is black, deep rotate *)
+	 Black(lre, Red(le, ll, lrl), Red(e, lrr, r))
+    | restore_left dict = dict
+
+  fun insert (dict, entry as (key,datum)) =
+    let
+      (* val ins : 'a dict -> 'a dict  inserts entry *)
+      (* ins (Red _) may violate color invariant at root *)
+      (* ins (Black _) or ins (Empty) will be red/black tree *)
+      (* ins preserves black height *)
+      fun ins (Empty) = Red(entry, Empty, Empty)
+	| ins (Red(entry1 as (key1, datum1), left, right)) =
+	  (case compare(key,key1)
+	     of EQUAL => Red(entry, left, right)
+	      | LESS => Red(entry1, ins left, right)
+	      | GREATER => Red(entry1, left, ins right))
+	| ins (Black(entry1 as (key1, datum1), left, right)) =
+	  (case compare(key,key1)
+	     of EQUAL => Black(entry, left, right)
+	      | LESS => restore_left (Black(entry1, ins left, right))
+	      | GREATER => restore_right (Black(entry1, left, ins right)))
+    in
+      case ins dict
+	of Red (t as (_, Red _, _)) => Black t (* re-color *)
+	 | Red (t as (_, _, Red _)) => Black t (* re-color *)
+	 | dict => dict
+    end
+
+  (* function below from .../smlnj-lib/Util/int-redblack-set.sml *)
+  (* Need to check and improve some time *)
+  (* Sun Mar 13 08:22:53 2005 -fp *)
+
+  (* Remove an item.  Returns true if old item found, false otherwise *)
+    local
+      exception NotFound
+      datatype 'a zipper
+	= TOP
+	| LEFTB of ('a entry * 'a dict * 'a zipper)
+	| LEFTR of ('a entry * 'a dict * 'a zipper)
+	| RIGHTB of ('a dict * 'a entry * 'a zipper)
+	| RIGHTR of ('a dict * 'a entry * 'a zipper)
+    in
+    fun delete t key =
+        let
+	  fun zip (TOP, t) = t
+	    | zip (LEFTB(x, b, z), a) = zip(z, Black(x, a, b))
+	    | zip (LEFTR(x, b, z), a) = zip(z, Red(x, a, b))
+	    | zip (RIGHTB(a, x, z), b) = zip(z, Black(x, a, b))
+	    | zip (RIGHTR(a, x, z), b) = zip(z, Red(x, a, b))
+	(* bbZip propagates a black deficit up the tree until either the top
+	 * is reached, or the deficit can be covered.  It returns a boolean
+	 * that is true if there is still a deficit and the zipped tree.
+	 *)
+	  fun bbZip (TOP, t) = (true, t)
+	    | bbZip (LEFTB(x, Red(y, c, d), z), a) = (* case 1L *)
+		bbZip (LEFTR(x, c, LEFTB(y, d, z)), a)
+	    | bbZip (LEFTB(x, Black(w, Red(y, c, d), e), z), a) = (* case 3L *)
+		bbZip (LEFTB(x, Black(y, c, Red(w, d, e)), z), a)
+	    | bbZip (LEFTR(x, Black(w, Red(y, c, d), e), z), a) = (* case 3L *)
+		bbZip (LEFTR(x, Black(y, c, Red(w, d, e)), z), a)
+	    | bbZip (LEFTB(x, Black(y, c, Red(w, d, e)), z), a) = (* case 4L *)
+		(false, zip (z, Black(y, Black(x, a, c), Black(w, d, e))))
+	    | bbZip (LEFTR(x, Black(y, c, Red(w, d, e)), z), a) = (* case 4L *)
+		(false, zip (z, Red(y, Black(x, a, c), Black(w, d, e))))
+	    | bbZip (LEFTR(x, Black(y, c, d), z), a) = (* case 2L *)
+		(false, zip (z, Black(x, a, Red(y, c, d))))
+	    | bbZip (LEFTB(x, Black(y, c, d), z), a) = (* case 2L *)
+		bbZip (z, Black(x, a, Red(y, c, d)))
+	    | bbZip (RIGHTB(Red(y, c, d), x, z), b) = (* case 1R *)
+		bbZip (RIGHTR(d, x, RIGHTB(c, y, z)), b)
+	    | bbZip (RIGHTR(Red(y, c, d), x, z), b) = (* case 1R *)
+		bbZip (RIGHTR(d, x, RIGHTB(c, y, z)), b)
+	    | bbZip (RIGHTB(Black(y, Red(w, c, d), e), x, z), b) = (* case 3R *)
+		bbZip (RIGHTB(Black(w, c, Red(y, d, e)), x, z), b)
+	    | bbZip (RIGHTR(Black(y, Red(w, c, d), e), x, z), b) = (* case 3R *)
+		bbZip (RIGHTR(Black(w, c, Red(y, d, e)), x, z), b)
+	    | bbZip (RIGHTB(Black(y, c, Red(w, d, e)), x, z), b) = (* case 4R *)
+		(false, zip (z, Black(y, c, Black(x, Red(w, d, e), b))))
+	    | bbZip (RIGHTR(Black(y, c, Red(w, d, e)), x, z), b) = (* case 4R *)
+		(false, zip (z, Red(y, c, Black(w, Red(w, d, e), b))))
+	    | bbZip (RIGHTR(Black(y, c, d), x, z), b) = (* case 2R *)
+		(false, zip (z, Black(x, Red(y, c, d), b)))
+	    | bbZip (RIGHTB(Black(y, c, d), x, z), b) = (* case 2R *)
+		bbZip (z, Black(x, Red(y, c, d), b))
+	    | bbZip (z, t) = (false, zip(z, t))
+	  fun delMin (Red(y, Empty, b), z) = (y, (false, zip(z, b)))
+	    | delMin (Black(y, Empty, b), z) = (y, bbZip(z, b))
+	    | delMin (Black(y, a, b), z) = delMin(a, LEFTB(y, b, z))
+	    | delMin (Red(y, a, b), z) = delMin(a, LEFTR(y, b, z))
+	    | delMin (Empty, _) = raise Match
+	  fun joinRed (Empty, Empty, z) = zip(z, Empty)
+	    | joinRed (a, b, z) = let
+		val (x, (needB, b')) = delMin(b, TOP)
+		in
+		  if needB
+		    then #2(bbZip(z, Red(x, a, b')))
+		    else zip(z, Red(x, a, b'))
+		end
+	  fun joinBlack (a, Empty, z) = #2(bbZip(z, a))
+	    | joinBlack (Empty, b, z) = #2(bbZip(z, b))
+	    | joinBlack (a, b, z) = let
+		val (x, (needB, b')) = delMin(b, TOP)
+		in
+		  if needB
+		    then #2(bbZip(z, Black(x, a, b')))
+		    else zip(z, Black(x, a, b'))
+		end
+	  fun del (Empty, z) = raise NotFound
+	    | del (Black(entry1 as (key1, datum1), a, b), z) =
+	      (case compare(key,key1)
+		 of EQUAL => joinBlack (a, b, z)
+                  | LESS => del (a, LEFTB(entry1, b, z))
+		  | GREATER => del (b, RIGHTB(a, entry1, z)))
+	    | del (Red(entry1 as (key1, datum1), a, b), z) =
+	      (case compare(key,key1)
+                 of EQUAL => joinRed (a, b, z)
+                  | LESS => del (a, LEFTR(entry1, b, z))
+                  | GREATER => del (b, RIGHTR(a, entry1, z)))
+	  in
+	    (del(t, TOP); true) handle NotFound => false
+	  end
+    end (* local *)
+
+  (* use non-imperative version? *)
+  fun insertShadow (dict, entry as (key,datum)) =
+      let val oldEntry = ref NONE (* : 'a entry option ref *)
+          fun ins (Empty) = Red(entry, Empty, Empty)
+	    | ins (Red(entry1 as (key1, datum1), left, right)) =
+	      (case compare(key,key1)
+		 of EQUAL => (oldEntry := SOME(entry1);
+			      Red(entry, left, right))
+	          | LESS => Red(entry1, ins left, right)
+	          | GREATER => Red(entry1, left, ins right))
+	    | ins (Black(entry1 as (key1, datum1), left, right)) =
+	      (case compare(key,key1)
+		 of EQUAL => (oldEntry := SOME(entry1);
+			      Black(entry, left, right))
+	          | LESS => restore_left (Black(entry1, ins left, right))
+	          | GREATER => restore_right (Black(entry1, left, ins right)))
+      in
+	(oldEntry := NONE;
+	 ((case ins dict
+	     of Red (t as (_, Red _, _)) => Black t (* re-color *)
+	      | Red (t as (_, _, Red _)) => Black t (* re-color *)
+	      | dict => dict),
+	  !oldEntry))
+      end
+  
+  fun app f dict =
+      let fun ap (Empty) = ()
+	    | ap (Red tree) = ap' tree
+	    | ap (Black tree) = ap' tree
+	  and ap' (entry1, left, right) =
+	      (ap left; f entry1; ap right)
+      in
+	ap dict
+      end
+
+  in
+    fun new (n) = ref (Empty) (* ignore size hint *)
+    val insert = (fn table => fn entry => (table := insert (!table, entry)))
+    val insertShadow =
+        (fn table => fn entry => 
+	 let
+	   val (dict, oldEntry) = insertShadow (!table, entry)
+	 in
+	   (table := dict; oldEntry)
+	 end)
+    val lookup = (fn table => fn key => lookup (!table) key)
+    val delete = (fn table => fn key => (delete (!table) key; ()))
+    val clear = (fn table => (table := Empty))
+    val app = (fn f => fn table => app f (!table))
+  end
+
+end;  (* functor RedBlackTree *)

samples/TeX/problemset.cls

@@ -0,0 +1,380 @@
+% =====================================
+% problemset Document Style
+%   For Problem Sets
+%
+% Options:
+% final      hides to-dos
+% worksheet  hides solutions and places each problem on separate page
+% expand     places each problem on a separate page
+% =====================================
+
+\ProvidesClass{problemset}
+\DeclareOption*{\PassOptionsToClass{final}{article}}
+\DeclareOption{worksheet}{\providecommand{\@solutionvis}{0}}
+\DeclareOption{expand}{\providecommand{\@expand}{1}}
+\ProcessOptions\relax
+
+% ================== Packages and Document Options ==================
+\LoadClass[10pt,letterpaper]{article}
+\RequirePackage[%
+        top=0.85in,
+        bottom=1in,
+        left=1in,
+        right=1in
+        ]{geometry}
+\RequirePackage{pgfkeys}    % For mathtable environment.
+\RequirePackage{tabularx}   % For pset heading
+\RequirePackage{float}      % Used for floats (tables, figures, etc.)
+\RequirePackage{graphicx}   % Used for inserting images.
+\RequirePackage{enumerate}  % Used for the enumerate environment.
+\RequirePackage{mathtools}  % Required. Loads amsmath.
+\RequirePackage{amsthm}     % Required. Used for theorem environments.
+\RequirePackage{amssymb}    % Required.
+\RequirePackage{booktabs}   % Required. Used for mathtable environment.
+\RequirePackage{esdiff}     % For derivatives and partial derivatives
+\RequirePackage{mathtools}  % Optional. Used for \shortintertext.
+\RequirePackage{fancyhdr}   % Required. For customizing headers/footers.
+\RequirePackage{lastpage}   % Required. For page count in header/footer.
+\RequirePackage{xcolor}     % Required. For setting the color of hyperlinks
+\RequirePackage[%
+        obeyFinal,          % Disable todos by setting [final] option for class
+        color=@todoclr,
+        linecolor=red
+        ]{todonotes}        % For keeping track of to-dos.
+\RequirePackage[%
+        colorlinks=true,
+        linkcolor=navy,
+        urlcolor=black
+        ]{hyperref}         % For following urls and references in a document.
+\RequirePackage{url}        % Enables urls with the \url tag
+\RequirePackage[all]{hypcap}
+% hypcap: Links go to object instead of caption. [Keep as last package]
+
+% ==================   Appearance Settings   ==================
+\definecolor{@todoclr}{gray}{0.80}   % For To-Dos. 50% brightness
+\definecolor{navy}{RGB}{0,0,150}     % For coloring hyperlinks
+\setlength{\parskip}{1.5ex}          % Sets space between paragraphs.
+\setlength{\parindent}{0pt}          % Indent for first line of new paragraphs.
+
+% Smaller verbatim type size
+\let\VERBATIM\verbatim
+\def\verbatim{%
+  \def\verbatim@font{\small\ttfamily}%
+\VERBATIM}
+
+% =============   Caption Modifications   =============
+\usepackage[small]{caption}
+\usepackage[footnotesize]{subcaption}
+    % For no visible number, use: \caption*{Unnumbered figure caption.}
+\captionsetup[table]{labelformat=simple, labelsep=period, labelfont=bf}
+\captionsetup[figure]{labelformat=simple, labelsep=period, labelfont=bf}
+\captionsetup[subtable]{labelformat=parens, labelsep=space, labelfont=bf}
+\captionsetup[subfigure]{labelformat=simple, labelsep=period, labelfont=bf}
+
+% ==================     Booleans     ==================
+\def\TRUE{1}
+\def\FALSE{0}
+\def\SHOW{1}
+\def\HIDE{0}
+
+% ============= Gets Document Info, Generates Heading =============
+\providecommand{\heading}[5][]{
+  \thispagestyle{empty}
+  \listoftodos
+  \clearpage
+  \pagenumbering{arabic}
+  %
+  \providecommand{\shortname}{#1}
+  \providecommand{\authorname}{#2}
+  \providecommand{\coursename}{#3}
+  \providecommand{\assignment}{#4}
+  \providecommand{\duedate}{#5}
+  \begin{minipage}{0.5\textwidth}
+    \begin{flushleft}
+      \hypertarget{@assignment}{
+        \textbf{\assignment}
+      }\\
+      \authorname
+    \end{flushleft}
+  \end{minipage}
+  \begin{minipage}{0.5\textwidth}
+    \begin{flushright}
+      \coursename\\
+      \duedate\\
+    \end{flushright}
+  \end{minipage}
+  \thispagestyle{empty}
+}
+
+% ============= Headers and Footers =============
+\renewcommand{\headrulewidth}{0pt}
+\renewcommand{\footrulewidth}{0.5pt}
+\pagestyle{fancyplain}
+\fancyhf{}
+\lfoot{%
+\fancyplain{}{%
+  \hyperlink{@assignment}{%
+    \small{%
+      \color{black}{%
+        \assignment
+      }
+    }
+  }
+}
+}
+\cfoot{%
+\fancyplain{}{%
+    \small{%
+      \coursename
+    }
+}
+}
+\rfoot{%
+\fancyplain{}{%
+  \small{\shortname~\thepage~of~\pageref{LastPage}}
+}
+}
+
+% ============= Problem Command =============
+% INPUT: Points for question [#1] (Optional)
+\newcounter{theproblem} % Problem counter for environment
+
+\providecommand{\problem}[1][]{%
+  \addtocounter{theproblem}{1}%
+  \setcounter{table}{0}%
+  \setcounter{figure}{0}%
+  \setcounter{equation}{0}%
+  \noindent%
+  \textbf{%
+      Problem~\arabic{theproblem}.}~\textit{\small{#1}}
+
+}
+
+% ============= QED, Page Breaks After QED? =============
+\providecommand{\@expand}{\HIDE}  % Default is to omit pagebreaks after the solution
+\providecommand{\qqed}{\hfill\rule{2mm}{2mm}\ifnum\@expand=\SHOW\\\pagebreak\fi}
+
+
+% ============= Solution Command =============
+\providecommand{\@solutionvis}{1}  % Default setting is to show solutions.
+\providecommand{\solution}[2][\@solutionvis]{
+\vspace{0.5em}\noindent\textbf{Solution.}
+\ifnum#1=\SHOW%
+#2
+
+\hfill\qqed\vspace{0.1em}
+\else%
+\pagebreak%
+\fi
+}
+
+% ============= Chapter, Section, Item Commands =============
+\providecommand{\chap}[2][0]{
+\ifnum#1=0%
+\else%
+\setcounter{section}{#1}%
+\addtocounter{section}{-1}%
+\fi%
+\vspace{-1.75em}%
+\section{#2}
+}
+
+\providecommand{\sect}[2][0]{
+\ifnum#1=0%
+\else%
+\setcounter{subsection}{#1}%
+\addtocounter{subsection}{-1}%
+\fi%
+\vspace{-0.5em}%
+\subsection{#2}
+}
+
+\providecommand{\subsect}[1]{\noindent\textbf{#1.}}
+
+% ============= Insert Non-Float Image =============
+\providecommand{\insertgraphic}[2][0.5\textwidth]{
+\vspace{-1em}
+\begin{center}
+  \includegraphics[width=#1]{#2}
+\end{center}
+\vspace{-1em}
+}
+
+
+
+% ============= Object Numbering by Problem =============
+\renewcommand{\thetable}{\arabic{theproblem}.\arabic{table}}
+\renewcommand{\thefigure}{\arabic{theproblem}.\arabic{figure}}
+\renewcommand{\theequation}{\arabic{theproblem}.\arabic{equation}}
+
+
+% ============= Formula Environment =============
+\newcounter{formula}
+\newenvironment{formula}[1][Formula \arabic{formula}]
+{
+  \addtocounter{formula}{1}
+  \begin{displaymath}
+  \tag*{\parbox{5em}{\textbf{\small{#1}}}}
+}{
+  \end{displaymath}\\
+}
+
+% ============= Math Table =============
+\newif\ifcaption
+\pgfkeys
+{
+  /mypkg/title/.store in=\Caption,% Any value assigned to title will be stored in \Caption
+  /mypkg/title= ,              % Initialize so \Caption exists
+   /mypkg/label/.store in=\Label,  % Any value assigned to label will be stored in \Label
+   /mypkg/label= ,              % Initialize so \Label exists
+   /mypkg/caption/.is if=caption,  % Declare a boolean, defaults to false
+}
+\newenvironment{mathtable}[2][]{
+  \pgfkeys{/mypkg/.cd, #1}%
+  \vspace{-1em}%
+  \begin{table}[ht!]%
+  \small \begin{center}%
+  \begin{displaymath}%
+  \begin{array}{#2}%
+  \toprule
+}{
+  \bottomrule
+  \end{array}%
+  \end{displaymath}%
+  \ifcaption%
+  \vspace{-1em}\caption{\Caption}\label{\Label}%
+  \fi%
+  \end{center}%
+  \end{table}%
+  \vspace{-1em}%
+}
+
+
+% ============= Double-line Column-Heading for table =============
+\providecommand{\double}[2]{%
+  \multicolumn{1}{c}{%
+    \genfrac{}{}{0pt}{}{\text{#1}}{\text{#2}}
+  }
+}
+
+
+% ============= Theorem-Style Environments =============
+\theoremstyle{plain}          % Bold label, italic letters
+\newtheorem{thm}{Theorem}[section]    % Numbered by section
+\newtheorem{lma}[thm]{Lemma}
+\newtheorem{crl}[thm]{Corollary}
+\newtheorem{prp}[thm]{Proposition}
+\newtheorem{cnj}[thm]{Conjecture}
+\newtheorem{alg}[thm]{Algorithm}
+
+% Associated environments (for numbered theorem environments)
+\newenvironment{theorem}[2][]{\begin{thm}[#1]\label{#2}}{\end{thm}}
+\newenvironment{lemma}[2][]{\begin{lma}[#1]\label{#2}}{\end{lma}}
+\newenvironment{corollary}[2][]{\begin{crl}[#1]\label{#2}}{\end{thm}}
+\newenvironment{proposition}[2][]{\begin{prp}[#1]\label{#2}}{\end{crl}}
+\newenvironment{conjecture}[2][]{\begin{cnj}[#1]\label{#2}}{\end{cnj}}
+\newenvironment{algorithm}[2][]{\begin{alg}[#1]\label{#2}}{\end{alg}}
+
+\theoremstyle{remark}          % Italic label, roman letters
+\newtheorem{rmk}{Remark}[section]    % Numbered by section. Remarks are used to expand on and integrate material.
+\newtheorem*{note}{Note}        % Un-numbered. Notes are used to comment on specific elements of the material.
+\newtheorem*{caveat}{Caveat}      % Un-numbered. Caveats are used to guide the reader away from a common error.
+\newtheorem*{warning}{Warning}      % Un-numbered. Warnings are used to guide away from especially egregious errors.
+
+\theoremstyle{definition}        % Bold label, roman letters
+\newtheorem{dfn}{Definition}[section]  % Numbered by section. Definitions of concepts and terms.
+\newtheorem{exm}{Example}[section]    % Numbered by section. Illustrative examples.
+\newtheorem{smm}{Summary}[subsection]  % Numbered by subsection. For section summaries.
+\newtheorem*{question}{Question}    % Un-numbered. For questions to motivate further analysis.
+\newtheorem*{speculation}{Speculation}  % Un-numbered. For questions that arise but will not be immediately answered.
+
+% Associated environments (for numbered theorem environments)
+\newenvironment{remark}[2][]{\begin{rmk}[#1]\label{#2}}{\end{rmk}}
+\newenvironment{definition}[2][]{\begin{dfn}[#1]\label{#2}}{\end{dfn}}
+\newenvironment{example}[2][]{\begin{exm}[#1]\label{#2}}{\end{exm}}
+\newenvironment{summary}[2][]{\begin{smm}[#1]\label{#2}}{\end{smm}}
+
+
+% ============= Greek Letters =============
+\renewcommand{\a}{\ensuremath{\alpha}}
+\renewcommand{\b}{\ensuremath{\beta}}
+\renewcommand{\c}{\ensuremath{\gamma}}
+\newcommand{\ch}{\ensuremath{\chi}}
+\renewcommand{\d}{\ensuremath{\delta}}
+\newcommand{\ep}{\ensuremath{\epsilon}}
+\newcommand{\et}{\ensuremath{\eta}}
+\newcommand{\ve}{\ensuremath{\varepsilon}}
+\renewcommand{\r}{\ensuremath{\rho}}
+\newcommand{\s}{\ensuremath{\sigma}}
+\renewcommand{\t}{\ensuremath{\tau}}
+\newcommand{\f}{\ensuremath{\psi}}
+\newcommand{\w}{\ensuremath{\omega}}
+\newcommand{\h}{\ensuremath{\phi}}
+\newcommand{\m}{\ensuremath{\mu}}
+\renewcommand{\l}{\ensuremath{\lambda}}
+\renewcommand{\k}{\ensuremath{\kappa}}
+\renewcommand{\v}{\ensuremath{\nu}}
+\renewcommand{\i}{\ensuremath{\iota}}
+\renewcommand{\o}{\ensuremath{\theta}}
+\newcommand{\z}{\ensuremath{\zeta}}
+
+% ============= Mathematical Symbols =============
+\providecommand{\NN}{\ensuremath{\mathbb{N}}}
+\providecommand{\ZZ}{\ensuremath{\mathbb{Z}}}
+\providecommand{\QQ}{\ensuremath{\mathbb{Q}}}
+\providecommand{\RR}{\ensuremath{\mathbb{R}}}
+\providecommand{\CC}{\ensuremath{\mathbb{C}}}
+\providecommand{\pd}{\partial}    % 'dee' symbol for partial derivatives
+\providecommand{\dd}{\mathrm{d}} % 'dee' symbol for ordinary derivatives
+\providecommand{\x}{\times}
+\providecommand{\n}{\scalebox{0.6}[1.0]{\ensuremath{-}}}
+
+
+
+% ============= Mathematical Macros =============
+\providecommand{\Sum}[3][n]{\ensuremath{\sum_{{#1}={#2}}^{#3}}}     % Sum from [n]={1}to{2}.     \Sum{1}{10}
+\providecommand{\infsum}[2][n]{\ensuremath{\sum_{{#1}={#2}}^\infty}}  % Infinite sum from [n]={1}    \infsum{1}
+\providecommand{\Int}[4][x]{\ensuremath{\int_{#3}^{#4}\!{#2}\,\mathrm{d}{#1}}}   % Integrate {1} from {2} to {3} with respect to [x]
+\providecommand{\Lim}[3][\infty]{\ensuremath{\displaystyle \lim_{{#2}\to{#1}}\!\!{#3}}} % Take the limit from {1} to [infinity] of {3} \Lim{x}{f(x)}
+\providecommand{\Frac}[2]{\ensuremath{\,^{#1}\!/\!_{#2}}}            % Slanted fraction with proper spacing. Usefule for in-line display of fractions.
+\providecommand{\eval}[3]{\ensuremath{\left[ #1 \right \vert_{#2}^{#3}}}
+\renewcommand{\L}{\left}              % for left-hand right-sizing
+\providecommand{\R}{\right}            % for right-hand right-sizing
+\providecommand{\D}{\diff}            % for writing derivatives
+\providecommand{\PD}{\diffp}          % for writing partial derivatives
+\providecommand{\full}{\displaystyle}      % Forces display style in math mode
+\providecommand{\Deg}{\ensuremath{^\circ}}    % for adding a degree symbol, even if not in math mode
+\providecommand{\abs}[1]{\left\vert #1 \right\vert}   % Absolute Value
+\providecommand{\norm}[1]{\left \Vert #1 \right \Vert}  % Norm (vector magnitude)
+\providecommand{\e}[1]{\ensuremath{\times 10^{#1}}}    % Scientific Notation with times symbol
+\providecommand{\E}[1]{\ensuremath{10^{#1}}}  % Scientific Notation
+\renewcommand{\u}[1]{\text{ #1}}        % For inserting units in Roman text
+\providecommand{\mc}{\text{,}\hspace{1em}}    % For inserting comma and space into math mode
+\providecommand{\mtxt}[2][]{#1\hspace{0.5em}\text{#2}\hspace{0.5em}}  % For insterting text into math mode with space on either side. Option for preceding punctuation.
+
+% ============= Probability and Statistics =============
+\providecommand{\prob}[1]{\ensuremath{P\!\left(#1\right)} }
+\providecommand{\cndprb}[2]{\ensuremath{P\!\left(#1 \left\vert  #2 \right.  \right)} }
+\providecommand{\cov}[1]{\ensuremath{\text{Cov}\!\left(#1\right)} }
+\providecommand{\ex}[1]{\ensuremath{E\!\left[#1\right]} }
+
+% ============= Linear Algebra =============
+
+% Column vectors
+\providecommand{\twovector}[3][r]{\left(\begin{array}{#1} #2 \\ #3\end{array}\right)}
+\providecommand{\threevector}[4][r]{\left(\begin{array}{#1}  #2 \\ #3 \\ #4\end{array}\right)}
+\providecommand{\fourvector}[5][r]{\left(\begin{array}{#1}  #2 \\ #3 \\ #4 \\ #5 \end{array}\right)}
+
+% ============= Vector Calculus =============
+% ------------- Susan Lea's notation ---------------
+\providecommand{\vecs}[1]{\ensuremath{\vec{\bm{#1}}} }  % bolded symbol, arrow
+\providecommand{\vect}[1]{\ensuremath{\vec{\textbf{#1}}} }  % bolded text, arrow
+\providecommand{\unitvecs}[1]{\bm{\hat{#1}}}
+\providecommand{\unitvect}[1]{\hat{\textbf{#1}}}
+\providecommand{\Div}[1]{\vecs{\del} \cdot \vect{#1}}
+\providecommand{\Curl}[1]{\vecs{\del} \times \vect{#1}}
+\providecommand{\Grad}{\vecs{\del}}
+
+
+
+

samples/Visual Basic/Index.vbhtml

@@ -0,0 +1,47 @@
+@Code
+    ViewData("Title") = "Home Page"
+End Code
+
+@section featured
+    <section class="featured">
+        <div class="content-wrapper">
+            <hgroup class="title">
+                <h1>@ViewData("Title").</h1>
+                <h2>@ViewData("Message")</h2>
+            </hgroup>
+            <p>
+                To learn more about ASP.NET MVC visit
+                <a href="http://asp.net/mvc" title="ASP.NET MVC Website">http://asp.net/mvc</a>.
+                The page features <mark>videos, tutorials, and samples</mark> to help you get the most from ASP.NET MVC.
+                If you have any questions about ASP.NET MVC visit
+                <a href="http://forums.asp.net/1146.aspx/1?MVC" title="ASP.NET MVC Forum">our forums</a>.
+            </p>
+        </div>
+    </section>
+End Section
+
+<h3>We suggest the following:</h3>
+<ol class="round">
+    <li class="one">
+        <h5>Getting Started</h5>
+        ASP.NET MVC gives you a powerful, patterns-based way to build dynamic websites that
+        enables a clean separation of concerns and that gives you full control over markup
+        for enjoyable, agile development. ASP.NET MVC includes many features that enable
+        fast, TDD-friendly development for creating sophisticated applications that use
+        the latest web standards.
+        <a href="http://go.microsoft.com/fwlink/?LinkId=245151">Learn more…</a>
+    </li>
+
+    <li class="two">
+        <h5>Add NuGet packages and jump-start your coding</h5>
+        NuGet makes it easy to install and update free libraries and tools.
+        <a href="http://go.microsoft.com/fwlink/?LinkId=245153">Learn more…</a>
+    </li>
+
+    <li class="three">
+        <h5>Find Web Hosting</h5>
+        You can easily find a web hosting company that offers the right mix of features
+        and price for your applications.
+        <a href="http://go.microsoft.com/fwlink/?LinkId=245157">Learn more…</a>
+    </li>
+</ol>

samples/Visual Basic/Module1.vb

@@ -0,0 +1,8 @@
+Module Module1
+
+  Sub Main()
+    Console.Out.WriteLine("Hello, I am a little sample application to test GitHub's Linguist module.")
+    Console.Out.WriteLine("I also include a Razor MVC file just to prove it handles cshtml files now.")
+  End Sub
+
+End Module

samples/XML/pt_BR.xml

@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!DOCTYPE TS>
+<TS version="2.0" language="pt_BR">
+<context>
+    <name>MainWindow</name>
+    <message>
+        <location filename="../forms/mainwindow.ui" line="22"/>
+        <source>United Kingdom</source>
+        <translation>Reino Unido</translation>
+    </message>
+    <message>
+        <location filename="../forms/mainwindow.ui" line="38"/>
+        <source>God save the Queen</source>
+        <translation>Deus salve a Rainha</translation>
+    </message>
+    <message>
+        <location filename="../mainwindow.cpp" line="46"/>
+        <source>England</source>
+        <translation>Inglaterra</translation>
+    </message>
+    <message>
+        <location filename="../mainwindow.cpp" line="47"/>
+        <source>Wales</source>
+        <translation>Gales</translation>
+    </message>
+    <message>
+        <location filename="../mainwindow.cpp" line="48"/>
+        <source>Scotland</source>
+        <translation>Escócia</translation>
+    </message>
+    <message>
+        <location filename="../mainwindow.cpp" line="49"/>
+        <source>Northern Ireland</source>
+        <translation>Irlanda Norte</translation>
+    </message>
+    <message>
+        <location filename="../mainwindow.cpp" line="51"/>
+        <source>Portuguese</source>
+        <translation>Português</translation>
+    </message>
+    <message>
+        <location filename="../mainwindow.cpp" line="52"/>
+        <source>English</source>
+        <translation>Inglês</translation>
+    </message>
+</context>
+</TS>

test/test_blob.rb

@@ -185,6 +185,9 @@ class TestBlob < Test::Unit::TestCase
     # PEG.js-generated parsers
     assert blob("JavaScript/parser.js").generated?
 
+    # Generated PostScript
+    assert !blob("PostScript/sierpinski.ps").generated?
+
     # These examples are too basic to tell
     assert !blob("JavaScript/empty.js").generated?
     assert !blob("JavaScript/hello.js").generated?
@@ -221,6 +224,11 @@ class TestBlob < Test::Unit::TestCase
     # Node dependencies
     assert blob("node_modules/coffee-script/lib/coffee-script.js").vendored?
 
+    # Bower Components
+    assert blob("bower_components/custom/custom.js").vendored?
+    assert blob("app/bower_components/custom/custom.js").vendored?
+    assert blob("vendor/assets/bower_components/custom/custom.js").vendored?
+
     # Rails vendor/
     assert blob("vendor/plugins/will_paginate/lib/will_paginate.rb").vendored?
 
@@ -270,7 +278,6 @@ class TestBlob < Test::Unit::TestCase
     assert blob("ui/minified/jquery.effects.blind.min.js").vendored?
     assert blob("ui/minified/jquery.ui.accordion.min.js").vendored?
 
-
     # MooTools
     assert blob("public/javascripts/mootools-core-1.3.2-full-compat.js").vendored?
     assert blob("public/javascripts/mootools-core-1.3.2-full-compat-yc.js").vendored?
@@ -292,6 +299,10 @@ class TestBlob < Test::Unit::TestCase
     assert blob("public/javascripts/tiny_mce_popup.js").vendored?
     assert blob("public/javascripts/tiny_mce_src.js").vendored?
 
+    # AngularJS
+    assert blob("public/javascripts/angular.js").vendored?
+    assert blob("public/javascripts/angular.min.js").vendored?
+
     # Fabric
     assert blob("fabfile.py").vendored?
 
@@ -323,7 +334,7 @@ class TestBlob < Test::Unit::TestCase
     # Test fixtures
     assert blob("test/fixtures/random.rkt").vendored?
     assert blob("Test/fixtures/random.rkt").vendored?
-    
+
     # Cordova/PhoneGap
     assert blob("cordova.js").vendored?
     assert blob("cordova.min.js").vendored?

test/test_heuristics.rb

@@ -0,0 +1,65 @@
+require 'linguist/heuristics'
+require 'linguist/language'
+require 'linguist/samples'
+
+require 'test/unit'
+
+class TestHeuristcs < Test::Unit::TestCase
+  include Linguist
+
+  def samples_path
+    File.expand_path("../../samples", __FILE__)
+  end
+
+  def fixture(name)
+    File.read(File.join(samples_path, name))
+  end
+
+  # Only calling out '.h' filenames as these are the ones causing issues
+  def all_h_fixtures(language_name)
+    Dir.glob("#{samples_path}/#{language_name}/*.h")
+  end
+
+  def test_obj_c_by_heuristics
+    languages = ["C++", "Objective-C"]
+    all_h_fixtures("Objective-C").each do |fixture|
+      results = Heuristics.disambiguate_c(fixture("Objective-C/#{File.basename(fixture)}"), languages)
+      assert_equal Language["Objective-C"], results.first
+    end
+  end
+
+  def test_cpp_by_heuristics
+    languages = ["C++", "Objective-C"]
+    results = Heuristics.disambiguate_c(fixture("C++/render_adapter.cpp"), languages)
+    assert_equal Language["C++"], results.first
+  end
+
+  def test_detect_still_works_if_nothing_matches
+    match = Language.detect("Hello.m", fixture("Objective-C/hello.m"))
+    assert_equal Language["Objective-C"], match
+  end
+  
+  def test_pl_prolog_by_heuristics
+    languages = ["Perl", "Prolog"]
+    results = Heuristics.disambiguate_pl(fixture("Prolog/turing.pl"), languages)
+    assert_equal Language["Prolog"], results.first
+  end
+  
+  def test_pl_perl_by_heuristics
+    languages = ["Perl", "Prolog"]
+    results = Heuristics.disambiguate_pl(fixture("Perl/perl-test.t"), languages)
+    assert_equal Language["Perl"], results.first
+  end
+
+  def test_ts_typescript_by_heuristics
+    languages = ["TypeScript", "XML"]
+    results = Heuristics.disambiguate_ts(fixture("TypeScript/classes.ts"), languages)
+    assert_equal Language["TypeScript"], results.first
+  end
+
+  def test_ts_xml_by_heuristics
+    languages = ["TypeScript", "XML"]
+    results = Heuristics.disambiguate_ts(fixture("XML/pt_BR.xml"), languages)
+    assert_equal Language["XML"], results.first
+  end
+end

test/test_language.rb

@@ -40,6 +40,7 @@ class TestLanguage < Test::Unit::TestCase
     assert_equal Lexer['REBOL'], Language['Rebol'].lexer
     assert_equal Lexer['RHTML'], Language['HTML+ERB'].lexer
     assert_equal Lexer['RHTML'], Language['RHTML'].lexer
+    assert_equal Lexer['Ruby'], Language['Crystal'].lexer
     assert_equal Lexer['Ruby'], Language['Mirah'].lexer
     assert_equal Lexer['Ruby'], Language['Ruby'].lexer
     assert_equal Lexer['S'], Language['R'].lexer
@@ -103,6 +104,7 @@ class TestLanguage < Test::Unit::TestCase
     assert_equal Language['Raw token data'], Language.find_by_alias('raw')
     assert_equal Language['Ruby'], Language.find_by_alias('rb')
     assert_equal Language['Ruby'], Language.find_by_alias('ruby')
+    assert_equal Language['R'], Language.find_by_alias('r')
     assert_equal Language['Scheme'], Language.find_by_alias('scheme')
     assert_equal Language['Shell'], Language.find_by_alias('bash')
     assert_equal Language['Shell'], Language.find_by_alias('sh')
@@ -191,12 +193,18 @@ class TestLanguage < Test::Unit::TestCase
 
   def test_markup
     assert_equal :markup, Language['HTML'].type
+    assert_equal :markup, Language['SCSS'].type
   end
 
   def test_data
     assert_equal :data, Language['YAML'].type
   end
 
+  def test_prose
+    assert_equal :prose, Language['Markdown'].type
+    assert_equal :prose, Language['Org'].type
+  end
+
   def test_other
     assert_nil Language['Brainfuck'].type
     assert_nil Language['Makefile'].type
@@ -369,7 +377,7 @@ class TestLanguage < Test::Unit::TestCase
   end
 
   def test_by_type
-    assert_equal 9, Language.by_type(:prose).length
+    assert !Language.by_type(:prose).nil?
   end
 
   def test_colorize

test/test_repository.rb

@@ -25,6 +25,12 @@ class TestRepository < Test::Unit::TestCase
     assert linguist_repo.size > 30_000
   end
 
+  def test_linguist_breakdown
+    assert linguist_repo.breakdown_by_file.has_key?("Ruby")
+    assert linguist_repo.breakdown_by_file["Ruby"].include?("bin/linguist")
+    assert linguist_repo.breakdown_by_file["Ruby"].include?("lib/linguist/language.rb")
+  end
+
   def test_binary_override
     assert_equal repo(File.expand_path("../../samples/Nimrod", __FILE__)).language, Language["Nimrod"]
   end