Some Python code:
@requires_authorization
def somefunc(param1, param2):
'''A docstring'''
if param1 > param2: # interesting
print 'Gre\'ater'
print ''
return param2 - param1 + 1
class SomeClass:
pass
Short sample of Ruby:
# Ruby support for highlight.js
class CategoriesController < ApplicationController
layout "core"
before_filter :login_required
before_filter :xhr_required, :only => [:create, :update]
before_filter :admin_privileges_required, :except => [:show]
=begin
This method creates a category. Very difficult to understand, huh?
=end
def create
@category = Category.create(params[:category])
flash[:notice] = "Category #{@category + "..."} was successfully created"
end
end
A bit of Perl:
# loads object
sub load
{
my $c = shift;
my $id = shift;
my $flds = $c->db_load($id,@_) || do { Carp::carp "Can`t load (class: $c, id: $id): '$!'"; return undef };
my $o = $c->_perl_new();
$id12 = $id;
$o->{'ID'} = $id12 + 123;
$o->{'PAPA'} = $flds->{'PAPA'};
#$o->{'SHCUT'} = $flds->{'SHCUT'};
my $p = $o->props;
#if($o->{'SHCUT'})
#{
# $flds = $o->db_load($o->{'SHCUT'},@_);
#}
my $vt;
for my $key (keys %$p)
{
if(${$vt.'::property'})
{
$o->{$key . '_real'} = $flds->{$key};
tie $o->{$key}, 'CMSBuilder::Property', $o, $key;
}
else
{
$o->{$key} = $flds->{$key};
}
}
$o->save if delete $o->{'_save_after_load'};
return $o;
}
A chunk of PHP:
require_once 'Zend.php';
require_once 'Zend/Uri/Exception.php';
require_once 'Zend/Uri/Http.php';
/**
* Zend_Uri_Mailto
*/
require_once 'Zend/Uri/Mailto.php';
/**
* @category Zend
* @package Zend_Uri
* @copyright Copyright (c) 2006 Zend Technologies USA Inc. (http://www.zend.com)
* @license http://framework.zend.com/license/new-bsd New BSD License
*/
abstract class Zend_Uri
{
/**
* Scheme of this URI (http, ftp, etc.)
* @var string
*/
protected $_scheme = "";
/**
* Return a string representation of this URI.
*
* @see getUri()
* @return string
*/
public function __toString()
{
return $this->getUri();
}
static public function check($uri)
{
try {
$uri = self::factory($uri);
} catch (Exception $e) {
return false;
}
return $uri->valid();
}
/**
* Create a new Zend_Uri object for a URI. If building a new URI, then $uri should contain
* only the scheme (http, ftp, etc). Otherwise, supply $uri with the complete URI.
*
* @param string $uri
* @throws Zend_Uri_Exception
* @return Zend_Uri
*/
static public function factory($uri = 'http')
{
/**
* Separate the scheme from the scheme-specific parts
* @link http://www.faqs.org/rfcs/rfc2396.html
*/
$uri = explode(':', $uri, 2);
$scheme = strtolower($uri[0]);
$schemeSpecify = isset($uri[1]) ? $uri[1] : '';
if (!strlen($scheme)) {
throw new Zend_Uri_Exception('An empty string was supplied for the scheme');
}
// Security check: $scheme is used to load a class file, so only alphanumerics are allowed.
if (!ctype_alnum($scheme)) {
throw new Zend_Uri_Exception('Illegal scheme supplied, only alphanumeric characters are permitted');
}
}
A custom XML document:
<?xml version="1.0"?>
<response value="ok">
<text>Ok</text>
<comment/>
<description><![CDATA[
CDATA is <not> magical.
]]></description>
</response>
Some HTML code:
<head>
<title>Title</title>
<body>
<p class="something">Something</p>
<p class=something>Something</p>
<!-- comment -->
<p class>Something</p>
<p class="something" title="p">Something</p>
</body>
HTML with Django templates:
{% if articles|length %}
{% for article in articles %}
{# Striped table #}
<tr class="{% cycle odd,even %}">
<td>{{ article|default:"Hi... "|escape }}</td>
<td>{{ article.date|date:"d.m.Y" }}</td>
</tr>
{% endfor %}
{% endif %}
{% comment %}
Comments may be long and
multiline.
{% endcomment %}
Some CSS code:
body,
html {
font: Tahoma, Arial, san-serif;
}
#content {
width: 100%; /* комментарий */
height: 100%
}
p[lang=ru] {
color: red;
}
Javascript here too (right from the source, mind you):
function initHighlight(block) {
if (block.className.search(/\bno\-highlight\b/) != -1)
return false;
try {
blockText(block);
} catch (e) {
if (e == 'Complex markup')
return;
}//try
var classes = block.className.split(/\s+/);
for (var i = 0; i < classes.length; i++) {
if (LANGUAGES[classes[i]]) {
highlightLanguage(block, classes[i]);
return;
}//if
}//for
highlightAuto(block);
}//initHighlight
VBScript
' creating configuration storage and initializing with default values
Set cfg = CreateObject("Scripting.Dictionary")
cfg.add "dest", ""
cfg.add "dest_gz", ""
cfg.add "gzip_exe", ""
cfg.add "perl_exe", ""
cfg.add "uncompressed_postfix", ""
' reading ini file
for i = 0 to ubound(ini_strings)
s = trim(ini_strings(i))
' skipping empty strings and comments
if mid(s, 1, 1) <> "#" and len(s) > 0 then
' obtaining key and value
parts = split(s, "=", -1, 1)
if ubound(parts)+1 = 2 then
parts(0) = trim(parts(0))
parts(1) = trim(parts(1))
' reading configuration and filenames
select case lcase(parts(0))
case "dest" cfg.item("dest") = parts(1)
case "dest_gz" cfg.item("dest_gz") = parts(1)
case "gzip_exe" cfg.item("gzip_exe") = parts(1)
case "perl_exe" cfg.item("perl_exe") = parts(1)
case "uncompressed_postfix" cfg.item("uncompressed_postfix") = parts(1)
case "f"
options = split(parts(1), "|", -1, 1)
if ubound(options)+1 = 2 then
' 0: filename, 1: options
ff.add trim(options(0)), trim(options(1))
end if
end select
end if
end if
next
Delphi code
TList=Class(TObject)
Private
Some: String;
Public
Procedure Inside;
End;{TList}
Procedure CopyFile(InFileName,var OutFileName:String);
Const
BufSize=4096; (* Huh? *)
Var
InFile,OutFile:TStream;
Buffer:Array[1..BufSize] Of Byte;
ReadBufSize:Integer;
Begin
InFile:=Nil;
OutFile:=Nil;
Try
InFile:=TFileStream.Create(InFileName,fmOpenRead);
OutFile:=TFileStream.Create(OutFileName,fmCreate);
Repeat
ReadBufSize:=InFile.Read(Buffer,BufSize);
OutFile.Write(Buffer,ReadBufSize);
Until ReadBufSize<>BufSize;
Log('File '''+InFileName+''' copied'#13#10);
Finally
InFile.Free;
OutFile.Free;
End;{Try}
End;{CopyFile}
From Java world:
package l2f.gameserver.model;
import java.util.ArrayList;
/**
* Mother class of all character objects of the world (PC, NPC...)<BR><BR>
*
*/
public abstract class L2Character extends L2Object
{
protected static final Logger _log = Logger.getLogger(L2Character.class.getName());
public static final Short ABNORMAL_EFFECT_BLEEDING = 0x0001; // not sure
public static final Short ABNORMAL_EFFECT_POISON = 0x0002;
/**
* Cancel the AI.<BR><BR>
*/
public void detachAI()
{
_ai = null;
//jbf = null;
if (1 > 5)
{
return;
}
}
public void moveTo(int x, int y, int z)
{
moveTo(x, y, z, 0);
}
/** Task of AI notification */
@SuppressWarnings( { "nls", "unqualified-field-access", "boxing" })
public class NotifyAITask implements Runnable
{
private final CtrlEvent _evt;
public NotifyAITask(CtrlEvent evt)
{
this._evt = evt;
}
public void run()
{
try
{
getAI().notifyEvent(_evt, null, null);
}
catch (Throwable t)
{
_log.warning("Exception " + t);
t.printStackTrace();
}
}
}
private static final int HP_REGEN_FLAG = 1;
private static final int MP_REGEN_FLAG = 2;
private static final int CP_REGEN_FLAG = 4;
/** The table containing the List of all stacked effect in progress for each Stack group Identifier */
private ConcurrentHashMap<String, Short> _stackedEffects = null;
}
C++:
#include <iostream>
int main(int argc, char *argv[]) {
/* An annoying "Hello World" example */
for (unsigned i = 0; i < 0xFFFF; i++)
cout << "Hello, World!" << endl;
char c = '\n'; // just a test
char *s = "\\\\"; // another test
}
Bet you didn't expect to see a highlighted RenderMan (both RenderMan Shading Language and RenderMan Interface Bytestream):
#define TEST_DEFINE 3.14
/* plastic surface shader
*
* Pixie is:
* (c) Copyright 1999-2003 Okan Arikan. All rights reserved.
*/
surface plastic (float Ka = 1, Kd = 0.5, Ks = 0.5, roughness = 0.1;
color specularcolor = 1;) {
normal Nf = faceforward (normalize(N),I);
Ci = Cs * (Ka*ambient() + Kd*diffuse(Nf)) + specularcolor * Ks*specular(Nf,-normalize(I),roughness);
Oi = Os;
Ci *= Oi;
}
FrameBegin 0
Display "Scene" "framebuffer" "rgb"
Option "searchpath" "shader" "+&:/home/kew"
Option "trace" "int maxdepth" [4]
Attribute "visibility" "trace" [1]
Attribute "irradiance" "maxerror" [0.1]
Attribute "visibility" "transmission" "opaque"
Format 640 480 1.0
ShadingRate 2
PixelFilter "catmull-rom" 1 1
PixelSamples 4 4
Projection "perspective" "fov" 49.5502811377
Scale 1 1 -1
ConcatTransform [-0.105581186712 -0.336664259434 0.935686826706 0.0
0.994097530842 -0.0121211335063 0.107810914516 0.0
-0.0249544940889 0.941546678543 0.335956931114 0.0
0.103667020798 -1.30126297474 -6.22769546509 1.0]
WorldBegin
ReadArchive "/home/qewerty/blends/my/instances/Lamp.002_Light/instance.rib"
Surface "plastic"
ReadArchive "/home/qewerty/blends/my/instances/Cube.004_Mesh/instance.rib"
# ReadArchive "/home/qewerty/blends/my/instances/Sphere.010_Mesh/instance.rib"
# ReadArchive "/home/qewerty/blends/my/instances/Sphere.009_Mesh/instance.rib"
ReadArchive "/home/qewerty/blends/my/instances/Sphere.006_Mesh/instance.rib"
WorldEnd
FrameEnd
SQL:
BEGIN;
CREATE TABLE "cicero_topic" (
"id" serial NOT NULL PRIMARY KEY,
"forum_id" integer NOT NULL,
"subject" varchar(255) NOT NULL,
"created" timestamp with time zone NOT NULL
);
ALTER TABLE "cicero_topic"
ADD CONSTRAINT forum_id_refs_id_4be56999
FOREIGN KEY ("forum_id")
REFERENCES "cicero_forum" ("id")
DEFERRABLE INITIALLY DEFERRED;
-- Initials
insert into "cicero_forum" ("slug", "name", "group", "ordering") values ('test', 'Тест''овый форум', 'Тест', 0);
-- Indices
CREATE INDEX "cicero_topic_forum_id" ON "cicero_topic" ("forum_id");
-- Test
select count(*) from cicero_forum;
COMMIT;
Good old classic SmallTalk:
Object>>method: num
"comment 123"
| var1 var2 |
(1 to: num) do: [:i | |var| ^i].
Klass with: var1.
Klass new.
arr := #('123' 123.345 #hello Transcript var $@).
arr := #().
var2 = arr at: 3.
^ self abc
heapExample
"HeapTest new heapExample"
"Create a sorted collection of numbers, remove the elements
sequentially and add new objects randomly.
Note: This is the kind of benchmark a heap is designed for."
| n rnd array time sorted |
n := 5000.
"# of elements to sort"
rnd := Random new.
array := (1 to: n)
collect: [:i | rnd next].
"First, the heap version"
time := Time
millisecondsToRun: [sorted := Heap withAll: array.
1
to: n
do: [:i |
sorted removeFirst.
sorted add: rnd next]].
Transcript cr; show: 'Time for Heap: ' , time printString , ' msecs'.
"The quicksort version"
time := Time
millisecondsToRun: [sorted := SortedCollection withAll: array.
1
to: n
do: [:i |
sorted removeFirst.
sorted add: rnd next]].
Transcript cr; show: 'Time for SortedCollection: ' , time printString , ' msecs'
Axapta:
class ExchRateLoadBatch extends RunBaseBatch
{
ExchRateLoad rbc;
container currencies;
boolean actual;
boolean overwrite;
date beg;
date end;
#define.CurrentVersion(5)
#localmacro.CurrentList
currencies,
actual,
beg,
end
#endmacro
}
public boolean unpack(container packedClass)
{
container base;
boolean ret;
Integer version = runbase::getVersion(packedClass);
switch (version)
{
case #CurrentVersion:
[version, #CurrentList] = packedClass;
return true;
default:
return false;
}
return ret;
}
And this is a russian enterpise system "1С":
#Если Клиент Тогда
Перем СимвольныйКодКаталога = "ля-ля-ля"; //комментарий
Функция Сообщить(Знач ТекстСообщения, ТекстСообщения2) Экспорт //комментарий к функции
x=ТекстСообщения+ТекстСообщения2+"
|строка1
|строка2
|строка3";
КонецФункции
#КонецЕсли
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ
//
// Процедура ПриНачалеРаботыСистемы
//
Процедура ПриНачалеРаботыСистемы()
Обработки.Помощник.ПолучитьФорму("Форма").Открыть();
КонецПроцедуры
Explicit Python highlight:
for x in [1, 2, 3]:
count(x)
Disabled highlighting:
<div id="contents">
<p>Hello, World!
</div>