且听风吟

Hello, world!

2010-10-27T17:38:00.001+02:00

I am on the intarweb!

semantic web 1

2007-12-14T16:57:00.000+01:00

jena 是一个semantic web的框架。
ibm有一篇很好的入门文章 hier。
用RDF可以很好的表示图，这篇文章阐述了这个观点
RDF用来描述主体，动词，和对象的规范。
RDF, OWL都是w3建议界别的标准

2006-08-11T21:01:00.000+02:00

学校项目的整合总算是初步完成了。忙了一天，回来没吃饭就上楼睡觉去了，醒来已经是快十一点了。吃过饭，看了看有关摄影的文章，转眼就到了一点。喜欢深夜的感觉，大家都沉沉的睡去，周围一片寂静，只有窗外稀疏的雨声，和音响传出的慢慢的vie en rose.这时看什么书都能静静的沉浸下去，没什么必完成之事。慵懒的感觉，不需要放纵的放松。

Tag in ION

2006-03-28T14:23:00.000+02:00

Tag in ion is a label. Mark a frame with a tag just click Mod1+ t.
Grab all frame with Tag to a window just click Mod1 + k, a

Dumper Datastructure in Perl

2006-03-28T14:12:00.000+02:00

Data::Dumper::Simple is a useful module for the debug.

use Data::Dumper::Simple;
my @list = ([qw/a b/], [qw/c d/]);
print Dumper(@list);

Out put is:

@list = (
[
'a',
'b'
],
[
'c',
'd'
]
);

share your fotos wiht flickr

2006-03-18T15:35:00.000+01:00

www.flickr.com

More of tingwang7's photos

snippet in emacs

2006-02-28T15:08:00.000+01:00

how to use snippet mode in emacs:

(define-abbrev c++-mode-abbrev-table ; abbrev table
"for" ; name
"" ; expansion
'(lambda () ; expansion hook
(snippet-insert
"for (int i = 0; i <$${max}; i++)\n{\n $.\n}")))

(define-abbrev c++-mode-abbrev-table
"if"
""
'(lambda ()
(snippet-insert
"if ($${test} ) {\n $.\n}")))

