Xpoint
   [напомнить пароль]

Тестирование подсветки синтаксиса

Просто код:

#!/usr/bin/perl

print "Hello, World!\n";

Простая программа на Perl:

#!/usr/bin/perl

use strict;
use Xpoint;

print "Hello, World!\n";

Код с неправильно указанным типом:

#!/usr/bin/perl

print "Hello, World!\n";

Более сложная программа на Perl:

sub Getopts {
    local($argumentative) = @_;
    local(@args,$_,$first,$rest);
    local($errs) = 0;
    local($[) = 0;

    @args = split( / */, $argumentative );
    while(@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/) {
      ($first,$rest) = ($1,$2);
      $pos = index($argumentative,$first);
      if($pos >= $[) {
         if($args[$pos+1] eq ':') {
            shift(@ARGV);
            if($rest eq '') {
               ++$errs unless(@ARGV);
               $rest = shift(@ARGV);
            }
            eval "
            push(\@opt_$first, \$rest);
            if(\$opt_$first eq '') {
               \$opt_$first = \$rest;
            }
            else {
               \$opt_$first .= ' ' . \$rest;
            }
            ";
         }
         else {
            eval "\$opt_$first = 1";
            if($rest eq '') {
               shift(@ARGV);
            }
            else {
               $ARGV[0] = "-$rest";
            }
         }
      }
      else {
         print STDERR "Unknown option: $first\n";
         ++$errs;
         if($rest ne '') {
            $ARGV[0] = "-$rest";
         }
         else {
            shift(@ARGV);
         }
      }
   }
    $errs == 0;
}

1;

Код на HTML:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns='http://www.w3.org/1999/xhtml' xml:lang='en'>
<head>
    <title>100% Height</title>
    <style type='text/css'>
        *
        {
            margin: 0;
            padding: 0;
        }

        html, body, #cnt
        {
            height: 100%;
        }

        #cnt
        {
            border: 1px solid red;
        }
    </style>
</head>
<body>
    <div id='cnt'>100% height</div>
</body>
</html>

Код на CSS:

/* Спрячем весь текст */
#mainmenu a span {
    display: none;
}
/* Сделаем ссылки блоковыми, установим размеры */
#mainmenu a {
    width: 100px;
    height: 20px;
    display: block;
}
/* Зададим фоновую картинку по умолчанию */
#mainmenu .about a {
    background: url(images/about.gif) no-repeat;
}
/* Зададим картинку, которая показывается при наведении мыши */
#mainmenu .about a:hover {
    background: url(images/about_over.gif) no-repeat;
}
/* ... и т.д. для остальных картинок */

Код на JavaScript:

// Функция для визуализации результатов, переводит элемент дерева в строку
function toString()
{
  var spaces = '';
  for (var i = 0; i < this.level; i++)
    spaces += '\xA0\xA0\xA0';
  return spaces + 'level: ' + this.level + '\n'
      + spaces + 'data: ' + this.data + '\n'
      + spaces + 'children:\n'
      + this.children.join(spaces + '\xA0\xA0\xA0---\n')
}

// Исходные данные
var array = [
[1, ['данные_уровень']],
[1, ['данные_уровень1']],
[2, ['данные_уровень2']],
[3, ['данные_уровень3']],
[4, ['данные_уровень4']],
[3, ['данные_уровень3']],
[2, ['данные_уровень2']],
[1, ['данные_уровень1']]
]

// Перевод массива в дерево
var tree = {parent: null, level: 0, children: [], toString: toString};
var curNode = tree;
for (var i = 0; i < array.length; i++)
{
  while (array[i][0] <= curNode.level)
    curNode = curNode.parent;

  var newNode = {parent: curNode, level: curNode.level + 1, children: [], data: array[i][1], toString: toString};
  curNode.children.push(newNode);
  curNode = newNode;
}

// Вывод результата
alert(tree);

Код на PHP:

<?php

class SampleClass {  
  function &instance()
  {
    static $instance;
    if (!is_object($instance))
      /*
        ВНИМАНИЕ! Использование оператора =& в данном случае
        будет ошибкой, так как статические переменные реализованы в PHP 4
        при помощи ссылок. Используем простой оператор присвоения:
      */
      $instance = new SampleClass();
    return $instance;
  }
}

