annotate xdwaddpage2.cpp @ 12:e07f9f1d1cc5 default tip

add xdw2pdf.
author pyon@macmini
date Fri, 02 Aug 2019 20:12:44 +0900
parents cc5262d43399
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
1 /* Makefile
8
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
2 debug: xdwaddpage2.cpp
5
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
3 #cls
8
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
4 gcc -g -O0 -I. xdwaddpage2.cpp xdwapi.lib
5
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
5
8
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
6 release: xdwaddpage2.cpp
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
7 gcc -I. xdwaddpage2.cpp xdwapi.lib -static -o xdwaddpage2.exe
5
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
8 strip xdwaddpage2.exe
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
9
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
10 clean:
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
11 rm -rf tempXXXX
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
12 */
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
13
8
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
14 #include <unistd.h>
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
15 #include <stdbool.h>
5
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
16 #include <stdio.h>
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
17 #include <string.h>
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
18 #include <stdlib.h>
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
19 #include <time.h>
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
20 #include <io.h>
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
21 #include <windows.h>
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
22 #include <xdw_api.h>
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
23 #include <xdwapian.h>
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
24
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
25
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
26 void print_error( int code ) {
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
27 fprintf( stderr, "Error code : %d\n", code );
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
28 switch ( code ) {
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
29 case XDW_E_NOT_INSTALLED:
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
30 fprintf( stderr, "DocuWorksがインストールされていません。" );
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
31 break;
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
32 case XDW_E_FILE_NOT_FOUND:
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
33 fprintf( stderr, "指定されたファイルが見つかりません。" );
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
34 break;
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
35 case XDW_E_FILE_EXISTS:
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
36 fprintf( stderr, "指定されたファイルはすでに存在します。" );
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
37 break;
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
38 case XDW_E_ACCESSDENIED:
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
39 case XDW_E_INVALID_NAME:
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
40 case XDW_E_BAD_NETPATH:
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
41 fprintf( stderr, "指定されたファイルを開くことができません。" );
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
42 break;
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
43 case XDW_E_BAD_FORMAT:
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
44 fprintf( stderr, "指定されたファイルは正しいフォーマットではありません。" );
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
45 break;
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
46 case XDW_E_INVALID_ACCESS:
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
47 fprintf( stderr, "指定された操作をする権利がありません。" );
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
48 break;
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
49 default:
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
50 fprintf( stderr, "エラーが発生しました。" );
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
51 break;
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
52 }
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
53 }
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
54
8
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
55 void print_help() {
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
56 char prog[12] = "xdwaddpage2";
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
57 fprintf( stderr, "Usage:\n" );
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
58 fprintf( stderr, " %s infile\n", prog );
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
59 fprintf( stderr, " %s -l infile\n", prog );
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
60 fprintf( stderr, " %s -ltxt infile\n", prog );
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
61 fprintf( stderr, " %s -s S infile\n", prog );
9
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
62 fprintf( stderr, " %s -c infile1 infile2 ...\n", prog );
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
63 fprintf( stderr, " %s -s S -c infile1 infile2 ...\n", prog );
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
64 fprintf( stderr, " %s -s S -ltxt -c infile1 infile2 ...\n", prog );
8
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
65 fprintf( stderr, " %s -v infile\n", prog );
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
66 }
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
67
5
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
68 void print_now( char const *msg ) {
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
69 time_t now = time( NULL );
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
70 struct tm *ts = localtime( &now );
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
71
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
72 char buf[80];
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
73 strftime( buf, sizeof( buf ), "%H:%M:%S %Z", ts );
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
74 printf( "%s\t%s\n", buf, msg );
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
75 }
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
76
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
77 int add_annotation( XDW_DOCUMENT_HANDLE h, int page, int x, int y, char* string, int* sz, int tr )
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
78 {
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
79 // テキストアノテーションを作成する
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
80 XDW_ANNOTATION_HANDLE annoation;
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
81 int api_result = XDW_AddAnnotation( h, XDW_AID_TEXT, page, x, y, NULL, &annoation, NULL );
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
82 if ( api_result < 0 ) return api_result;
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
83
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
84 // 作成したアノテーションに文字列を設定する
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
85 api_result = XDW_SetAnnotationAttribute( h, annoation, XDW_ATN_Text, XDW_ATYPE_STRING, string, 0, NULL ); // 文字テキスト
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
86 api_result = XDW_SetAnnotationAttribute( h, annoation, XDW_ATN_FontSize, XDW_ATYPE_INT, reinterpret_cast<char*>(sz), 0, NULL ); // フォントサイズ
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
87 if ( tr ) {
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
88 int color = XDW_COLOR_NONE;
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
89 api_result = XDW_SetAnnotationAttribute( h, annoation, XDW_ATN_BackColor, XDW_ATYPE_INT, reinterpret_cast<char*>(&color), 0, NULL );
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
90 }
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
91
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
92 return api_result;
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
93 }
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
94
9
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
95 int add_page( const char* file, int sp, bool pleft, const char* ltext )
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
96 {
5
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
97 XDW_DOCUMENT_HANDLE h = NULL; // 文書ハンドルを開く
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
98 XDW_OPEN_MODE_EX mode = { sizeof( XDW_OPEN_MODE_EX ), XDW_OPEN_UPDATE, XDW_AUTH_NODIALOGUE };
9
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
99 int api_result = XDW_OpenDocumentHandle( file, &h, (XDW_OPEN_MODE*)&mode );
5
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
100 if ( api_result < 0 ) {
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
101 print_error( api_result );
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
102 return 0;
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
103 }
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
104
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
105 XDW_DOCUMENT_INFO info = { sizeof( XDW_DOCUMENT_INFO ), 0 }; // XDW_GetDocumentInformationを用いて総ページ数を得る
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
106 XDW_GetDocumentInformation( h, &info );
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
107 int last_page = info.nPages;
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
108
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
109 int sz = 80; // 文字サイズ
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
110 int tr = 1; // 透明フラグ
8
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
111 char pagenum[18], lpagenum[30];
5
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
112
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
113 // アノテーションを貼り付ける
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
114 for ( int p = 0; p < last_page; p++ ) {
9
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
115 sprintf( pagenum, "%05d-%04d-%04d", p + sp, p + 1, last_page );
5
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
116 api_result = add_annotation( h, p + 1, 17500, 28500, pagenum, &sz, tr ); // 右下
8
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
117 if ( pleft ) {
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
118 if ( ltext != NULL )
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
119 sprintf( lpagenum, "%s%s", pagenum, ltext );
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
120 else
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
121 sprintf( lpagenum, "%s", pagenum );
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
122 api_result = add_annotation( h, p + 1, 1700, 5600, lpagenum, &sz, tr ); // 左上
61ce4754737e bug fix.
pyon@macmini
parents: 7
diff changeset
123 }
5
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
124 if ( api_result < 0 ) {
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
125 print_error( api_result );
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
126 break;
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
127 }
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
128 }
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
129
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
130 if ( api_result >= 0 ) // 変更をファイルに反映する
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
131 api_result = XDW_SaveDocument( h, NULL );
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
132
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
133 XDW_CloseDocumentHandle( h, NULL ); // 文書ハンドルを閉じる
9
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
134 return sp + last_page;
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
135 }
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
136
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
137 int main( int argc, char* argv[] ) {
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
138
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
139 /* オプションの解析 */
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
140 bool pnow = false;
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
141 bool pleft = false;
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
142 bool chain = false;
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
143 char *ltext = NULL;
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
144 int sp = 1;
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
145
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
146 int opt;
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
147 while ( ( opt = getopt( argc, argv, "vs:l::c" ) ) != -1 ) {
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
148 switch ( opt ) {
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
149 case 'v':
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
150 pnow = true;
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
151 print_now( "start." );
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
152 break;
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
153 case 'l':
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
154 pleft = true;
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
155 ltext = optarg;
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
156 break;
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
157 case 's':
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
158 sp = atoi( optarg );
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
159 if ( sp == 0 ) {
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
160 print_help();
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
161 exit( 1 );
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
162 }
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
163 break;
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
164 case 'c': // chain mode
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
165 chain = true;
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
166 break;
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
167 default:
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
168 print_help();
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
169 exit( 1 );
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
170 }
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
171 }
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
172
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
173 char in_path[ _MAX_PATH ];
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
174
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
175 /* 本処理 */
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
176 int api_result = 0;
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
177 if ( chain ) {
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
178 int lp = sp;
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
179 for ( int i = optind; i < argc; i++ ) {
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
180 _fullpath( in_path, argv[ i ], _MAX_PATH );
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
181 lp = add_page( in_path, lp, pleft, ltext );
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
182 if ( pnow ) print_now( in_path );
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
183 }
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
184 }
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
185 else {
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
186 _fullpath( in_path, argv[ argc - 1 ], _MAX_PATH );
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
187 add_page( in_path, sp, pleft, ltext );
cc5262d43399 small changes.
pyon@macmini
parents: 8
diff changeset
188 }
5
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
189
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
190 if ( pnow ) print_now( "done." );
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
191 return 0;
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
192 }
55f10a3aacb0 add xdwaddpage2.
pyon@macmini
parents:
diff changeset
193