(define-abbrev c++-mode-abbrev-table
"imain"
""
'(lambda ()
(snippet-insert
"int main(int argc, char *argv[]){\n $.\n}")))
(provide 'tiw-abbrev)

静态链接库

2005-12-13T23:26:00.000+01:00

什么是静态链接库，如何创建

静态链接库只是一个.o文件的集合。通常以.a结尾，a的意思是他是由 archiver 产生的。要把一些.o文件夹到一个
.a 文件里可以用：
ar rcs my_library.a file1.o file2.o

使用静态链接库

使用gcc可以 -LlibraryPaht -lmy_library
要注意的是，你的.o文件要在所有 -l 的全面，否则会有未定义引用的错误(: undefined reference to `lua_open'
test.o(.text+0x23): In function `main'）。
在/home/wang/lib 里面有 liblua.a 和 liblualib.a两个文件
in Makefile:

LIB=-L/home/wang/lib/ -llua -llualib
g++ test.o -o test $(LIB) 没有问题
g++ $(LIB) test.o -o test 报错

Getting Started with Lua

2005-12-13T22:38:00.000+01:00

Getting Started with Lua
对lua的介绍，从c++/c的角度。

Shared Libraries

2005-12-13T22:31:00.000+01:00

Shared Libraries
类似staticLibraries不过时介绍动态链接库的。

Static Libraries

2005-12-13T22:30:00.000+01:00

static Libraries
一个很清晰的有关于静态链接库教程，通过它可以了解到什么是静态链接库、如何创建、如何使用、还有使用上的一些注意事项。

Attribute in .NET

2005-12-10T12:49:00.000+01:00

Attribut in .NET
要说Attribut首先要了解.NET的一些内部结构。在.NET里，模块、数据类型等是受控制的（并给所有，例外还不知道）。
模块、数据类型等都有对应的MetaData，对其作一些描述。而Attribut可以把一些特定的MetaData在编译时期写入。
例如下面的代码：
using System.Diagnostics;
class Foo{
public int bar;
public Foo(int i)
{
this.bar = i;
}
[Conditional ("DEBUG")]
public void setToNull()
{
this.bar = 0;
}
public static void Main()
{
Foo f = new Foo(2);
f.setToNull();
Console.WriteLine(f.bar); // here 2 will be printed
int fee = 1/f.bar;
}
}
如果在编译的时候没有定义"DEBUG", （如果想在编译的时候定义DEBUG, 可以使用这条命令：csc /d:DEBUG Foo.cs）
在运行期不会有因为零作分母而产生的错误。
因为在编译的时候，编译器会添加一个Token到Foo的MetaData里面，标记出 setToNull 是不可以被
调用的。在这之后，如果有另外一个模块调用了Foo里面的setToNull，在编译的时候编译器会阅读有关
setToNull 的MetaData，发现这个函数是不可以被调用的，编译期就会忽略掉这句语句。
在我们的这个例子里面，在 Main 里面 f.setToNull 语句在编译期就会被忽略掉了，所以 bar 的值实际
上还是 2 ，而不是 0。

数字的本地化(C#)

2005-12-06T22:33:00.000+01:00

数字的本地化(C#) [Edit Title...]

由于在德国小数点的是由逗号来表示的，例如：1.5在德国德表示是：1,5。
这在分析字符串的时候会出现问题，例如：

double number = Double.Parse("123.12");
Console.WriteLine(number);

如果当前的国家设置是德国的时候，在console里面打印出来的是：12312， .NET不会发出
任何的异常！这一点当我们使用小数的时候非常危险的，例如我们要按比例分配给某人一定的
佣金，如10%。当我们输入0.10而不是0,10的时候我们给这个人的钱不是10%而是十倍！
处理这种情况一定要小心，可以用下拉列表来代替文本框，或是先分析字符串中是否有 ","
还是 "."。
在.NET里面可以制定某一个线程的国家设置：

Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("de");
double number = Double.Parse("0.10");
double number2 = 0.3;
Console.WriteLine(number);
Console.WriteLine(number2);
DateTime now = DateTime.Now;
Console.WriteLine(now.ToString());
Console.ReadLine();

会在控制台里显示：

10
0,3
06.12.2005 22:13:21

Thread 类是在System.Threading里定义的，CultureInof 是在 System.Globalization 里定义的。

Java RMI 编程

2005-11-21T21:36:00.000+01:00

服务器端

服务器程序：

一个接口，扩展java.rmi.Remote
一个这个接口的实现

 
  编译服务器程序：
 用rmic把实现编译为stub
 
 运行服务器：
 在运行服务器端的程序前，先要运行RMI's registry。方法如下：
 rmiregistry &　（unix)

 start rmiregistry (windows)
 
 把程序登记到：registry
 import java.rmi.Naming;

 public class RegStringInverseImp {
 　　public static void main (String[] s) {
 　　　　try {
 　　　　　　StringInverse sii = new StringInverseImp("demo");// declare sii as interfase StringInverse
 　　　　　　Naming.rebind("//192.168.220.1/demo", sii);
 　　　　　　System.out.println("Registered StringInverseImp");
 　　　　} catch (Exception e) {
 　　　　　　e.printStackTrace();
 　　　　}
 　　}
 }
 
Note during start a server
java -Djava.rmi.server.codebase=file:///home/wangtg/verteilsys/uebung/rmi/classes/ StringInverseImp
If there is no / after classes Exception about class can not found occures. 

Rather than making a copy of the implementation object in the receiving virtual machine, RMI passes a remote stub for a remote object. 
 The stub acts as the local representative, or proxy, for the remote object and basically is, to the caller, the remote reference.



动态链接库和静态链接库
2005-11-21T21:35:00.000+01:00
动态链接库和静态链接苦的区别在于：
 在内存里，只有一个动态链接库的副本，所有基于动态链接库的执行文件共用这个库（使用动态链接器）。而每个基于静态链接库的执行程序，在内存里都有一份自 己的库的副本。由此我们可以看出来，使用动态链接的程序个头都比较小，因为它的一部分是共享内存中的动态链接库的。静态链接的程序相对就大一些。



新看HTTP
2005-11-21T21:34:00.000+01:00
今天的基于WEB的应用软件整合课，让我对HTTP有了新的认识。整个ｗｅｂ就是一个共享系统，象一个数据库，HTTP提供了数据库必须的操作：Ｃ （create)Ｒ(retrive)Ｕ(update)Ｄ(delete)，　通过GET, PUT, POST, DELETE。WEB的超强的扩展能力是基于两个特性的：REST　和　URI。　
 REST：　representation state transfer, http协议是stateless的，所有关于state的东西每一次都要通过uri来传输。所以服务器不用记忆任何一个请求。SOAP的不同在于，他是 通过body而不是报文的头来传输的，报文的头长度是有限制的。



2005-11-16
2005-11-16T12:34:00.000+01:00
  Template 的使用：
  template class的构造器：
 在定义template的成员函数的时候需要特殊的语法来表明这个成员函数是属于一个模板类的。
 
 template <class T>
 class Foo
 {
 public:
   Foo();
   baa();
 ..
 };
 template <class T>
 Foo<T>::Foo(){}
 template <class T>
 Foo<T>::baa(){}
 在实例化一个模板类的时候，构造函数也要模板的参数表：
 Foo<int> mf = new Foo<int>();
 这样是错误的：
 Foo<int> mf = new Foo()
 虽然构造函数叫做Foo()。



2005-11-15
2005-11-15T12:26:00.000+01:00
ArrayList用在gsoap里总是出错。引用和指针的关系总算是搞清楚了：
 引用就是物体本身，指针则是物体的地址。　
 vector<int> *vi = new vector<int>;
 vector<int> &rvi = *vi;
 --------------
 vector<int> &createV()
 {
   vector<int> *i = new vector<int>;
   return *i;// 注意这里是*i
 }
 ---------------
 void add(vector<int> &v, int value)
 {
    v.push_back(i);
 }
 vector<int> *vi = new vector<int>();
 add(*vi, 2);
 ---------------
 出现vector<int> &的地方就可以用*vi。
 



2005-11-13
2005-11-14T01:04:00.000+01:00
了解了ｑｔ的事件传输机制。在Qt4里面，很清晰的分清了原因和结果。signal就是因，slot就是果。一个Qt对象（派生于QObject)可以拥 有多个signals和slots。每个signal就负责发信号，每个slot就负责相应信号。connect函数把两者联系了起来：connect (object1, signal1, object2, slot2)，当object1发出信号signal1后，对象object2的slot2就会处理。



Qt In Windows
2005-11-13T15:42:00.000+01:00
由于学校的项目都用Ｑｔ所以就在家里安装了Qt４。安装到是很简单，是标准的ｗｉｎｄｏｗｓ安装程序，可是安装好了以后，写了一个小的试验程序，在编译的 时候出现有关ValidLicenseForCoreModule的问题，这个问题是因为Ｑｔ是安装好了，可是Qt的库还没编译，在编译前要同意Qt opensource的license。编译库的方法就是：开始－》程序－》Ｑｔ。。。－》Ｑｔ(build debug librarys)



.NET 里有关.dll路径的问题
2005-11-11T10:23:00.000+01:00
如果你在你的程序里调用了.dll，那么在编译和运行的时候要注意一些路径的问题。 下面是我的一些经验：
 编译期：
 我用NANT来管理我的项目。为了在编译的时候指定.dll的路径，可以在编译.exe的目标块里面加入<references>标签，在这个标签里
 加入.dll所在的目录。
 
 <target name="build" depends="buildlib">
<csc target="exe" output="bin/${basename}.exe" debug="${debug}">
<sources>
<include name="src/${basename}.cs"/>
</sources>
      <references>
        <include name="bin/lib/Tiw.dll"/>
      </references>
</csc>
</target>
 
 运行期：
 如果在运行期.dll和.exe文件不在一个目录里，要给.exe文件编写一个xx.exe.config文件。在这个文件里可以制定.dll的目录。
 <configuration>
<runtime>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
     <probing privatePath="lib"/>
</assemblyBinding>
</runtime>
</configuration>
 我参看了微软的.NET开发者手册（Mircrosoft .NET Entwicklerhandbuch)，根据我的理解是，.dll文件和.exe必须在一个目录下面，
 也就是说：类似 bin/xx.exe bin/lib/xx.dll 的结构是被容许的，但是  bin/xx.exe  lib/xx.dll 是不被容许的，即使在.config文件里
 加入
      <probing privatePath="../lib"/>
 也不可以。（这个我试验过了）。对于这问题相信还有解决的办法（把.dll的目录加到系统的path里？我还没试验
 



NAnt
2005-11-10T21:12:00.000+01:00
   <property> 
 <property name="somename" value="valueOfName"/>
 property 定义一个变量，变量名字为somename, 变量的值为valueOfName。
 使用这个变量的方法是：${somename}
    <fileset> 
 定义一组的文件，例如：
<fileset>
<include name="bin/*.exe"/>
</fileset>
 定义了在目录bin里面的所有以.exe结尾的文件。<inlcude>同样可以用在<source>里面定义一组文件。
    <exec> 
 执行一个程序。 <exec program="bin/HelloWorld.exe" basedir="."/>运行当前目录下的bin/HelloWorld.exe

 
    <references> 
 加入所需的库。 <references><include name="lib/some.dll"/></references>



oddmuse
2005-11-07T23:18:00.000+01:00
oddmuse is a really cool wiki engine. The archietecture of this wiki engine is like emacs. You can
 extend this engine by adding a .pl file in $moduleshome. Install of this wiki engine is just copy a
 file to your web home (CGI modul of Perl should be installed), and tread it as a normal CGI file.
 



tiw-del-pair.el
2005-10-30T15:42:00.000+01:00
A elisp program which delete things between "" or [] or {} or (), use it an " or [ or { or ( , it will
 delete things in it. Not support recursive pairs.
 
 (defun tiw-del-pair ()
  (interactive)
  (if (looking-at "\\(\"\\|\(\\|\\[\\|\{\\)")
  (progn
  (if (looking-at "\"")
  (setq s "\""))
  (if (looking-at "\(")
  (setq s "\)"))
  (if (looking-at "\\[")
  (setq s "\]"))
  (if (looking-at "\{")
  (setq s "\}"))
  ;; (setq s (buffer-substring-no-properties (point) (+ 1 (point))))
  (forward-char)
  (kill-region (point) (progn
  (search-forward s)
  (- (point) 1)))
  (backward-char))))
 



perl include path
2005-10-30T15:39:00.000+01:00
How to add include path:
 
      the PERLLIB environment variable
     the PERL5LIB environment variable
     the perl -Idir command line flag
     the use lib pragma, as in
     use lib "$ENV{HOME}/myown_perllib";
 



