Context Navigation

source: branches/help/AWT/AWT_asciiprint.cxx

Visit:

Last change on this file was 18760, checked in by westram, 3 years ago
change layout of 'Color Translation Table' properties window (make space for HELP button). add help button (fixes #326) change documentation of 'Define Color Translations'.
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 17.2 KB

Line
1	// ================================================================ //
2	// //
3	// File : AWT_asciiprint.cxx //
4	// Purpose : //
5	// //
6	// Institute of Microbiology (Technical University Munich) //
7	// http://www.arb-home.de/ //
8	// //
9	// ================================================================ //
10
11	#include "awt_asciiprint.hxx"
12	#include "awt.hxx"
13
14	#include <aw_window.hxx>
15	#include <aw_root.hxx>
16	#include <aw_question.hxx>
17	#include <aw_awar.hxx>
18	#include <aw_msg.hxx>
19	#include <arbdbt.h>
20
21	static double awt_aps_get_xy_ratio(AW_root *awr) {
22	// AWT_asciiprint_paper_size psize = (AWT_asciiprint_paper_size)awr->awar(AWAR_APRINT_PAPER_SIZE)->read_int();
23	AWT_asciiprint_orientation ori = AWT_asciiprint_orientation(awr->awar(AWAR_APRINT_ORIENTATION)->read_int());
24	double res = 1.0;
25	switch (ori) {
26	case AWT_APRINT_ORIENTATION_PORTRAIT:
27	res = 112.0/90.0;
28	break;
29	case AWT_APRINT_ORIENTATION_LANDSCAPE:
30	res = 112.0/50.0;
31	break;
32	case AWT_APRINT_ORIENTATION_DOUBLE_PORTRAIT:
33	res = 103.0/90.0;
34	break;
35	}
36	return res;
37	}
38
39	static int awt_aps_get_default_lines_per_page(AW_root *awr) {
40	AWT_asciiprint_orientation ori = AWT_asciiprint_orientation(awr->awar(AWAR_APRINT_ORIENTATION)->read_int());
41	switch (ori) {
42	case AWT_APRINT_ORIENTATION_PORTRAIT:
43	return 80;
44	case AWT_APRINT_ORIENTATION_LANDSCAPE:
45	return 60;
46	case AWT_APRINT_ORIENTATION_DOUBLE_PORTRAIT:
47	return 80;
48	}
49	return -1;
50	}
51
52
53	static void awt_aps_calc_pages_needed(AW_root *awr) {
54	int mag = awr->awar(AWAR_APRINT_MAGNIFICATION)->read_int();
55	if (mag < 25) {
56	awr->awar(AWAR_APRINT_MAGNIFICATION)->write_int(mag*2);
57	return;
58	}
59	if (mag > 250) {
60	awr->awar(AWAR_APRINT_MAGNIFICATION)->write_int(250);
61	return;
62	}
63
64	int x = awr->awar(AWAR_APRINT_SX)->read_int() * mag / 100;
65	int y = awr->awar(AWAR_APRINT_SY)->read_int() * mag / 100;
66	int default_lpp = awt_aps_get_default_lines_per_page(awr);
67	double xy_ratio = awt_aps_get_xy_ratio(awr);
68	int default_cpp = int(default_lpp * xy_ratio);
69
70	awr->awar(AWAR_APRINT_DX)->write_float(float(x)/default_cpp);
71	awr->awar(AWAR_APRINT_DY)->write_float(float(y)/default_lpp);
72	x += default_cpp-1;
73	y += default_lpp-1;
74	x /= default_cpp;
75	y /= default_lpp;
76
77	awr->awar(AWAR_APRINT_PAGES)->write_int(x* y);
78	}
79
80
81	static void awt_aps_set_magnification_to_fit_xpage(AW_root *awr) {
82	int x = awr->awar(AWAR_APRINT_SX)->read_int();
83
84	int dx = int(awr->awar(AWAR_APRINT_DX)->read_float()+.5);
85	if (dx < 1) dx = 1;
86	if (dx > 99) dx = 99;
87
88	int default_lpp = awt_aps_get_default_lines_per_page(awr);
89	double xy_ratio = awt_aps_get_xy_ratio(awr);
90	int default_cpp = int(default_lpp * xy_ratio);
91	int mag = 100 * default_cpp * dx / x;
92	awr->awar(AWAR_APRINT_MAGNIFICATION)->write_int(mag);
93	awt_aps_calc_pages_needed(awr);
94	}
95
96	static void awt_aps_set_magnification_to_fit_ypage(AW_root *awr) {
97	int y = awr->awar(AWAR_APRINT_SY)->read_int();
98
99	int dy = int(awr->awar(AWAR_APRINT_DY)->read_float()+.5);
100	if (dy < 1) dy = 1;
101	if (dy > 99) dy = 99;
102
103	int default_lpp = awt_aps_get_default_lines_per_page(awr);
104	int mag = 100 * default_lpp * dy / y;
105	awr->awar(AWAR_APRINT_MAGNIFICATION)->write_int(mag);
106	awt_aps_calc_pages_needed(awr);
107	}
108
109	static void awt_aps_set_magnification_to_fit_xpage(AW_window *aww) {
110	awt_aps_set_magnification_to_fit_xpage(aww->get_root());
111	}
112	static void awt_aps_set_magnification_to_fit_ypage(AW_window *aww) {
113	awt_aps_set_magnification_to_fit_ypage(aww->get_root());
114	}
115	static void awt_aps_text_changed(AW_root *awr) {
116	char *text = awr->awar(AWAR_APRINT_TEXT)->read_string();
117	{
118	char *rtext = GBS_replace_tabs_by_spaces(text);
119	delete text;
120	text = rtext;
121	}
122	int maxx, y;
123	maxx = 1; y = 0;
124	char *s;
125	char *ns;
126	for (s = text; s; s=ns) {
127	ns = strchr(s, '\n');
128	if (ns) {
129	ns[0] = 0;
130	ns++;
131	}
132	int slen = strlen(s);
133	if (slen > maxx) {
134	maxx = slen;
135	}
136	y++;
137	}
138	if (!y) y++;
139	awr->awar(AWAR_APRINT_SX)->write_int(maxx);
140	awr->awar(AWAR_APRINT_SY)->write_int(y);
141	delete text;
142	awt_aps_set_magnification_to_fit_xpage(awr);
143	}
144
145	static void write_file(const char filename, const char file) {
146	fprintf(stderr, "Printing to ASCII file '%s'\n", filename);
147	FILE *f = fopen(filename, "r");
148	if (f) {
149	fclose(f);
150	if (aw_question("overwrite_file", GBS_global_string("File '%s' already exist", filename), "Overwrite,Cancel")) {
151	return;
152	}
153	}
154	f = fopen(filename, "w");
155	if (!f) {
156	aw_message(GBS_global_string("Cannot write to '%s'", filename));
157	return;
158	}
159	fprintf(f, "%s", file);
160	fclose(f);
161	}
162
163	static char printFile(AW_root awr) {
164	const char *home = GB_getenv("HOME");
165	const char *name = awr->awar(AWAR_APRINT_FILE)->read_char_pntr();
166	return GBS_global_string_copy("%s/%s", home, name);
167	}
168
169	static void awt_aps_go(AW_window *aww) {
170	AW_root *awr = aww->get_root();
171	char *text = awr->awar(AWAR_APRINT_TEXT)->read_string();
172
173	freeset(text, GBS_replace_tabs_by_spaces(text));
174
175	AWT_asciiprint_destination dest = (AWT_asciiprint_destination)awr->awar(AWAR_APRINT_PRINTTO)->read_int();
176	if (dest == AWT_APRINT_DEST_FILE_ASCII) {
177	char *file = printFile(awr);
178	write_file(file, text);
179	free(file);
180	}
181	else {
182	char *tmp_file;
183	FILE *tmpf;
184	{
185	char *name = GB_unique_filename("arb_aprint", "txt");
186	tmpf = GB_fopen_tempfile(name, "wt", &tmp_file);
187	free(name);
188	}
189
190	GB_ERROR error = NULp;
191	if (!tmpf) {
192	error = GBS_global_string("awt_aps_go: %s", GB_await_error());
193	}
194	else {
195	char *y_begin = text;
196	int last_y = 0;
197
198	double xy_ratio = awt_aps_get_xy_ratio(awr);
199	int mag = awr->awar(AWAR_APRINT_MAGNIFICATION)->read_int();
200
201	int default_lpp = awt_aps_get_default_lines_per_page(awr);
202	int default_cpp = int(default_lpp * xy_ratio);
203	default_cpp = default_cpp * 100 / mag;
204	default_lpp = default_lpp * 100 / mag;
205
206	int text_width = awr->awar(AWAR_APRINT_SX)->read_int();
207	int text_height = awr->awar(AWAR_APRINT_SY)->read_int();
208
209	int x;
210	int y;
211
212	for (y = 0; y < text_height; y += default_lpp) {
213	while (last_y < y) {
214	last_y ++;
215	y_begin = strchr(y_begin, '\n');
216	if (!y_begin) break;
217	y_begin++;
218	}
219	if (!y_begin) break;
220
221	for (x = 0; x < text_width; x += default_cpp) {
222	char *line = y_begin;
223	int i;
224	for (i=0; i<default_lpp; i++) {
225	if (line) {
226	char *next_line = strchr(line, '\n');
227	int line_length;
228	if (next_line) {
229	line_length = next_line - line; // exclusive '\n'
230	next_line ++;
231	}
232	else {
233	line_length = strlen(line);
234	}
235	if (line_length > x + default_cpp) {
236	line_length = x + default_cpp;
237	}
238	if (line_length > x) {
239	fwrite(line + x, sizeof(char), line_length - x, tmpf);
240	}
241	line = next_line;
242	}
243	fprintf(tmpf, "\n");
244	}
245	}
246	}
247	fclose(tmpf);
248
249	char *a2ps_call = NULp;
250	{
251	AWT_asciiprint_orientation ori = AWT_asciiprint_orientation(awr->awar(AWAR_APRINT_ORIENTATION)->read_int());
252	const char *oristring = "";
253	switch (ori) {
254	case AWT_APRINT_ORIENTATION_PORTRAIT:
255	oristring = "-p -1 ";
256	break;
257	case AWT_APRINT_ORIENTATION_LANDSCAPE:
258	oristring = "-l -1 ";
259	break;
260	case AWT_APRINT_ORIENTATION_DOUBLE_PORTRAIT:
261	oristring = "-p -2 ";
262	break;
263	}
264	const char *header = awr->awar(AWAR_APRINT_TITLE)->read_char_pntr();
265	char *quotedHeaderArg = GBK_singlequote(GBS_global_string("-H%s", header));
266	a2ps_call = GBS_global_string_copy("arb_a2ps -ns -nP %s %s -l%i %s",
267	quotedHeaderArg, oristring, default_lpp, tmp_file);
268	free(quotedHeaderArg);
269	}
270
271	const char *scall = NULp;
272	switch (dest) {
273	case AWT_APRINT_DEST_PRINTER: {
274	char *printer = awr->awar(AWAR_APRINT_PRINTER)->read_string();
275	scall = GBS_global_string("%s \|%s; rm -f %s", a2ps_call, printer, tmp_file);
276	free(printer);
277	break;
278	}
279	case AWT_APRINT_DEST_FILE_PS: {
280	char *file = printFile(awr);
281	char *quotedFile = GBK_singlequote(file);
282	fprintf(stderr, "Printing to PS file %s\n", quotedFile);
283	scall = GBS_global_string("%s >%s;rm -f %s", a2ps_call, quotedFile, tmp_file);
284	free(quotedFile);
285	free(file);
286	break;
287	}
288	case AWT_APRINT_DEST_PREVIEW: {
289	char *tmp_file2;
290	{
291	char *name_only;
292	GB_split_full_path(tmp_file, NULp, NULp, &name_only, NULp);
293	tmp_file2 = GB_create_tempfile(GBS_global_string("%s.ps", name_only));
294	free(name_only);
295	}
296
297	if (!tmp_file2) error = GB_await_error();
298	else {
299	scall = GBS_global_string("%s >%s;(%s %s;rm -f %s %s)&",
300	a2ps_call, tmp_file2,
301	GB_getenvARB_GS(), tmp_file2,
302	tmp_file, tmp_file2);
303	free(tmp_file2);
304	}
305	break;
306	}
307	default:
308	awt_assert(0);
309	break;
310	}
311
312	if (scall) error = GBK_system(scall);
313	free(a2ps_call);
314	}
315	if (error) aw_message(error);
316	free(tmp_file);
317	}
318	free(text);
319	}
320
321	static void cutExt(char name, const char removeExt) {
322	char *found = strstr(name, removeExt);
323	if (found && strcmp(found, removeExt) == 0) {
324	found[0] = 0;
325	}
326	}
327	static char correct_extension(const char name, const char *newExt) {
328	char *noExt = ARB_strdup(name);
329	cutExt(noExt, ".ps");
330	cutExt(noExt, ".txt");
331
332	char *result = ARB_alloc<char>(strlen(noExt)+strlen(newExt)+1);
333	strcpy(result, noExt);
334	strcat(result, newExt);
335	if (strcmp(name, result) == 0) freenull(result);
336
337	free(noExt);
338	return result;
339	}
340
341	static void aps_correct_filename(AW_root *aw_root) {
342	int type = aw_root->awar(AWAR_APRINT_PRINTTO)->read_int();
343	if (type == AWT_APRINT_DEST_FILE_PS \|\| type == AWT_APRINT_DEST_FILE_ASCII) {
344	AW_awar *awar_name = aw_root->awar(AWAR_APRINT_FILE);
345	const char *name = awar_name->read_char_pntr();
346	char *new_name = NULp;
347
348	if (type == AWT_APRINT_DEST_FILE_PS) {
349	new_name = correct_extension(name, ".ps");
350	}
351	else {
352	awt_assert((type == AWT_APRINT_DEST_FILE_ASCII));
353	new_name = correct_extension(name, ".txt");
354	}
355	if (new_name) {
356	awar_name->write_string(new_name);
357	free(new_name);
358	}
359	}
360	}
361
362	void AWT_create_ascii_print_window(AW_root awr, const char text_to_print, const char *title) {
363	static AW_window_simple *aws = NULp;
364
365	awr->awar_string(AWAR_APRINT_TEXT)->write_string(text_to_print);
366	if (title) {
367	awr->awar_string(AWAR_APRINT_TITLE)->write_string(title);
368	}
369	if (aws) {
370	awr->awar_float(AWAR_APRINT_DX)->write_float(1.0);
371	}
372	else {
373	aws = new AW_window_simple;
374	aws->init(awr, "PRINT", "PRINT");
375	aws->load_xfig("awt/ascii_print.fig");
376	awr->awar_string(AWAR_APRINT_TITLE);
377	awr->awar_string(AWAR_APRINT_TEXT) ->add_callback(awt_aps_text_changed);
378
379	awr->awar_int(AWAR_APRINT_PAPER_SIZE, (int)AWT_APRINT_PAPERSIZE_A4) ->add_callback(awt_aps_set_magnification_to_fit_xpage);
380	awr->awar_int(AWAR_APRINT_MAGNIFICATION, 100) ->add_callback(awt_aps_calc_pages_needed);
381	awr->awar_int(AWAR_APRINT_PAGES, 1);
382	awr->awar_int(AWAR_APRINT_SX, 1);
383	awr->awar_int(AWAR_APRINT_SY, 1);
384
385	awr->awar_float(AWAR_APRINT_DX, 1.0);
386	awr->awar_float(AWAR_APRINT_DY, 1.0);
387
388	awr->awar_string(AWAR_APRINT_FILE, "print.ps")->add_callback(aps_correct_filename);
389
390	awr->awar_int(AWAR_APRINT_ORIENTATION, (int)AWT_APRINT_ORIENTATION_PORTRAIT)->add_callback(awt_aps_set_magnification_to_fit_xpage);
391	awr->awar_int(AWAR_APRINT_PRINTTO, int(AWT_APRINT_DEST_PRINTER))->add_callback(aps_correct_filename);
392	aps_correct_filename(awr);
393
394	{
395	char *print_command;
396	if (getenv("PRINTER")) {
397	print_command = GBS_eval_env("lpr -h -P$(PRINTER)");
398	}
399	else {
400	print_command = ARB_strdup("lpr -h");
401	}
402
403	awr->awar_string(AWAR_APRINT_PRINTER, print_command);
404	free(print_command);
405	}
406
407	awt_aps_text_changed(awr);
408
409	aws->at("close");
410	aws->callback(AW_POPDOWN);
411	aws->create_button("CLOSE", "CLOSE");
412
413	aws->at("help");
414	aws->callback(makeHelpCallback("asciiprint.hlp"));
415	aws->create_button("HELP", "HELP");
416
417	aws->at("go");
418	aws->callback(awt_aps_go);
419	aws->create_button("PRINT", "PRINT");
420
421	aws->at("title");
422	aws->create_input_field(AWAR_APRINT_TITLE);
423
424	aws->at("text");
425	aws->create_text_field(AWAR_APRINT_TEXT);
426
427	aws->button_length(5);
428	aws->at("rows");
429	aws->create_button(NULp, AWAR_APRINT_SY);
430
431	aws->at("columns");
432	aws->create_button(NULp, AWAR_APRINT_SX);
433
434	aws->at("magnification");
435	aws->create_input_field(AWAR_APRINT_MAGNIFICATION, 4);
436
437	aws->at("paper_size");
438	{
439	aws->create_toggle_field(AWAR_APRINT_PAPER_SIZE, 1);
440	aws->insert_toggle("A4", "A", int(AWT_APRINT_PAPERSIZE_A4));
441	aws->insert_toggle("US", "U", int(AWT_APRINT_PAPERSIZE_US));
442	aws->update_toggle_field();
443	}
444
445	aws->at("orientation");
446	{
447	aws->create_toggle_field(AWAR_APRINT_ORIENTATION, 1);
448	aws->insert_toggle("#print/portrait.xpm", "P", int(AWT_APRINT_ORIENTATION_PORTRAIT));
449	aws->insert_toggle("#print/landscape.xpm", "P", int(AWT_APRINT_ORIENTATION_LANDSCAPE));
450	aws->update_toggle_field();
451	}
452
453
454	aws->at("pages");
455	aws->create_button(NULp, AWAR_APRINT_PAGES);
456
457	aws->at("dcol");
458	aws->callback(awt_aps_set_magnification_to_fit_xpage); // @@@ used as INPUTFIELD_CB (see #559)
459	aws->create_input_field(AWAR_APRINT_DX, 4);
460
461	aws->at("drows");
462	aws->callback(awt_aps_set_magnification_to_fit_ypage); // @@@ used as INPUTFIELD_CB (see #559)
463	aws->create_input_field(AWAR_APRINT_DY, 4);
464
465
466	aws->at("printto");
467	aws->create_toggle_field(AWAR_APRINT_PRINTTO);
468	aws->insert_toggle("Printer", "P", int(AWT_APRINT_DEST_PRINTER));
469	aws->insert_toggle("File (Postscript)", "F", int(AWT_APRINT_DEST_FILE_PS));
470	aws->insert_toggle("File (ASCII)", "A", int(AWT_APRINT_DEST_FILE_ASCII));
471	aws->insert_toggle("Preview", "V", int(AWT_APRINT_DEST_PREVIEW));
472	aws->update_toggle_field();
473
474	aws->at("printer");
475	aws->create_input_field(AWAR_APRINT_PRINTER, 16);
476
477	aws->at("filename");
478	aws->create_input_field(AWAR_APRINT_FILE, 16);
479	}
480	aws->activate();
481	}
482
483
484	void AWT_show_file(AW_root awr, const char filename) {
485	char *text = GB_read_file(filename);
486	if (!text) {
487	aw_message(GB_await_error());
488	}
489	else {
490	AWT_create_ascii_print_window(awr, text, filename);
491	free(text);
492	}
493	}

Note: See TracBrowser for help on using the repository browser.

Download in other formats: