На форуме запущена универсальная подсветка синтаксиса
САБЖ. В экспериментальном режиме.
Using:
[ highlight=language ]
[ /highlight ]
где language:
actionscript, ada, apache, asm, asp, bash, c, c_mac, caddcl, cadlisp, cpp, csharp, css, d, delphi, diff, div, eiffel, gml, html4strict, java, javascript, lisp, lua, matlab, mpasm, nsis, objc, oobas, oracle8, pascal, perl, php, php-brief, python, qbasic, smarty, sql, vb, vbnet, vhdl, visualfoxpro, xml
Using:
[ highlight=language ]
[ /highlight ]
где language:
actionscript, ada, apache, asm, asp, bash, c, c_mac, caddcl, cadlisp, cpp, csharp, css, d, delphi, diff, div, eiffel, gml, html4strict, java, javascript, lisp, lua, matlab, mpasm, nsis, objc, oobas, oracle8, pascal, perl, php, php-brief, python, qbasic, smarty, sql, vb, vbnet, vhdl, visualfoxpro, xml
отлично. непомешало бы ещё добавить соответствующие кнопки (вернее ComboBox и кнопку) в режиме расширенного ответа
[highlight=delphi]
begin
if a=0 then b:=3;
end;
[/highlight]
Это тест.
+10
begin
if a=0 then b:=3;
end;
[/highlight]
Это тест.
+10
[highlight=perl]
my @tmp = $ph_fields =~ /(380\d{9})|(80\d{9})|(0\d{9})/g;
$ph_fields =~ s/(380\d{9})|(80\d{9})|(0\d{9})//g;
foreach my $num (@tmp) {
push @phones, $num if $num;
}
[/highlight]
my @tmp = $ph_fields =~ /(380\d{9})|(80\d{9})|(0\d{9})/g;
$ph_fields =~ s/(380\d{9})|(80\d{9})|(0\d{9})//g;
foreach my $num (@tmp) {
push @phones, $num if $num;
}
[/highlight]
C++
[highlight=cpp]
template <class Type_table> table <Type_table> :: ~table ()
{
width = 0;
height = 0;
for ( unsigned int i = 0; i < height; i++ )
{
delete [] matr;
}
delete [] matr;
}
[/highlight]
че-то скобки массива некорректно отображаются.
[highlight=cpp]
template <class Type_table> table <Type_table> :: ~table ()
{
width = 0;
height = 0;
for ( unsigned int i = 0; i < height; i++ )
{
delete [] matr;
}
delete [] matr;
}
[/highlight]
че-то скобки массива некорректно отображаются.
[highlight=php]
<html>
<body bgcolor=green >
<?
$path="scripts/";
$dir=opendir($path);
while($file=readdir($dir)){
if ($file!="."&&$file!=".."){
if (!is_dir($path.$file)){
print "file: <a href=$path$file >$file</a><br>";
}else{
print "dir: <a href=$path$file >$file</a><br>";
}
}
}
closedir($dir);
?>
<hr>
<?
if (getenv("HTTP_X_FORWARDED_FOR")){
$ip=getenv("HTTP_X_FORWARDED_FOR");
$prefix="Proxy!";
}else{
$ip=getenv("remote_addr");
$prefix="NO proxy...";
}
print "$prefix IP: $ip<br>\n";
?>
</body>
</html>
[/highlight]
тест php.....
------
ЗЫ: фантастычно я б сказал
<html>
<body bgcolor=green >
<?
$path="scripts/";
$dir=opendir($path);
while($file=readdir($dir)){
if ($file!="."&&$file!=".."){
if (!is_dir($path.$file)){
print "file: <a href=$path$file >$file</a><br>";
}else{
print "dir: <a href=$path$file >$file</a><br>";
}
}
}
closedir($dir);
?>
<hr>
<?
if (getenv("HTTP_X_FORWARDED_FOR")){
$ip=getenv("HTTP_X_FORWARDED_FOR");
$prefix="Proxy!";
}else{
$ip=getenv("remote_addr");
$prefix="NO proxy...";
}
print "$prefix IP: $ip<br>\n";
?>
</body>
</html>
[/highlight]
тест php.....
------
ЗЫ: фантастычно я б сказал
[highlight=javascript]
function hello_world(){
document.writeln('<h1>Hello world!</h1>');
}
[/highlight]
function hello_world(){
document.writeln('<h1>Hello world!</h1>');
}
[/highlight]
Классно, +1!
P.S. Еще бы конечно впридачу к highlight - подсветку скобок и автодополнение.. :) Как мечта.
P.S. Еще бы конечно впридачу к highlight - подсветку скобок и автодополнение.. :) Как мечта.
Цитата: Zorkus
Классно, +1!
P.S. Еще бы конечно впридачу к highlight - подсветку скобок и автодополнение.. :) Как мечта.
P.S. Еще бы конечно впридачу к highlight - подсветку скобок и автодополнение.. :) Как мечта.
ага, и мы забиваем на kwrite, emacs, msvc++ и т.д. и начинаем кодить онлайн на коденете! а еще прикрутить к каждому языку компилятор - и ваще будет мозговое собрание рунета!
Цитата: ~ArchimeD~
ага, и мы забиваем на kwrite, emacs, msvc++ и т.д. и начинаем кодить онлайн на коденете! а еще прикрутить к каждому языку компилятор - и ваще будет мозговое собрание рунета!
Ммм..ну для тонкого клиента (с упором на сервер) нормальный редактор не написать :) Но апплетом - можно. Только он будет очччень толстым...
[highlight=vb]
Private Sub Command1_Click()
Dim NewIMessage As New IMessage
NewIMessage.Show
NewIMessage.Label2.Caption = SenderName
NewIMessage.RecieversID = SenderID
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Resize()
On Error Resume Next
RichTextBox1.Width = Me.ScaleWidth
RichTextBox1.Height = Me.ScaleHeight - Picture1.Height - Picture2.Height
RichTextBox1.Width = Picture1.Width 'Width - подсвечивает, а Height, ScaleWidth, ScaleHeight-нет
End Sub
Private Sub RichTextBox1_Change()
RichTextBox1.TextRTF = Trim(RichTextBox1.TextRTF)
End Sub
[/highlight]
А где кнопочки соотвествующие в расширенном ответе???:confused:
Private Sub Command1_Click()
Dim NewIMessage As New IMessage
NewIMessage.Show
NewIMessage.Label2.Caption = SenderName
NewIMessage.RecieversID = SenderID
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Resize()
On Error Resume Next
RichTextBox1.Width = Me.ScaleWidth
RichTextBox1.Height = Me.ScaleHeight - Picture1.Height - Picture2.Height
RichTextBox1.Width = Picture1.Width 'Width - подсвечивает, а Height, ScaleWidth, ScaleHeight-нет
End Sub
Private Sub RichTextBox1_Change()
RichTextBox1.TextRTF = Trim(RichTextBox1.TextRTF)
End Sub
[/highlight]
А где кнопочки соотвествующие в расширенном ответе???:confused:
[highlight=csharp]
using System;
using System.Text;
using System.Data.Common;
namespace Data {
public delegate void BizObjectAlteringEvent(object sender, BizObjectAlteringEventArgs e);
public abstract class FactoryObject<T> : BizObject where T : SystemModule {
public IEnumerable<string> GenerateInts(int count) {
for(int number = 0; number < count; ++number)
yield return "next number is" + number.ToString();
}
}
}
[/highlight]
А не все ключевые слова подсвечиваются ;) И как-то странно подсвечиваются using'и
using System;
using System.Text;
using System.Data.Common;
namespace Data {
public delegate void BizObjectAlteringEvent(object sender, BizObjectAlteringEventArgs e);
public abstract class FactoryObject<T> : BizObject where T : SystemModule {
public IEnumerable<string> GenerateInts(int count) {
for(int number = 0; number < count; ++number)
yield return "next number is" + number.ToString();
}
}
}
[/highlight]
А не все ключевые слова подсвечиваются ;) И как-то странно подсвечиваются using'и
[highlight=pascal]
writeln('c:\text.txt'); [/highlight]
сразу видно изъян. радует, что в дельфи такого нет.
writeln('c:\text.txt'); [/highlight]
сразу видно изъян. радует, что в дельфи такого нет.
[highlight=SQL]
CREATE CLUSTERED INDEX IX_bg_transfer_define ON dbo.bg_transfer_define
(
id_transfer
) WITH FILLFACTOR = 80 ON [PRIMARY]
[/highlight]
открывающая прямоугольная скобка ([) заменяется на код
CREATE CLUSTERED INDEX IX_bg_transfer_define ON dbo.bg_transfer_define
(
id_transfer
) WITH FILLFACTOR = 80 ON [PRIMARY]
[/highlight]
открывающая прямоугольная скобка ([) заменяется на код
не отображается первая скобка "[" в коде cpp:
[highlight=cpp]for(int i=0; i<n; i++)
for(int j=0; j<m; j++)
a[j]=0;[/highlight]
[highlight=cpp]for(int i=0; i<n; i++)
for(int j=0; j<m; j++)
a[j]=0;[/highlight]
да, да. +1 :) верните нам скобку!
Цитата: squirL
да, да. +1 :) верните нам скобку!
ровно три месяца назад в этой теме о том же толковал, так и не отдали. Предлагаю посылать коллективную ноту протеста Майку :)
[highlight=asp]
<ajax:TabContainer ID="tbcProfile" runat="server"
ActiveTabIndex="0">
<ajax:TabPanel ID="tabContacts" runat="server">
<ContentTemplate>
...
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="tabPassword" runat="server">
<ContentTemplate>
...
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="tabSubscribe" runat="server">
<ContentTemplate>
...
</ContentTemplate>
</ajax:TabPanel>
</ajax:TabContainer>
[/highlight]
<ajax:TabContainer ID="tbcProfile" runat="server"
ActiveTabIndex="0">
<ajax:TabPanel ID="tabContacts" runat="server">
<ContentTemplate>
...
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="tabPassword" runat="server">
<ContentTemplate>
...
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="tabSubscribe" runat="server">
<ContentTemplate>
...
</ContentTemplate>
</ajax:TabPanel>
</ajax:TabContainer>
[/highlight]
[highlight=python]
#!/usr/bin/python
# -*- coding: utf-8 -*-
import os, sys, getopt, glob
import PIL.Image as pim
type = "JPEG"
outdir = "."
width = height = 0
opts, pattern = getopt.getopt(sys.argv[1:], "t:o:w:h:")
for opt in opts:
if opt[0] == "-t": type = opt[1]
elif opt[0] == "-o": outdir = opt[1]
elif opt[0] == "-w": width = int(opt[1])
elif opt[0] == "-h": height = int(opt[1])
try:
tmp = pim.new("RGB", (1,1))
tmp.save("/dev/null", type)
except:
print >> sys.stderr, "ОШИБКА: формат %s не поддерживается" % type
sys.exit()
if not pattern: pattern = "."
filelist = []
for entry in pattern:
if entry[-1] == "/": entry = entry[:-1]
if os.path.isdir(entry): entry += "/*"
filelist.extend(glob.glob(entry))
for file in filelist:
if not os.path.isfile(file): continue
try:
im = pim.open(file)
except IOError: continue
if not (width and height):
if width: height = width * im.size[1] / im.size[0]
elif height: width = height * im.size[0] / im.size[1]
else:
width = im.size[0]
height = im.size[1]
resized = im.resize((width, height), pim.ANTIALIAS)
name, ext = os.path.splitext(file)
name = name.split("/")[-1]
outfile = "%s/%s.%s" % (outdir, name, type.lower())
resized.save(outfile)
print "%s (%s, %dx%d) -> %s (%s, %dx%d)" % (file,
im.format, im.size[0], im.size[1],
outfile, type, width, height)
[/highlight]
Начальные скобки вообще никак не хотят отображаться.....
#!/usr/bin/python
# -*- coding: utf-8 -*-
import os, sys, getopt, glob
import PIL.Image as pim
type = "JPEG"
outdir = "."
width = height = 0
opts, pattern = getopt.getopt(sys.argv[1:], "t:o:w:h:")
for opt in opts:
if opt[0] == "-t": type = opt[1]
elif opt[0] == "-o": outdir = opt[1]
elif opt[0] == "-w": width = int(opt[1])
elif opt[0] == "-h": height = int(opt[1])
try:
tmp = pim.new("RGB", (1,1))
tmp.save("/dev/null", type)
except:
print >> sys.stderr, "ОШИБКА: формат %s не поддерживается" % type
sys.exit()
if not pattern: pattern = "."
filelist = []
for entry in pattern:
if entry[-1] == "/": entry = entry[:-1]
if os.path.isdir(entry): entry += "/*"
filelist.extend(glob.glob(entry))
for file in filelist:
if not os.path.isfile(file): continue
try:
im = pim.open(file)
except IOError: continue
if not (width and height):
if width: height = width * im.size[1] / im.size[0]
elif height: width = height * im.size[0] / im.size[1]
else:
width = im.size[0]
height = im.size[1]
resized = im.resize((width, height), pim.ANTIALIAS)
name, ext = os.path.splitext(file)
name = name.split("/")[-1]
outfile = "%s/%s.%s" % (outdir, name, type.lower())
resized.save(outfile)
print "%s (%s, %dx%d) -> %s (%s, %dx%d)" % (file,
im.format, im.size[0], im.size[1],
outfile, type, width, height)
[/highlight]
Начальные скобки вообще никак не хотят отображаться.....
[highlight=cpp]
#define q\
123
//123 относится к define
char a[]="1";
[/highlight]
[highlight=pascal]
'gfrsrt\n'
{\n подсвечивается не в тему}
//Pascal, не Delphi, не комментарий
with a do;
{with без подсветки}
[/highlight]
[highlight=asm]
mov [eax], eax
;пустая строка в конце
[/highlight]
#define q\
123
//123 относится к define
char a[]="1";
[/highlight]
[highlight=pascal]
'gfrsrt\n'
{\n подсвечивается не в тему}
//Pascal, не Delphi, не комментарий
with a do;
{with без подсветки}
[/highlight]
[highlight=asm]
mov [eax], eax
;пустая строка в конце
[/highlight]