Test
2005-10-04T22:22:00.000+02:00
This 是一个在线的文档编辑器，我们可以在线编辑文档，并且和他人共享这些文档。
 这个文档编辑器是http://www.writely.com提供的，通过这个在线文档编辑器，还可以直接把文档
 发布到你的ｂｌｏｇ上去。



RPC vs Messages
2005-10-01T16:20:00.000+02:00
When using RPC, the client thinks in terms of invoking a remote procedure on the server. This usually means instantiating a remote object and invoking its methods or properties. Thinking is centered on the remote object and its interface, i.e. the properties and methods that it exposes and their parameters. DCOM and .NET remoting are examples of RPC mechanisms.

Messaging is typically associated with more loosely coupled systems. A messaging client thinks in terms of sending a message to a server and, possibly, receiving a response message. Thinking in messaging systems is centered on the request and response message format rather than the remote object•s interface. By focusing only on message formats, the client and server are less tightly coupled than in the case of RPC.


regular express in emacs -- special characters
2005-09-29T22:38:00.000+02:00




















\W




any character .
start of line ^
end of line $
0-any characters *
1-any characters +
0-1 ?
range of characters [ ... ]
anything but a range of characters [^ ... ]
a special character \
a tab character \t
a newline character \n
a backslash \\
start or end of a word \b
next string not in a word \B
start of a word \<
end of a word \>
start of buffer \`
end of buffer \'
any word character \w
any none word character 
multiple patterns (or) \|
a group of character \(...\)
a syntactic class \sc
a character not in a syntactic class \Sc



Selectively Displaying Program Lines
2005-09-29T22:31:00.000+02:00
C-x $
C-u 2 C-x $ will fold all lines, which are intended more than one character.


apropos it !!
2005-09-29T10:00:00.000+02:00
what do something but don't know if there is such function in emacs? Just apropose it.
Command: M-x apropose Enter keyword Enter.
For exmaple: I want to find a function with it I can delete a char before cursor.
M-x apropose Enter delete Enter
You will find alots of descriptions of functions about delete are shown in a buffer, then search delete in this buffer you will find
backward-delete-char
Command: Delete the previous N characters (following if N is negative).
backward-delete-char-untabify
Command: Delete characters backward, changing tabs into spaces.
delete-backward-char
Command: Delete the previous N characters (following if N is negative).
delete-char
Command: Delete the following N characters (previous if N is negative).

backward-delete-char is just what i want.

Add C-u before M-x apropos the keybindings description of a function will also be shown in buffer

With C-u M-x Enter delete Enter something like following will be shown:
backward-delete-char (not bound to any keys)
 Command: Delete the previous N characters (following if N is negative).
 backward-delete-char-untabify (not bound to any keys)
 Command: Delete characters backward, changing tabs into spaces.
 delete-backward-char C-h, DEL
 Command: Delete the previous N characters (following if N is negative).
 delete-char C-d
 Command: Delete the following N characters (previous if N is negative).



Register Directive
2005-09-19T23:27:00.000+02:00
 @ Register Directive
 When you are adding a custom server control to a page, you  need to tell the compiler something about that control. If the compiler doesn't  know what namespace contains the control or what assembly that namespace is in,  then it will not be able to recognize the control, and will generate an error.  To give the compiler the information it needs, use the @  Register directive.
 There are two forms of the @ Register  directive, depending on how the location of the custom control is identified:  
 <%@ Register TagPrefix="tagprefix" TagName="tagname" Src="pathname" %>
<%@ Register TagPrefix="tagprefix" Namespace="namespace" Assembly="assembly" %>
 The first usage of the @ Register  directive is to add support for user controls to the page. The TagPrefix attribute identifies the string that will be used  to decorate all instances of the custom server control on the page. For example,  if this directive is at the top of the page: 
<%@ Register TagPrefix="Ecommerce" TagName="Header"
            Src="UserControls\Header.ascx" %> 
 Then for every instance of the Header  user control on the page, it will be prefixed with Ecommerce, as seen here: 
 
 The TagName attribute identifies the name  that will be used to refer to the control within the page. Since a user control  source file, UserControls\Header.ascx, can only have  one control contained within it, the tagname attribute  is simply a shortcut to allow us to reference the control.
 The final attribute, Src, indicates the  file in which the source of the user control resides.
 The second usage of the @Register  directive is for adding custom server controls to the page. These custom  controls are compiled and contained within assemblies. The TagPrefix attribute has the same usage seen before – it  defines the namespace of the custom server control when it is used in the page.  The Namespace attribute indicates the namespace in  which the custom control resides. The Assembly  attribute indicates the assembly where the namespace resides: 
<%@ Register TagPrefix="Wrox" Namespace="WroxControls"
                              Assembly="RatingMeter" %> 
 When using this custom server control within the page, it looks no  different than a user control in the same place:
 
                  MaxRating="5" CellWidth="51" CellHeight="10" /> 
 When creating a custom control, or even a user control, you  can pass attributes to the control by adding them to the tag in the page.



a sample makefile
2005-09-08T14:57:00.000+02:00
SUFFIXES= .C .o

.SUFFIXES:
.SUFFIXES: .C .o

LIB=-L/home/tiw/lib -lcppunit -ldl
INCLUDE=-I/home/tiw/include
CC=g++
OBJECTS= Main.o TMyComplex.o MyComplex.o

all: Main

.C.o:
    $(CC) -c $(INCLUDE) $<

Main: $(OBJECTS)
    $(CC)  -o Main $(LIB)  $(OBJECTS)

clean:
    rm -f Main *.o


a perl script automatic make a cppunit test case file
2005-09-08T14:49:00.000+02:00
#! /usr/bin/env perl
use warnings;
use strict;
my $DEBUG = 1;
my @methods;
my $fileName = shift;
unless ($fileName)
{
  &Usage;
  exit;
}
open F, $fileName or die "can not open file: $fileName: $!\n";


my $className = $fileName;
$className =~ s/\.\w+//;
warn "class name is $className" if $DEBUG;

&getMethods;
if (-e "T$className.H")
{
  print "T$className.H exists\n";
  exit;
}
open T, ">T$className.H" or die "can not create T$className:$!\n";
select T;
my $ucClassName = uc($className);
print "#ifndef T$ {ucClassName}_H\n";
print "#define T$ {ucClassName}_H\n";
print "\n";
print "\n";
print "#include \"$className.H\"\n";
print "#include \n";
print "#include \n";
print "#include \n";
print "#include \n";
print "#include \n";
print "\n";
print "class T$className : public CppUnit::TestFixture { \n";
print "private:\n";
print "  //TODO: Define test target here:\n";
print "public: \n";
print "\n";
print "  void setUp(){\n";
print "//TODO: initialize test target here: \n";
print "  }\n";
print "  \n";
print "  void tearDown(){\n";
print "//TODO: release test resource here:\n";
print "  }\n";
print "\n";


foreach  (@methods)
{
  print "    void test_$_(){\n";
  print "      // TODO: implement test here:\n";
  print "    }\n";
}

print "  static CppUnit::Test *suite(){\n";
print "    CppUnit::TestSuite *suiteOfTests = new CppUnit::TestSuite(\"T${className}\");\n";

foreach (@methods)
{

print "    suiteOfTests->addTest(new CppUnit::TestCaller\n";
print "              (\"test_$_\",
               &T$ {className}::test_$_));\n";
}

print "    return suiteOfTests;\n";
print "  }\n";
print "};\n";
print "#endif\n";
close T;

open MAIN, ">Main.C" or die "can not create Main.C:$!\n";
select MAIN;
print "#include \n";
print "#include \"T$ {className}.H\"\n";
print "int main()\n";
print "{\n";
print "  CppUnit::TextUi::TestRunner runner;\n";
print "  runner.addTest(T$ {className}::suite());\n";
print "  runner.run();\n";
print "  return 0;\n";
print "}\n";
close MAIN;

open MAKEFILE, ">Makefile" or die "can not create Makefile:$!\n";
select MAKEFILE;
print "SUFFIXES= .C .o\n";
print "\n";
print ".SUFFIXES:\n";
print ".SUFFIXES: .C .o\n";
print "\n";
print "LIB=-L/home/tiw/lib -lcppunit -ldl\n";
print "INCLUDE=-I/home/tiw/include\n";
print "CC=g++\n";
print "OBJECTS= Main.o T$ {className}.o $ {className}.o\n";
print "\n";
print "all: Main\n";
print "\n";
print ".C.o:\n";
print "    \$(CC) -c \$(INCLUDE) \$<\n";
print "\n";
print "Main: \$(OBJECTS)\n";
print "    \$(CC)  -o Main \$(LIB)  \$(OBJECTS)\n";
print "\n";
print "clean:\n";
print "    rm -f Main *.o\n";
print "\n";
close MAKEFILE;

sub getMethods
{
  print "class name : $className\n";
  while ()
  {
    my $line = $_;
    if ($line =~ m/$className\:\:(\w+)\(/)
    {
      push @methods, $1;
    }
  }
} # end getMethods
sub Usage{
  print "Usage:\n";
  print "    makeTest.pl ClassName\n";
  print "    in the file ClassName target methods are defined\n";
  print "    test file is saved into TclassName.H\n";
  print "Example:\n";
  print "    makeTest.pl ModellAgent.C\n";
  print "    test file is saved into TModellAgent.C\n";
}




how to use CppUnit
2005-09-06T17:07:00.000+02:00
How to install cppUnit and compile the test application with it
1) install:
a) Download and extract cppUnit package
b) compile files
$./configure --prefix=/home/xx
$make
$make install
2) compile the test appliation
g++ -g -L/home/xx/lib -lcppunit -ldl -I/home/xx/include Main.C


How to do unit test with cppunit
CppUnit is a C++ unit testing framwork. The processes of
unit testing with Cpp Unit are:
1. write testcases.
a class of a test case is derived from CppUnit::TestFixture,
and the class is composed of four parts:
a) setUp() method
In this method all initial works should be done,
e.g instance object etc.
b) tearDown() method
In this method all permanent resources which are
allocated in setUp() should be released.
c) testcases
test case is normal methode, in which the
features of be tested class are tested.
d) a static method returns a point of a TestSuit

following is a sample test case class:

//--------------------------TMyComplex.h--------------------
#include "MyComplex.h"
#include 
#include 
#include 
#include 
#include 

class TMyComplex : public CppUnit::TestFixture { 
private:
MyComplex *mc1, *mc2, *mc3;
public: 

void setUp(){
mc1 = new MyComplex(1.0, 2.0);
mc2 = new MyComplex(1.0, 2.0);
mc3 = new MyComplex(1.0, 3.0);
}

void tearDown(){
delete mc1;
delete mc2;
delete mc3;
}

void testEquality() {
CPPUNIT_ASSERT( *mc1 == *mc2 );
CPPUNIT_ASSERT( !(*mc1 == *mc3) );
}

static CppUnit::Test *suite(){
CppUnit::TestSuite *suiteOfTests = new CppUnit::TestSuite("TMyComplex");
suiteOfTests->addTest(new CppUnit::TestCaller
("testEquality",
&TMyComplex::testEquality));

return suiteOfTests;
}

};

//----------------------End TMyComplex.h--------------------

2. write a main program in order to run the testcases.
following is a sample:

//----------------------Main.C--------------------
#include 
#include "TMyComplex.h"
int main()
{
CppUnit::TextUi::TestRunner runner;
runner.addTest(TMyComplex::suite());
runner.run();
return 0;
}
//----------------------End Main.C--------------------


Web service in ASP.NET
2005-09-03T23:47:00.000+02:00
Web service in ASP.NET
In ASP.NET, a web service is essentially a listener that monitors a particular URL exposed via HTTP, looking for requests as SOAP messages. When a request arrives, ASP.NET runtime unpackages the request and calls the method for which the request is intended, passing in any parameters included with the request. If the request has a return value, the ASP.NET runtime packages up the return value (based on the XML schema data type specifications) and sends it to the client as a SOAP message. …
Developers expose their functionality as web services by making their methods with a specific metadata attribute, the WebService attribute. The Common Language Runtime takes care of the rest – from packaging and unpackaging SOAP requests to automatically providing HTML documentation of the web service – if it is called from a web browser (rather than by a SOAP request).

Consuming a Web Service
In ASP.NET consuming a web service is nearly as easy as creating one. ASP.NET provides a utility called wsdl.exe that can create a proxy class, which is a class that knows all of the necessary details of communicating with the web service via SAOP, and which can be called from client application the same way as any other managed class.
-- from ASP.NET IN A NUTSHELL

How to consume a web service
http://localhost:2696/WebSite1/Hello.asmx is a web service.
1 produces a proxy with wsdl
wsdl.exe /out:hello_proxy.cs http://localhost:2696/WebSite1/Hello.asmx
2 compile proxy into a library
csc.exe /t:library /r:System.Web.dll,System.dll,System.dll,System.Web.Services.dll,
System.Xml.dll /out:hello.dll hello_proxy.cs
3 use classes which is defined in web service
Put hello.dll into your website then you can use classes which are defined in a web service (here is some classes defined in Hello.asmx.
4 test your program


2005-08-28T17:34:00.000+02:00
错误“操作必须使用一个可更新的查询”原因及解决办法 
 来源：  作者：大海

 原因：
有几个主要的错误原因：
这个错误发生在当你的程序试图执行更新数据库或其它类似操作时。这是因为
ADO由于以下的几个原因而不能够写数据库造成的。
1。最普遍的原因是匿名用户帐号(IUSR_MACHINE)对该数据库文件没有写权限。
要解决这个问题，在管理器中调整数据库文件的属性，让匿名用户有正确的权限。
当使用ACCESS数据库时，不仅要给文件写的权限，还要给该目录写 的权限，因为
Jet需要在该目录建立一个.ldb文件。
2。第二个原因是数据库没有使用正确的模式打开。应该使用下面的方法打开。
SQL = "UPDATE Products Set UnitPrice = 2;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Mode = 3 '3 = adModeReadWrite
Conn.Open "myDSN"
Conn.Execute(SQL)
Conn.Close
注意默认的Mode是设置0(adModeUnknown),它是允许更新的。
3。还有可能是在ODBC管理器中将该DSN的只读选项选中。
4。你是在同时更新两个表中的字段，也会出现这个错误信息，解决办法是分开来更新
这两个表中各自字段。
5。当你使用了一个从低版本中（如ACCESS2.0,ACCESS7.0）载入到高版本(ACCESS 2000)
中的查询时，在执行这个查询是会出现该错误。 



Laufen ASP.NET Anwendungen
2005-08-14T01:15:00.000+02:00
Voraussetzungen: .Net Framework und IIS
Vorgehensweise:
1. Starten Sie die Konsole
2. Wechseln Sie in das .Net-Framework-Verzeichnis ( meist C:/WINNT/Microsoft.NET/Framework/v1.1.4322/
3. Um den IIS zu konfigurieren, fuehren Sie die Datei aspnet_regiss.ext mit dem Parameter -i aus.
aspnet_regiis.exe -i


Automatic Variables in makefile
2005-08-09T12:21:00.000+02:00
Automatic Variables
 ---from http://www.gnu.org/software/make/manual/html_mono/make.html#SEC111

    Suppose you are writing a pattern rule to compile a `.c' file into a `.o' file: how do you write the `cc' command so that it operates on the right source file name?  You cannot write the name in the command, because the name is different each time the implicit rule is applied. 
   What you do is use a special feature of make, the automatic variables.  These variables have values computed afresh for each rule that is executed, based on the target and prerequisites of the rule.  In this example, you would use `$@' for the object file name and `$<' for the source file name. 
   Here is a table of automatic variables: 
   
  $@ 