?>

Apache httpd.conf:

#
# DocumentRoot: The directory out of which you will serve your
# documents. By default, all requests are taken from this directory, but
# symbolic links and aliases may be used to point to other locations.
#
DocumentRoot "C:/Apache/htdocs"

<Directory />
    Options FollowSymLinks
    AllowOverride None
</Directory>

<Directory "C:/Apache/htdocs">
    Options Indexes FollowSymLinks MultiViews
    AllowOverride None
    Order allow,deny
    Allow from all
</Directory>

AccessFileName .htaccess
<Files ~ "^\.ht">
    Order allow,deny
    Deny from all
    Satisfy All
</Files>

#CacheNegotiatedDocs

UseCanonicalName On

<IfModule mod_mime.c>
    TypesConfig conf/mime.types
</IfModule>

HostnameLookups Off

LogLevel warn

LogFormat "%h %l %u %t \"%r\" %>s %b \"%{Referer}i\" \"%{User-Agent}i\"" combined
LogFormat "%h %l %u %t \"%r\" %>s %b" common
LogFormat "%{Referer}i -> %U" referer
LogFormat "%{User-agent}i" agent

MySQL:

set @f:=0;
set @a:=3;
set @b:=1;
select *, if(a!=@a and b=@b, @f:=1, 0) as c from s where a >= @a and (b >= @b or (a=@a and b=@b)) having (@f = 0 and c = 0);

PL/SQL:

function get_clobFromUrl(p_url varchar2, p_charset varchar2 default 'UTF8') return clob is
  req   utl_http.req; 
  resp  utl_http.resp;
  val varchar2(32547);
  a clob;
BEGIN
  dbms_lob.createtemporary(a,true);
  dbms_lob.open(a,dbms_lob.lob_readwrite);
  req := utl_http.begin_request(p_url);
  utl_http.set_body_charset(req, p_charset);
  resp := utl_http.get_response(req);
  LOOP
    a := a||val;
    utl_http.read_text(resp, val, 5000);
  END LOOP;
  utl_http.end_response(resp);
  return a;
EXCEPTION
  WHEN utl_http.end_of_body THEN
    utl_http.end_response(resp);
    return a;
  WHEN others then
    utl_http.end_response(resp);
    raise;
END;

SQL:

select a.*,
count(b.fld_comment_announce) comments,
count(c.fld_article_announce) articles,
count(d.fld_folder_announce) folders
from tbl_announce a
left join tbl_comment b on a.fld_announce_id=b.fld_comment_announce
left join tbl_article c on a.fld_announce_id=c.fld_article_announce
left join tbl_folder d on a.fld_announce_id=d.fld_folder_announce
where
b.fld_comment_announce is not null or
c.fld_article_announce is not null or
d.fld_folder_announce is not null
group by a.fld_announce_id
order by a.fld_announce_dat desc
limit 10

Java

import java.io.*;

public class Test
{
  public static int main(String[] args)
  {
    MyOutputStream encodedImage = new MyOutputStream();

    JPEGImageEncoder encoder = JPEGCodec.createJPEGEncoder(encodedImage);

    JPEGEncodeParam param = encoder.getDefaultJPEGEncodeParam(bufferedImage);

    param.setQuality(0.75f, true);
    encoder.setJPEGEncodeParam(param);
    setContentType("image/jpeg");

    try {
      encoder.encode(bufferedImage);
    } catch (IOException e) {
      // "IO Error while Jpeg encoding process"
    }

    value = encodedImage.data;
  }
}

XSLT со сбойной подсветкой (Eugene Efremov[досье] / 2005-08-13 23:09:40):

<xsl:variable name="nodes">
  <foo name="bar"/>
  <bar name="foo"/>
</xsl:variable>

Обратите внимание на первую букву в слове nodes.

И еще один глюк в XSLT (Eugene Efremov[досье] / 2006-09-16 16:27:41):

<xsl:value-of select='foo/bar/baz'/>

Символы / в XPath выделаются, мягко говоря не совсем корректно. Что интересно — я такого ни разу не наблюдал даже в старых версиях колорера. Только здесь вылезло...

Powered by POEM™ Engine Copyright © 2002-2005