620 lines
15 KiB
HTML
620 lines
15 KiB
HTML
|
<!DOCTYPE html>
|
|||
|
|
<head>
|
|||
|
|
<title>Highlight</title>
|
|||
|
|
|
|||
|
|
<link rel="stylesheet" href="sample.css">
|
|||
|
|
|
|||
|
|
<script type="text/javascript" src="highlight.js"></script>
|
|||
|
|
<script type="text/javascript">
|
|||
|
|
initHighlightingOnLoad('1c', 'axapta', 'cpp', 'delphi', 'xml', 'html', 'css', 'django', 'java', 'javascript', 'perl', 'php', 'python', 'rib', 'rsl', 'ruby', 'smalltalk', 'sql', 'vbscript');
|
|||
|
|
</script>
|
|||
|
|
|
|||
|
|
<body>
|
|||
|
|
|
|||
|
|
<p>Some Python code:
|
|||
|
|
|
|||
|
|
<pre><code>@requires_authorization
|
|||
|
|
def somefunc(param1, param2):
|
|||
|
|
'''A docstring'''
|
|||
|
|
if param1 > param2: # interesting
|
|||
|
|
print 'Gre\'ater'
|
|||
|
|
print ''
|
|||
|
|
return param2 - param1 + 1
|
|||
|
|
|
|||
|
|
class SomeClass:<br> pass
|
|||
|
|
</code></pre>
|
|||
|
|
|
|||
|
|
<p>Short sample of Ruby:
|
|||
|
|
|
|||
|
|
<pre><code># 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
|
|||
|
|
</code></pre>
|
|||
|
|
|
|||
|
|
<p>A bit of Perl:
|
|||
|
|
|
|||
|
|
<pre><code># 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;
|
|||
|
|
}
|
|||
|
|
</code></pre>
|
|||
|
|
|
|||
|
|
<p>A chunk of PHP:
|
|||
|
|
|
|||
|
|
<pre><code>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]);
|
|||
|
|
$schemeSpecific = 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');
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
</code></pre>
|
|||
|
|
|
|||
|
|
<p>A custom XML document:
|
|||
|
|
|
|||
|
|
<pre><code><?xml version="1.0"?>
|
|||
|
|
<response value="ok">
|
|||
|
|
<text>Ok</text>
|
|||
|
|
<comment/>
|
|||
|
|
<description><![CDATA[
|
|||
|
|
CDATA is <not> magical.
|
|||
|
|
]]></description>
|
|||
|
|
</response>
|
|||
|
|
</code></pre>
|
|||
|
|
|
|||
|
|
<p>Some HTML code:
|
|||
|
|
|
|||
|
|
<pre><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>
|
|||
|
|
</code></pre>
|
|||
|
|
|
|||
|
|
<p>HTML with Django templates:
|
|||
|
|
|
|||
|
|
<pre><code>{% 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 %}
|
|||
|
|
</code></pre>
|
|||
|
|
|
|||
|
|
<p>Some CSS code:
|
|||
|
|
|
|||
|
|
<pre><code>body,
|
|||
|
|
html {
|
|||
|
|
font: Tahoma, Arial, san-serif;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
#content {
|
|||
|
|
width: 100%; /* комментарий */
|
|||
|
|
height: 100%
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
p[lang=ru] {
|
|||
|
|
color: red;
|
|||
|
|
}
|
|||
|
|
</pre></code>
|
|||
|
|
|
|||
|
|
<p>Javascript here too (right from the source, mind you):
|
|||
|
|
|
|||
|
|
<pre><code>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</code></pre>
|
|||
|
|
|
|||
|
|
<p>VBScript
|
|||
|
|
|
|||
|
|
<pre><code>' 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</code></pre>
|
|||
|
|
|
|||
|
|
<P>Delphi code
|
|||
|
|
|
|||
|
|
<pre><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}
|
|||
|
|
</code></pre>
|
|||
|
|
|
|||
|
|
<p>From Java world:
|
|||
|
|
|
|||
|
|
<pre><code>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;
|
|||
|
|
}
|
|||
|
|
</code></pre>
|
|||
|
|
|
|||
|
|
<p>C++:
|
|||
|
|
|
|||
|
|
<pre><code>#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
|
|||
|
|
}
|
|||
|
|
</code></pre>
|
|||
|
|
|
|||
|
|
<p>Bet you didn't expect to see a highlighted RenderMan (both RenderMan
|
|||
|
|
Shading Language and RenderMan Interface Bytestream):</p>
|
|||
|
|
|
|||
|
|
<pre><code>#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;
|
|||
|
|
}
|
|||
|
|
</code></pre>
|
|||
|
|
|
|||
|
|
<pre><code>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
|
|||
|
|
</code></pre>
|
|||
|
|
|
|||
|
|
<p>SQL:
|
|||
|
|
|
|||
|
|
<pre><code>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;
|
|||
|
|
</code></pre>
|
|||
|
|
|
|||
|
|
<p>Good old classic SmallTalk:
|
|||
|
|
|
|||
|
|
<pre><code>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'
|
|||
|
|
</code></pre>
|
|||
|
|
|
|||
|
|
<p>Axapta:
|
|||
|
|
|
|||
|
|
<pre><code>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;
|
|||
|
|
}
|
|||
|
|
</code></pre>
|
|||
|
|
|
|||
|
|
<p>And this is a russian enterpise system "1С":
|
|||
|
|
|
|||
|
|
<pre><code class="1c">
|
|||
|
|
#Если Клиент Тогда
|
|||
|
|
Перем СимвольныйКодКаталога = "ля-ля-ля"; //комментарий
|
|||
|
|
Функция Сообщить(Знач ТекстСообщения, ТекстСообщения2) Экспорт //комментарий к функции
|
|||
|
|
x=ТекстСообщения+ТекстСообщения2+"
|
|||
|
|
|строка1
|
|||
|
|
|строка2
|
|||
|
|
|строка3";
|
|||
|
|
КонецФункции
|
|||
|
|
#КонецЕсли
|
|||
|
|
|
|||
|
|
////////////////////////////////////////////////////////////////////////////////
|
|||
|
|
// ОБРАБОТЧИКИ СОБЫТИЙ
|
|||
|
|
//
|
|||
|
|
|
|||
|
|
// Процедура ПриНачалеРаботыСистемы
|
|||
|
|
//
|
|||
|
|
Процедура ПриНачалеРаботыСистемы()
|
|||
|
|
|
|||
|
|
Обработки.Помощник.ПолучитьФорму("Форма").Открыть();
|
|||
|
|
|
|||
|
|
КонецПроцедуры
|
|||
|
|
</code></pre>
|
|||
|
|
|
|||
|
|
<hr>
|
|||
|
|
|
|||
|
|
<p>Explicit Python highlight:
|
|||
|
|
|
|||
|
|
<pre><code class="python">for x in [1, 2, 3]:
|
|||
|
|
count(x)
|
|||
|
|
</code></pre>
|
|||
|
|
|
|||
|
|
<p>Disabled highlighting:
|
|||
|
|
|
|||
|
|
<pre><code class="no-highlight"><div id="contents">
|
|||
|
|
<p>Hello, World!
|
|||
|
|
</div>
|
|||
|
|
</code></pre>
|