The file name of the target of the rule.  If the target is an archive member, then `$@' is the name of the archive file.  In a pattern rule that has multiple targets (see section Introduction to Pattern Rules), `$@' is the name of whichever target caused the rule's commands to be run.     
$% 
The target member name, when the target is an archive member. See section 11. Using make to Update Archive Files.  For example, if the target is `foo.a(bar.o)' then `$%' is `bar.o' and `$@' is `foo.a'.  `$%' is empty when the target is not an archive member.     
$< 
The name of the first prerequisite.  If the target got its commands from an implicit rule, this will be the first prerequisite added by the implicit rule (see section 10. Using Implicit Rules).     
$? 
The names of all the prerequisites that are newer than the target, with spaces between them.  For prerequisites which are archive members, only the member named is used (see section 11. Using make to Update Archive Files).       
$^ 
The names of all the prerequisites, with spaces between them.  For prerequisites which are archive members, only the member named is used (see section 11. Using make to Update Archive Files).  A target has only one prerequisite on each other file it depends on, no matter how many times each file is listed as a prerequisite.  So if you list a prerequisite more than once for a target, the value of $^ contains just one copy of the name.       
$+ 
This is like `$^', but prerequisites listed more than once are duplicated in the order they were listed in the makefile.  This is primarily useful for use in linking commands where it is meaningful to repeat library file names in a particular order.     
$* 
The stem with which an implicit rule matches (see section How Patterns Match).  If the target is `dir/a.foo.b' and the target pattern is `a.%.b' then the stem is `dir/foo'.  The stem is useful for constructing names of related files.   In a static pattern rule, the stem is part of the file name that matched the `%' in the target pattern. 
  In an explicit rule, there is no stem; so `$*' cannot be determined in that way.  Instead, if the target name ends with a recognized suffix (see section Old-Fashioned Suffix Rules), `$*' is set to the target name minus the suffix.  For example, if the target name is `foo.c', then `$*' is set to `foo', since `.c' is a suffix.  GNU make does this bizarre thing only for compatibility with other implementations of make.  You should generally avoid using `$*' except in implicit rules or static pattern rules.
  If the target name in an explicit rule does not end with a recognized suffix, `$*' is set to the empty string for that rule. 
 
    `$?' is useful even in explicit rules when you wish to operate on only the prerequisites that have changed.  For example, suppose that an archive named `lib' is supposed to contain copies of several object files. This rule copies just the changed object files into the archive: 
   
 lib: foo.o bar.o lose.o win.o
       ar r lib $?
   Of the variables listed above, four have values that are single file names, and three have values that are lists of file names.  These seven have variants that get just the file's directory name or just the file name within the directory.  The variant variables' names are formed by appending `D' or `F', respectively.  These variants are semi-obsolete in GNU make since the functions dir and notdir can be used to get a similar effect (see section Functions for File Names).  Note, however, that the `D' variants all omit the trailing slash which always appears in the output of the dir function.  Here is a table of the variants: 
   
  `$(@D)' 
The directory part of the file name of the target, with the trailing slash removed.  If the value of `$@' is `dir/foo.o' then `$(@D)' is `dir'.  This value is `.' if `$@' does not contain a slash.     
`$(@F)' 
The file-within-directory part of the file name of the target.  If the value of `$@' is `dir/foo.o' then `$(@F)' is `foo.o'.  `$(@F)' is equivalent to `$(notdir $@)'.     
`$(*D)' 
  
`$(*F)' 
The directory part and the file-within-directory part of the stem; `dir' and `foo' in this example.     
`$(%D)' 
  
`$(%F)' 
The directory part and the file-within-directory part of the target archive member name.  This makes sense only for archive member targets of the form `archive(member)' and is useful only when member may contain a directory name.  (See section Archive Members as Targets.)     
`$(' 
  
`$(' 
The directory part and the file-within-directory part of the first prerequisite.     
`$(^D)' 
  
`$(^F)' 
Lists of the directory parts and the file-within-directory parts of all prerequisites.     
`$(+D)' 
  
`$(+F)' 
Lists of the directory parts and the file-within-directory parts of all prerequisites, including multiple instances of duplicated prerequisites.     
`$(?D)' 
  
`$(?F)' 
Lists of the directory parts and the file-within-directory parts of all prerequisites that are newer than the target. 
 



PXPerl - a convenient Perl distribution
2005-08-09T11:37:00.000+02:00
In maillist of PUG PXPerl is introduced.  In its mainpage the following is introduced:

PXPerl is an easy-to-use, all-in-one, full-featured Perl stuff package for Windows 2000/XP.
      It consists of:
      Perl 5.8.7 compiled with Intel(R) C++ Compiler for maximum performance
Lots of modules, selected on the fly from CPAN (PXPerl has obviously all modules ActivePerl has). Of which, for image manipulation: GraphicsMagick 1.1.6
GD 2.0.33
     
Pugs 6.2.9 (compiled with GHC), an early implementation of Perl 6 to see new language features in action
Parrot 0.2.3
SciTE 1.65 (Serge Baranov's distribution), a free syntax colourizing editor for editing your Perl scripts, the best you can find!
 






Using macro in emacs
2005-06-27T15:30:00.000+02:00
1. record a macro:
  c-x ( ...actions c-x )
2. name a macro:
  m-x name-last-kbd-macro
3. save a macro into a file
  m-x insert-kdb-macro
4. including a query in a macro definition
  c-x q
  actions of keys:
  SPC: continue executing the marco
  DEL: skip the rest of this macro and cancel further use(repetition) of the macro
  c-d: skip the rest of this macro and cancel further use of the macro
  c-l: redraw the screen and ask for a character to specify contiued operation of the macro.
c-r: enter a recursive editing level in which you can perform editing that is not part of macro. Execute c-m-c to exit any recusive editing

Using a macro
Using a named macro just like a normal elisp command.
In order to use a macro on a region the following code can be used. These code come from sam-lib.el:
(defun sams-apply-macro-on-region (start end command) ;[Jesper]
   "Evaluate a given function (or the last defined macro) on region.
 I.e. it will continue until the point is position
 outside the region.
 
 This function is much like the function apply-macro-to-region-lines,
 which is shipped with Emacs. It has one difference though. It
 executes the macros until point is below the end of the region."
   (interactive "r\naCommand name (default:last keyboard macro).")
   (goto-char end)
   (let ((mark (point-marker)))
     (goto-char start)
     (while (< (point) (marker-position mark))
     (if (not (fboundp command))
         (call-last-kbd-macro)
       (command-execute command)))))




Something about Semantic Web
2005-06-21T23:05:00.000+02:00
Today i read something about sematic web. Sematic web is a web and a mashine can deal with the contents of this web.
It let me think, a sematic web and some tools like brain of human. When a web is big and complex enought and enought combination between these information, on day may web smart just like a human.


Create a stardart Perl Module structure
2005-06-03T13:19:00.000+02:00
With h2xs -AXn Model::Name a whole directory stucture will be made for a Perl Module. And most things are done e.g. Makefile.PL, a sample test etc.


用Latex和Prosper来制作幻灯片
2005-05-29T23:04:00.000+02:00
最近一直用Latex写实习报告，觉得在排版方面比较舒服，主要是因为Latex有现成的模板，要加一个注脚，或是要加一个目录只要添加一个命令（确切是宏把）就好了，这很符合写程序的习惯。开始的时候会觉得命令比较多，可是在Emacs和AUCTeX的 帮助下很快就可以快速的输入各种命令了，而且还可以自己制定各种宏。最近有一个项目要做一个讨论会，每个人都要做一个讲演，以前都是用Power Point， 可是用Latex写的报告不能直接用在Power Point里面，而且用Power Point书写数学公式很麻烦（着主要是个人习惯， 我极端不喜欢用鼠标，我正在学习使用ion做为我的window manger, 估计以后可以吧鼠标扔了;-)）。发现Latex有个Prosper的包，可是方便的制作幻灯片，还可以制作简单的动画（这点不如Power Point，可是我也不怎么用动画）。Prosper有一个很好的教程，半个小时就基本掌握了他的一些技巧。


How to stop abbrevation in emacs once
2005-05-24T15:29:00.000+02:00
在使用emacs的时候，简写（abbrevation）是一种很有用的技术，可以帮助快速书写更规范的词汇。例如 RedHat Linux可以设置为rh、Gnu Emacs可以设置为emacs，还可以自动更正你常见的错误，例如我经常把with写成wiht, 于是我就把with设置为with。可是，简写有一个问题当输入完emacs后，在输入任意标点或是空格，她就会自动的更正为Gnu Emacs, 通常这也是我们希望的，可是也有些个别的时候，我们不希望他自动更正，只是希望输入emacs(例如我想说emacs, 包括Gnu emacs 还包括 XEmacs)， 这个时候你可以在输入完emacs后，在输入ctr－q， 它就不会自动更正了。


automatic insert cvslogtemplate
2005-05-06T18:09:00.000+02:00
vc and pcvs are two very conveniet emacs mode. With vc a file can be commit just by clicking
c-x v v. Then a buffer occurs waiting for your entering. Normally a template cvs log exists in
CVS dirctory, this is sometime very usefull as a check list for cvs commit log. During my using
of vc and pcvs i can not found how to config these two mode so that cvs commit log template
automaticlly insert  into "log buffer". So i wrote a func to fulfill my request. This func is very
simple so i can list it just here

(defun insertCvsLogTemplate ()
   (interactive)
   (if (or (string= (buffer-name) "*VC-log*") (string= (buffer-name) "*cvs-commit*"))
       (if (file-exists-p "CVS/Template")
       (insert-file-contents "CVS/Template"))))

You must add following code to make your emacs add temple automaticlly
(add-hook 'log-edit-mode-hook 'insertCvsLogTemplate)
(add-hook 'vc-before-checkin-hook 'insertCvsLogTemplate)




emacs <- dictionary -> wordnet
2005-04-22T14:18:00.000+02:00
Dictionay.el is really  a useful module of emacs. With this module a word can be searched in near 80 web dictionaries. And most intertesting thing is that you can search word with regular expressions.


2005-04-21T22:58:00.000+02:00

sin 


gnuplot
2005-04-21T22:43:00.000+02:00
gnuplot 是一个强大的生成plot（a chart or map showing the movements or progress of an object)的工具，已经有近二十年的开发历史了。c't评论她为表现自然科学数据的强大工具。使用很简单，下面是一张sin(x)的三维图


covert Dezimal Zahl zu irgend mal Ziffer (< 53)
2005-04-20T14:58:00.000+02:00
#! /usr/bin/env perl
BEGIN
{
unshift (@INC, "/home/tiw/perl/include");
unshift (@INC, "/home/tiw/sh/");
unshift (@INC,  "/home/tiw/perl/lib/perl5/5.8.0/");
unshift (@INC,  "/home/tiw/perl/lib/perl5/site_perl/5.8.0/");
unshift (@INC, "/home/tiw/perl/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/");
}
use MY::Util;
use warnings;
use strict;
my $N = 40;
my @ziffer = (qw/0/);
for (1..99999)
{
  @ziffer = add_one(@ziffer);
}
for (@ziffer)
{
  print ext_zahl($_);
}
sub add_one
{
  my @tmp = @_;
  my @result = ();
  my $overflow = 1;
  while (defined (my $z = pop @tmp))
  {
    $z += $overflow;
    if ($z == $N)
    {
      $overflow = 1;
      $z = 0;
    }else
    {
      $overflow = 0;
    }
    unshift @result, $z;
  }
  if ($overflow)
  {
    unshift @result, $overflow;
  }
  return @result;
}
sub ext_zahl
{
  my $ten_base = shift;
  my $any_base;
  if ($ten_base > 9 and $ten_base < 36)
  {
    $ten_base += 55;
    $any_base = chr($ten_base);
    return $any_base;
  }elsif ($ten_base > 35)
  {
    $ten_base += 61;
    $any_base = chr($ten_base);
    return $any_base;
  }
  else
  {
    return $ten_base;
  }
}


chr and ord -- function transform between alphabet and ascII code
2005-04-20T14:52:00.000+02:00
chr NUMBER
 returns the character represented by that NUMBER in the character set. e.g. chr(65) is "A";
ord EXPR
 returns the numeric value of the first character or EXPR. e.g. ord("A") is 65;


travle salesman problem with perl
2005-04-19T10:52:00.000+02:00
use warnings;
use strict;
my @tmp = (["a"]);
my @result;
my @source = (qw/b c d/);
my $last = $source[@source - 1];


permutation(@tmp);

 my $num = 0;
 for my $ra (@result)
 {
     print @$ra;
     print "#";
     $num += 1;
 }
 print "\n";
 print "the sum of perm is: $num\n";


#--subroutines
sub insert
{
  my $e = shift;
  my @a = @_;
  my @output;
  for my $i (1..@a)
  {
    my @tmp = @a;
    splice @tmp, $i, 0, $e;
    push @output, \@tmp;
  }
  return @output;
}


sub permutation
{
  my @tmp = @_;
  my $e= shift @source;
  if ($e ne $last)
  {
    my @tmp2;
    foreach my $ra (@tmp)
    {
      my @tmp = insert("$e", @$ra);
      push @tmp2, @tmp;
    }
    permutation(@tmp2);
  }else
  {
    foreach my $ra (@tmp)
    {
      my @tmp = insert("$e", @$ra);
      push @result, @tmp;
    }
  }
}


a perl progrom list all permutations
2005-04-19T10:36:00.000+02:00
use warnings;
use strict;
my @tmp = ([]);
my @result;
my @source = (qw/a b c d e/);
my $last = $source[@source - 1];


permutation(@tmp);

 my $num = 0;
 for my $ra (@result)
 {
     print @$ra;
     print "#";
     $num += 1;
 }
 print "\n";
 print "the sum of perm is: $num\n";


#--subroutines
sub insert
{
  my $e = shift;
  my @a = @_;
  my @output;
  for my $i (0..@a)
  {
    my @tmp = @a;
    splice @tmp, $i, 0, $e;
    push @output, \@tmp;
  }
  return @output;
}


sub permutation
{
  my @tmp = @_;
  my $e= shift @source;
  if ($e ne $last)
  {
    my @tmp2;
    foreach my $ra (@tmp)
    {
      my @tmp = insert("$e", @$ra);
      push @tmp2, @tmp;
    }
    permutation(@tmp2);
  }else
  {
    foreach my $ra (@tmp)
    {
      my @tmp = insert("$e", @$ra);
      push @result, @tmp;
    }
  }
}


Perl White Magic - Special Variables and Command Line Switches
2005-04-15T17:53:00.000+02:00
Perl White Magic - Special Variables and Command Line Switches: ".orig"


Select and Paste multiline with vi
2005-04-15T14:42:00.000+02:00
'V' let vi come into visual line model, in this model use 'j k h l' select lines.
'Y' yank these lines, 'p' paste lines.

ctrol-v let vi come into visual block , in this model use 'j k h l' a block can be selected.
'Y' yank there lines, 'p' paste lines.



如何编辑和理解/etc/fstab
2005-04-14T21:47:00.000+02:00
How to edit and understand /etc/fstab


如何加载一个新的文件系统到已经安装好了的linux上
2005-04-14T19:32:00.000+02:00
事情是这样发生的。
今年年初，我从c't的附带cdrom里得到了linux的debian发行。由于对RedHat的软件安装不满意，所以就在笔记本原来安装RedHat的5G的分区里安装了debian testing.
由于debain安装软件实在是太方便了，没多久5G的空间就不够了。硬盘里面还有三个5G的空间是给windows用的，现在用的实在比较少，决定分一个给debian。
前段时间正好看了lfs（LINUX FROM SCRACH），知道了如何建立分区，创建文件系统。

$su
 $cfdisk
 $mke2fs

很简单就搞定了。
由于软件默认都是安装在/usr下的，于是我马上把这个分区挂到/usr上，接下来就是把这个分区加到/etc/fstab里了。
$vi /etc/fstab
$command can not find
vi那里去了？
 which vi 没有结果，
 ls /usr啊怎么什么都没有了。
一定是由于挂载了新的分区到/usr， 还好reboot不在/usr里。
$reboot
世界又回到了原来的模样：）
嗯，这怎么办。。。最终在单位的administrator的指点下用了如下方法：（我的新分区是/dev/hda6）

$mount /dev/hda6 /mnt/tmp         (/mnt/tmp可以是任意一个空目录）
$cd /usr
 $tar cf - . |(cd /mnt/tmp; tar xf -)   (这里把以前/usr的东西搬到新的分区里）
$vi /etc/fstab
加入
  /dev/hda6       /usr            ext2    defaults,errors=remount-ro 0
/etc/fstab里的东西是什么意思看这里
$mv /usr /usr.save
$reboot
ok， 到这里就大功告成了，如果一切正常的话就可以把/usr.save删除了。


get STDOUT and STDERR of external application
2005-04-14T16:29:00.000+02:00
This coming form perldoc perlfaq8, not complete.
How can I capture STDERR from an external command?

       There are three basic ways of running external commands:

           system $cmd;                # using system()
           $output = `$cmd`;           # using backticks (``)
           open (PIPE, "cmd |");       # using open()

       With system(), both STDOUT and STDERR will go the same
       place as the script's STDOUT and STDERR, unless the sys
       tem() command redirects them.  Backticks and open() read
       only the STDOUT of your command.

       With any of these, you can change file descriptors before
       the call:

           open(STDOUT, ">logfile");
           system("ls");

       or you can use Bourne shell file-descriptor redirection:

           $output = `$cmd 2>some_file`;
           open (PIPE, "cmd 2>some_file |");

       You can also use file-descriptor redirection to make
       STDERR a duplicate of STDOUT:

           $output = `$cmd 2>&1`;
           open (PIPE, "cmd 2>&1 |");

       Note that you cannot simply open STDERR to be a dup of
       STDOUT in your Perl program and avoid calling the shell to
       do the redirection.  This doesn't work:

           open(STDERR, ">&STDOUT");
           $alloutput = `cmd args`;  # stderr still escapes

       This fails because the open() makes STDERR go to where
       STDOUT was going at the time of the open().  The backticks
       then make STDOUT go to a string, but don't change STDERR
       (which still goes to the old STDOUT).


格式化输入
2005-04-09T20:11:00.000+02:00
变量$~存储这当前的格式， format定义格式， write输出格式
#! /usr/bin/perl -w
use strict;
my $nameOfUni = "st";
my $object    = "flower";
my $local     = "park";
$~ = "EMAIL";
write ;
format EMAIL =
MESSAGE
PREDIFINE   @<<<<<<<<<<<<<<<<<<<<<<<<
            $nameOfUni
     @<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<
     $object     $local
somethingelse
.


A smail chinese-english dictionary
2005-04-08T15:48:00.000+02:00
This dictionay is use in command line, it is designed for the people like me (can access internet but
no chinese input methode). Dictionary www.tigernt.com is used.
#! /usr/bin/env perl
use warnings;
use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
my $input = "@ARGV";
my $ua = LWP::UserAgent->new();
my $req = POST 'http://www.tigernt.com/cgi-bin/cedict.cgi',
 [inputtype=>"pinyin", word=>$input, outputtype=>"gif",where=>"whole"];
my $content = $ua->request($req)->as_string;
my @contents = split/\n/, $content;
my $c = @ARGV;
foreach my $l (@contents)
{
  if ($l =~ m/\[(\w+.*)<\/A>\]\s+\/(.+)\//)
  {
    print "($1) -> $2\n";
  }
}


How to create a file handle to a scalar
2005-04-07T10:54:00.000+02:00
open SH, ">", \$somescaler or die "can not open scalar: $!";

With this technic, you can redirect STDOUT to a scalar:
  open SH, ">", \$s or die "can not open scalar $s: $!";
   select SH;
   print "this will be saved into scalar";
   select STDOUT;
    print "you can see it in tty now";


如何删除光标到行首
2005-04-03T17:39:00.000+02:00
M- - C- k
meta 加 －， 再输入 ctrl 加 k


move to previous window
2005-04-01T11:52:00.000+02:00
C-x o is a very useful command, with it we can move to other windows. But it can not move backword
through windows. If there have more than two windows and you want move to previous window, what 
you can do with C-x o is do it n-1 times ( n is number of windows ). C-x o is bind to function
(other-window), and we can give this funciton -1 as parameter to let it go backward a window, so
the following func whill solve this problem:
 (defun other-window-backward ()
  "select previous window"
  (interactive)
  (other-window -1))
bind it to a comfortable key, then you can easilly jump back to previous window.


make latex to ps and show it in gv in emacs
2005-03-31T16:41:00.000+02:00
(defun mps ()
  (interactive)
  (let ((file-name (buffer-file-name)) base-name)
    (if (not (string-match "^\\(.*\\)\\.tex$" file-name))
 (message "wrong buffer for this command")
      (setq base-name (match-string 1 file-name)))
    (shell-command (concat "latex " (buffer-file-name)))
    (shell-command (concat "dvips " base-name ".dvi -o"))
    (shell-command "rm -f *.aux *.dvi *.log *.toc")
    (shell-command (concat "gv " base-name ".ps"))))


emacs outline perl
2005-03-28T20:36:00.001+02:00
参看： http://www.perlmonks.org/?node_id=59405

如何在emacs中用outline看perl的代码：
把下面的代码加入到你的.emacs中：
(defun perl-outline-mode ()
  "set customized outline minor mode for Perl"
  (interactive)
  (setq outline-regexp 
    "#!.\\|\\(pac\\)kage\\|sub\\|\\(=he\\)ad\\|\\(=po\\)d")
  (outline-minor-mode))
(add-hook 'cperl-mode-hook
      '(lambda () (and (setq outline-regexp "sub") (outline-minor-mode))))

快捷键：
C-c @ C-t 折叠所有, C-c @ C-a展开所有, C-c @ C-d折叠一个方程, C-c @ C-s展开一个方程


perl成语之if (grep $_ eq $bar, @foo)
2005-03-28T11:21:00.000+02:00
参照：http://www.perlmonks.org/?node_id=280658
代码：

if (grep $_ eq $bar, @foo) {
   ...
}
解释：
这句代码比较好解释： 用途就是判定$bar是否是@foo
中的一个元素。 grep的作用是： 拿出@foo中的每一个
元素存储到$_中，做$_ eq $bar 的运算，返回值为附和
$_ eq $bar的元素的列表。 grep的用法具体参看grep


perl成语之keys %{{ map {$_ => 1} @list }}
2005-03-28T11:03:00.000+02:00
参照： http://www.perlmonks.org/?node_id=280658
代码：
  my @list = qw/a b c d d a e b a b d e f/;
  my @uniq = keys %{{ map {$_ => 1} @list }};

  print "@list\n@uniq\n";

  __output__

  a b c d d a e b a b d e f
  e f a b c d

解释：
这段代码提取出一个数组中不重复的元素，让我们来一段一段的了解，
她是如何运行的：
  map{$_ => 1} @list
这句产生出一系列的键/值对， 键为@list的值。

  {map {$_ => 1} @list}
加上打括号后， 产生了一个匿名的哈希，并且用map这句产生出的键/值对初始化，最终
我们得到了一个哈希的句柄。
  
  key %{{map {$_ =>} @list}}
这句吧上面得到的哈希句柄转换为一个哈希表，并且取出他的键值。
由于哈希的键值是唯一的，所以我们最终得到了@list中不重复的元素。


add a minor mode to a major mode
2005-03-24T16:28:00.000+01:00
eg.
(add-hook 'text-mode-hook (lambda () (abbrev-mode 1)))


abbreviation in emacs and vi
2005-03-24T16:18:00.000+01:00
I always write teh instead of the, in emacs and vi there have a good way to resolve this probem:
emacs:
(abbrev-mode 1)
(define-abbrev-table 'global-abbrev-table '(
    ("rh"  "RedHat Linux" nil 1)
    ("teh" "the" nil 1)
    ("mh" "stuwsl15" nil 1) ;; add any your abbreviation here
    ))
vi:
:iab teh the
:iab rh RehHat Linux " add any your abbreviation here


How to make emacs change mode of file to executalb when save file
2005-03-22T19:49:00.000+01:00
add this in your .emacs
(add-hook 'after-save-hook 'executable-make-buffer-file-executable-if-script-p)


Per6控制语句
2005-03-18T21:50:00.000+01:00
if
if之后的括号为可选的：
if $a <>
   say "this is ok in perl6"
 }
switch
引入了新的控制符 given when, 要理解given 和 when，必须了解
~~ smart matching. 下面的语句是等价的
given $a {
    when 'ting' {...}
    when /^ti../ {...}
     when (1..3) {...}
 }
 given $a {
      when $_ ~~ 'ting' {...}
      when $_ ~~ /^ti../ {...}
      when $_ ~~ (1..3) {...}
 }


EmacsWiki: MakingScriptsExecutableOnSave
2005-01-31T16:50:00.000+01:00
EmacsWiki: MakingScriptsExecutableOnSave

add exe feature to a file, when it is saved in emacs


BottomFeeder - Cross-platform RSS/Atom News Aggregator
2005-01-30T22:53:00.000+01:00
BottomFeeder - Cross-platform RSS/Atom News Aggregator: ""

a news reader


Software WithStyle - Home
2005-01-30T22:51:00.000+01:00
Software WithStyle - Home: "

        

      

      

      

        home

         | 

        screenshots

         | 

        developers

         | 

        about us

      "

WithStyle is a Web user interface, an XML renderer and editor. WithStyle uses standards-based technologies and is an application platform for web-based clients. The WithStyle editor provides a What You See Is What You Get (WYSIWYG) editing experience.


2005-01-30T11:45:00.000+01:00

uni-stuttgart 


EmacsWiki: SiteMap
2005-01-30T11:09:00.000+01:00
EmacsWiki: SiteMap一个emacs的宝库，

可以查找到你想要得几乎说有东西


一个很好的调试模块
2005-01-23T14:40:00.000+01:00
一个对调试很有用的模块，它改良了Dumper的功能。

看看下面的代码就知道了



use Data::Dumper;

my $s = "scalar";

my @a = ( "red", ["green", {yellow=>"blue"}]);

my %h = (name=>"wti", loveColor=>"blue");

print STDERR Dumper($s, \%h, \@a);

print STDERR Dumper($s, %h, @a);

#------------------------------------------------------

#  The output are:

#

#  $VAR1 = 'scalar';            

#  $VAR2 = {                    

#            'name' => 'wti',   

#            'loveColor' => 'blue'      

#          };                   

#  $VAR3 = [                    

#            'red',             

#            [                  

#              'green',         

#              {                        

#                'yellow' => 'blue'

#              }                        

#            ]                  

#          ];            

#  $VAR1 = 'scalar';

#  $VAR2 = 'name';

#  $VAR3 = 'wti';

#  $VAR4 = 'loveColor';

#  $VAR5 = 'blue';

#  $VAR6 = 'red';

#  $VAR7 = [

#            'green',

#            {

#              'yellow' => 'blue'

#            }

#          ];        

#------------------------------------------------------

use Data::Dumper::Simple;

print STDERR Dumper($s, \%h, \@a);

#------------------------------------------------------

#  The output are:

#

#  $s = 'scalar';                               

#  $h = {                                       

#         'name' => 'wti',                      

#         'loveColor' => 'blue'                 

#       };                                      

#  $a = [                                       

#         'red',                                

#         [                           

#           'green',                  

#           {                         

#             'yellow' => 'blue'      

#           }                         

#         ]                           

#       ];                            

#------------------------------------------------------



print STDERR Dumper($s, %h, @a);

#------------------------------------------------------

#  Outputs are same as Dumper($s, \%h, \@a)

#------------------------------------------------------

any character	.
start of line	^
end of line	$
0-any characters	*
1-any characters	+
0-1	?
range of characters	[ ... ]
anything but a range of characters	[^ ... ]
a special character	\
a tab character	\t
a newline character	\n
a backslash	\\
start or end of a word	\b
next string not in a word	\B
start of a word	\<
end of a word	\>
start of buffer	\`
end of buffer	\'
any word character	\w
any none word character
multiple patterns (or)	\\|
a group of character	\(...\)
a syntactic class	\sc
a character not in a syntactic class	\Sc