home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 5 Edit
/
05-Edit.zip
/
psform.zip
/
REGIST.C
< prev
next >
Wrap
Text File
|
1995-05-04
|
38KB
|
1,453 lines
/*****************************************************************************/
/* */
/* FORM PRINT PROGRAMM */
/* ------------------- */
/* */
/* */
/* COPYRIGHT: */
/* ---------- */
/* */
/* Copyright (C) Arno Müller, Hermann Schmitt, 1994,1995. */
/* */
/* REVISION LEVEL: 1.0 */
/* --------------- */
/* */
/* */
/* NECESSARY FILES FOR COMPLILATION: */
/* -------------------------------- */
/* */
/* msg.h - Messages */
/* globals.h - global data */
/* */
/* NECESSARY LINK FILE: */
/* --------------------- */
/* */
/* PSF.OBJ - Functions */
/* */
/* INPUT PARAMETER: */
/* ---------------- */
/* */
/* 1. varfile, with the variable data */
/* 2. printfile, with which the output-data can be printed */
/* 3. constfile, for constant data in a run */
/* */
/* OUTPUT: */
/* ------- */
/* */
/* The Postscriptstream of the form(s) filled with replaced data. */
/* */
/*****************************************************************************/
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include "globals.h"
#include "msg.h"
/******************************************************************************
* *
* Functions declared by the User *
* *
******************************************************************************/
char *f_amount(char *currency, char *quantity)
{
int q;
int faktor = 0;
int us = 20;
int dm = 25;
char ergebnis[6];
if ( strlen(currency) < 4 ) {
if ( strcmp(currency, "DM") == 0 ) {
faktor = dm;
} else {
if ( strcmp(currency, "US$") == 0 ) {
faktor = us;
} else {
printf("Falsche Währungsangabe ! / Wrong currency ! \n");
strcpy( ergebnis, NULL);
}
}
if ( strlen(quantity) < 3 ) {
q = atoi(quantity);
q = q * faktor;
itoa(q, ergebnis, 10);
} else {
printf("Falsche Währungsangabe ! / Wrong currency !\n");
strcpy( ergebnis, NULL);
}
} else {
printf("Falsche Währungsangabe ! / Wrong currency !\n");
strcpy( ergebnis, NULL);
}
return ergebnis;
}
/******************************************************************************
* *
* Function to print the User Function Return Value *
* *
******************************************************************************/
void typ_3_druck(Posliste *liste, FILE *druckdatei)
{
Posliste *funktion;
Posliste *erste_funktion;
erste_funktion = create_posliste_element();
funktion = erste_funktion;
funktion->daten.typ = 3;
strcpy( funktion->varname, "Amount" );
strcpy( funktion->daten.funktion, f_amount( f_index2(3), f_index2(2) ) );
strcpy( funktion->daten.fuellzeichen, " " );
strcpy( funktion->daten.ausrichtung, "r" );
funktion->next = create_posliste_element();
funktion = funktion->next;
for ( funktion = erste_funktion; funktion != NULL;
funktion = funktion->next) {
if ( strcmp(funktion->varname, liste->varname) == 0 ) {
funktion->laenge = liste->laenge;
ufuell(funktion->daten.funktion, funktion, druckdatei);
} /* endif */
} /* endfor */
}
/******************************************************************************
* *
* Program, which print a form *
* *
******************************************************************************/
main(int argc, char *argv[], char *envp[])
{
FILE *fp_var, *fp_prt, *fp_ini;
char *fdp_ps, *fdp_spe;
char *fdp_ini;
Posliste *varliste, *spezliste, *help_1, *help_2, *help_3;
int i = 0;
/***************************************************************************/
/* Declaration of the Postscript_Data */
/***************************************************************************/
char postscript[] = "%!PS-Adobe-1.0 EPSF-1.0\
%%DocumentFonts:\
%%Creator: Harvard Graphics 3.0\
%%BoundingBox: 24 24 587 767\
%%EndComments\
%%BeginSetup\
%%EndSetup\
\
gsave\
/SB {statusdict begin} def\
/ESB {end} def\
/hg3letter {/letter true SB setpapersize ESB } def\
/hg3legal {/legal true SB setpapersize ESB } def\
/hg3a4 {/a4 true SB setpapersize ESB } def\
/N /newpath load def\
/M /moveto load def\
/L /lineto load def\
/E /eofill load def\
/S /stroke load def\
/P /closepath load def\
/C { 2 index 255 div\
2 index 255 div\
2 index 255 div setrgbcolor\
pop pop pop\
} def\
/B { N C M L S } def\
/PT {counttomark 1 exch 2 exch {pop SL M SL L} for pop} def\
/lpat0 [] def \
/lpat1 [ 5 5 ] def \
/lpat2 [ 12 12 ] def \
/Rect {\
3 index 3 index M\
3 index 1 index L\
1 index 1 index L\
1 index 3 index L P\
pop pop pop pop \
} bind def \
/ellipsedict 8 dict def\
ellipsedict /mtrx matrix put\
/ellipse\
{ ellipsedict begin\
/endangle exch def\
/startangle exch def\
/yrad exch def\
/xrad exch def\
/y exch def\
/x exch def\
/savematrix mtrx currentmatrix def\
x y translate\
xrad yrad scale\
0 0 1 startangle endangle arc\
savematrix setmatrix\
end\
} bind def\
\
/rrectdict 5 dict def\
/Rrect {\
rrectdict begin\
/Radius exch def\
/Top exch def\
/Right exch def\
/Bottom exch def\
/Left exch def\
Left Bottom Radius add moveto\
Left Top Right Top Radius arcto 4 {pop} repeat\
Right Top Right Bottom Radius arcto 4 {pop} repeat\
Right Bottom Left Bottom Radius arcto 4 {pop} repeat\
Left Bottom Left Top Radius arcto 4 {pop} repeat\
end\
} bind def\
\
\
/ReEncodeDict 12 dict def\
\
/ReEncode\
{ ReEncodeDict begin\
\
/newencoding exch def\
/newfontname exch def\
/basefontname exch def\
\
/basefontdict basefontname findfont def\
/newfont basefontdict maxlength dict def\
\
basefontdict\
{ exch dup /FID ne\
{ dup /Encoding eq\
{ exch dup length array copy newfont 3 1 roll put }\
{ exch newfont 3 1 roll put }\
ifelse\
}\
{ pop pop }\
ifelse\
} forall\
\
newfont /FontName newfontname put\
newencoding aload pop\
\
newencoding length 2 idiv\
{ newfont /Encoding get 3 1 roll put }\
repeat\
\
newfontname newfont definefont pop\
\
end\
} def\
\
/RR-ReEncoding [\
128 /Ccedilla\
129 /udieresis\
130 /eacute \
131 /acircumflex \
132 /adieresis \
133 /agrave \
134 /aring \
135 /ccedilla \
136 /ecircumflex \
137 /edieresis \
138 /egrave \
139 /idieresis \
140 /icircumflex \
141 /igrave \
142 /Adieresis\
143 /Aring\
144 /Eacute\
145 /ae\
146 /AE\
147 /ocircumflex\
148 /odieresis\
149 /ograve\
150 /ucircumflex\
151 /ugrave\
152 /ydieresis\
153 /Odieresis\
154 /Udieresis\
155 /oslash\
156 /sterling\
157 /Oslash\
158 /multiply\
159 /florin\
160 /aacute \
161 /iacute\
162 /oacute\
163 /uacute\
164 /ntilde\
165 /Ntilde\
166 /ordfeminine\
167 /ordmasculine\
168 /questiondown\
169 /registered\
170 /logicalnot\
171 /onehalf\
172 /onequarter\
173 /exclamdown\
174 /guillemotleft\
175 /guillemotright\
176 /cedilla\
177 /dieresis\
178 /circumflex\
179 /grave\
180 /acute\
181 /Aacute\
182 /Acircumflex\
183 /Agrave\
184 /copyright\
185 /OE\
189 /cent\
190 /yen\
198 /atilde\
199 /Atilde\
202 /quotedblleft\
203 /quotedblright\
204 /oe\
207 /currency\
208 /eth\
209 /Eth\
210 /Ecircumflex\
211 /Edieresis\
212 /Egrave\
213 /dotlessi\
214 /Iacute\
215 /Icircumflex\
216 /Idieresis\
221 /brokenbar\
222 /Igrave\
224 /Oacute\
225 /germandbls\
226 /Ocircumflex\
227 /Ograve\
228 /otilde\
229 /Otilde\
230 /mu\
231 /thorn\
232 /Thorn\
233 /Uacute\
234 /Ucircumflex\
235 /Ugrave\
236 /yacute\
237 /Yacute\
240 /perthousand\
241 /plusminus\
244 /paragraph\
245 /section\
246 /divide\
248 /ring\
250 /bullet\
253 /minus\
] def\
\
1 setlinewidth 0 setlinecap 0 setlinejoin\
[] 0 setdash 0 setgray 1 setmiterlimit\
\
24.0000 24.0000 translate\
1.0000 1.0000 scale\
/Courier-Bold /RR-Courier-Bold RR-ReEncoding ReEncode\
/RR-Courier-Bold findfont [15.7166 .0000 .0000 15.7318 .0000 .0000 ] makefont setfont\
0 0 0 C\
43 712 M (P) show\
53 712 M (s) show\
64 712 M (f) show\
74 712 M (o) show\
84 712 M (r) show\
94 712 M (m) show\
115 712 M (1) show\
125 712 M (.) show\
135 712 M (0) show\
145 712 M (0) show\
398 712 M (R) show\
408 712 M (e) show\
418 712 M (g) show\
429 712 M (i) show\
439 712 M (s) show\
449 712 M (t) show\
459 712 M (r) show\
469 712 M (a) show\
480 712 M (t) show\
490 712 M (i) show\
500 712 M (o) show\
510 712 M (n) show\
/Courier-Oblique /RR-Courier-Oblique RR-ReEncoding ReEncode\
/RR-Courier-Oblique findfont [10.4828 .0000 .0000 10.4980 .0000 .0000 ] makefont setfont\
47 636 M (P) show\
54 636 M (l) show\
61 636 M (e) show\
68 636 M (a) show\
75 636 M (s) show\
82 636 M (e) show\
97 636 M (s) show\
104 636 M (e) show\
111 636 M (n) show\
118 636 M (d) show\
134 636 M (a) show\
149 636 M (c) show\
156 636 M (h) show\
163 636 M (e) show\
170 636 M (q) show\
177 636 M (u) show\
184 636 M (e) show\
199 636 M (p) show\
206 636 M (a) show\
213 636 M (y) show\
220 636 M (a) show\
227 636 M (b) show\
234 636 M (l) show\
241 636 M (e) show\
256 636 M (i) show\
263 636 M (n) show\
279 636 M (U) show\
285 636 M (S) show\
292 636 M ($) show\
308 636 M (o) show\
315 636 M (r) show\
330 636 M (D) show\
337 636 M (M) show\
353 636 M (t) show\
360 636 M (o) show\
375 636 M (t) show\
382 636 M (h) show\
389 636 M (e) show\
405 636 M (f) show\
412 636 M (o) show\
418 636 M (l) show\
425 636 M (l) show\
432 636 M (o) show\
439 636 M (w) show\
446 636 M (i) show\
453 636 M (n) show\
460 636 M (g) show\
475 636 M (a) show\
482 636 M (d) show\
489 636 M (-) show\
47 621 M (d) show\
54 621 M (r) show\
61 621 M (e) show\
68 621 M (s) show\
75 621 M (s) show\
81 621 M (:) show\
92 591 M (M) show\
99 591 M (r) show\
106 591 M (.) show\
119 591 M (H) show\
126 591 M (e) show\
133 591 M (r) show\
139 591 M (m) show\
146 591 M (a) show\
153 591 M (n) show\
160 591 M (n) show\
173 591 M (S) show\
180 591 M (c) show\
187 591 M (h) show\
194 591 M (m) show\
200 591 M (i) show\
207 591 M (t) show\
214 591 M (t) show\
92 575 M (S) show\
99 575 M (i) show\
106 575 M (e) show\
112 575 M (g) show\
119 575 M (e) show\
126 575 M (n) show\
133 575 M (s) show\
139 575 M (t) show\
146 575 M (r) show\
153 575 M (.) show\
160 575 M (3) show\
167 575 M (5) show\
92 560 M (5) show\
99 560 M (1) show\
106 560 M (4) show\
112 560 M (2) show\
119 560 M (7) show\
132 560 M (B) show\
139 560 M (e) show\
146 560 M (r) show\
153 560 M (g) show\
160 560 M (i) show\
167 560 M (s) show\
173 560 M (c) show\
180 560 M (h) show\
193 560 M (G) show\
200 560 M (l) show\
207 560 M (a) show\
214 560 M (d) show\
221 560 M (b) show\
228 560 M (a) show\
235 560 M (c) show\
241 560 M (h) show\
92 544 M (G) show\
99 544 M (e) show\
106 544 M (r) show\
112 544 M (m) show\
119 544 M (a) show\
126 544 M (n) show\
133 544 M (y) show\
N 43 517 M 43 511 L \
49 511 L 49 517 L P E\
N 67 517 M 67 511 L \
72 511 L 72 517 L P E\
N 90 517 M 90 511 L \
95 511 L 95 517 L P E\
N 113 517 M 113 511 L \
118 511 L 118 517 L P E\
N 136 517 M 136 511 L \
142 511 L 142 517 L P E\
N 159 517 M 159 511 L \
165 511 L 165 517 L P E\
N 183 517 M 183 511 L \
188 511 L 188 517 L P E\
N 206 517 M 206 511 L \
211 511 L 211 517 L P E\
N 229 517 M 229 511 L \
234 511 L 234 517 L P E\
N 252 517 M 252 511 L \
258 511 L 258 517 L P E\
N 276 517 M 276 511 L \
281 511 L 281 517 L P E\
N 298 517 M 298 511 L \
303 511 L 303 517 L P E\
N 321 517 M 321 511 L \
326 511 L 326 517 L P E\
N 344 517 M 344 511 L \
350 511 L 350 517 L P E\
N 368 517 M 368 511 L \
373 511 L 373 517 L P E\
N 391 517 M 391 511 L \
396 511 L 396 517 L P E\
N 414 517 M 414 511 L \
419 511 L 419 517 L P E\
N 437 517 M 437 511 L \
442 511 L 442 517 L P E\
N 460 517 M 460 511 L \
466 511 L 466 517 L P E\
N 484 517 M 484 511 L \
489 511 L 489 517 L P E\
N 507 517 M 507 511 L \
512 511 L 512 517 L P E\
N 518 517 M 518 511 L \
525 511 L 525 517 L P E\
45 472 M (Q) show\
52 472 M (t) show\
59 472 M (y) show\
66 472 M (.) show\
390 472 M (A) show\
397 472 M (m) show\
404 472 M (o) show\
410 472 M (u) show\
417 472 M (n) show\
424 472 M (t) show\
388 443 M ({M }) show\
415 443 M ({Amount}) show\
116 443 M (P) show\
123 443 M (s) show\
130 443 M (f) show\
137 443 M (o) show\
144 443 M (r) show\
151 443 M (m) show\
164 443 M (R) show\
171 443 M (e) show\
178 443 M (g) show\
184 443 M (i) show\
191 443 M (s) show\
198 443 M (t) show\
205 443 M (r) show\
212 443 M (a) show\
219 443 M (t) show\
225 443 M (i) show\
232 443 M (o) show\
239 443 M (n) show\
252 443 M (\205) show\
266 443 M (U) show\
272 443 M (S) show\
279 443 M ($) show\
286 443 M (2) show\
293 443 M (0) show\
300 443 M (/) show\
307 443 M (D) show\
313 443 M (M) show\
320 443 M (2) show\
327 443 M (5) show\
N 43 668 M 43 663 L \
49 663 L 49 668 L P E\
N 67 668 M 67 663 L \
72 663 L 72 668 L P E\
N 90 668 M 90 663 L \
95 663 L 95 668 L P E\
N 113 668 M 113 663 L \
118 663 L 118 668 L P E\
N 136 668 M 136 663 L \
141 663 L 141 668 L P E\
N 159 668 M 159 663 L \
165 663 L 165 668 L P E\
N 183 668 M 183 663 L \
188 663 L 188 668 L P E\
N 206 668 M 206 663 L \
211 663 L 211 668 L P E\
N 229 668 M 229 663 L \
234 663 L 234 668 L P E\
N 252 668 M 252 663 L \
258 663 L 258 668 L P E\
N 276 668 M 276 663 L \
281 663 L 281 668 L P E\
N 298 668 M 298 663 L \
303 663 L 303 668 L P E\
N 321 668 M 321 663 L \
326 663 L 326 668 L P E\
N 344 668 M 344 663 L \
350 663 L 350 668 L P E\
N 367 668 M 367 663 L \
373 663 L 373 668 L P E\
N 391 668 M 391 663 L \
396 663 L 396 668 L P E\
N 414 668 M 414 663 L \
419 663 L 419 668 L P E\
N 437 668 M 437 663 L \
442 663 L 442 668 L P E\
N 460 668 M 460 663 L \
466 663 L 466 668 L P E\
N 484 668 M 484 663 L \
489 663 L 489 668 L P E\
N 507 668 M 507 663 L \
512 663 L 512 668 L P E\
N 516 668 M 516 663 L \
521 663 L 521 668 L P E\
41 415 M (A) show\
55 415 M (c) show\
62 415 M (h) show\
68 415 M (e) show\
75 415 M (q) show\
82 415 M (u) show\
89 415 M (e) show\
102 415 M (f) show\
109 415 M (o) show\
116 415 M (r) show\
129 415 M (t) show\
136 415 M (h) show\
143 415 M (e) show\
156 415 M (s) show\
163 415 M (p) show\
170 415 M (e) show\
177 415 M (c) show\
184 415 M (i) show\
191 415 M (f) show\
198 415 M (i) show\
204 415 M (e) show\
211 415 M (d) show\
225 415 M (a) show\
231 415 M (m) show\
238 415 M (o) show\
245 415 M (u) show\
252 415 M (n) show\
259 415 M (t) show\
272 415 M (i) show\
279 415 M (s) show\
292 415 M (e) show\
299 415 M (n) show\
306 415 M (c) show\
313 415 M (l) show\
320 415 M (o) show\
327 415 M (s) show\
334 415 M (e) show\
340 415 M (d) show\
N 37 138 M 37 133 L \
43 133 L 43 138 L P E\
N 61 138 M 61 133 L \
66 133 L 66 138 L P E\
N 84 138 M 84 133 L \
89 133 L 89 138 L P E\
N 107 138 M 107 133 L \
112 133 L 112 138 L P E\
N 130 138 M 130 133 L \
136 133 L 136 138 L P E\
N 154 138 M 154 133 L \
159 133 L 159 138 L P E\
N 177 138 M 177 133 L \
182 133 L 182 138 L P E\
N 200 138 M 200 133 L \
205 133 L 205 138 L P E\
N 223 138 M 223 133 L \
228 133 L 228 138 L P E\
N 246 138 M 246 133 L \
252 133 L 252 138 L P E\
N 270 138 M 270 133 L \
275 133 L 275 138 L P E\
N 292 138 M 292 133 L \
297 133 L 297 138 L P E\
N 315 138 M 315 133 L \
320 133 L 320 138 L P E\
N 338 138 M 338 133 L \
344 133 L 344 138 L P E\
N 362 138 M 362 133 L \
367 133 L 367 138 L P E\
N 385 138 M 385 133 L \
390 133 L 390 138 L P E\
N 408 138 M 408 133 L \
413 133 L 413 138 L P E\
N 431 138 M 431 133 L \
436 133 L 436 138 L P E\
N 454 138 M 454 133 L \
460 133 L 460 138 L P E\
N 478 138 M 478 133 L \
483 133 L 483 138 L P E\
N 501 138 M 501 133 L \
506 133 L 506 138 L P E\
N 512 138 M 512 133 L \
519 133 L 519 138 L P E\
42 112 M (Y) show\
49 112 M (o) show\
56 112 M (u) show\
69 112 M (m) show\
76 112 M (a) show\
83 112 M (y) show\
96 112 M (s) show\
103 112 M (e) show\
110 112 M (n) show\
117 112 M (d) show\
130 112 M (c) show\
137 112 M (o) show\
144 112 M (m) show\
150 112 M (m) show\
157 112 M (e) show\
164 112 M (n) show\
171 112 M (t) show\
178 112 M (s) show\
185 112 M (,) show\
198 112 M (q) show\
205 112 M (u) show\
212 112 M (e) show\
219 112 M (s) show\
225 112 M (t) show\
232 112 M (i) show\
239 112 M (o) show\
246 112 M (n) show\
253 112 M (s) show\
260 112 M (,) show\
273 112 M (a) show\
280 112 M (n) show\
287 112 M (d) show\
300 112 M (e) show\
307 112 M (r) show\
314 112 M (r) show\
321 112 M (o) show\
327 112 M (r) show\
341 112 M (n) show\
347 112 M (o) show\
354 112 M (t) show\
361 112 M (i) show\
368 112 M (f) show\
375 112 M (i) show\
382 112 M (c) show\
389 112 M (a) show\
396 112 M (t) show\
402 112 M (i) show\
409 112 M (o) show\
416 112 M (n) show\
423 112 M (s) show\
436 112 M (w) show\
443 112 M (i) show\
450 112 M (t) show\
457 112 M (h) show\
42 97 M (e) show\
49 97 M (m) show\
56 97 M (a) show\
63 97 M (i) show\
70 97 M (l) show\
83 97 M (t) show\
90 97 M (o) show\
103 97 M (t) show\
110 97 M (h) show\
117 97 M (e) show\
130 97 M (f) show\
137 97 M (o) show\
144 97 M (l) show\
150 97 M (l) show\
157 97 M (o) show\
164 97 M (w) show\
171 97 M (i) show\
178 97 M (n) show\
185 97 M (g) show\
198 97 M (C) show\
205 97 M (o) show\
212 97 M (m) show\
219 97 M (p) show\
225 97 M (u) show\
232 97 M (s) show\
239 97 M (e) show\
246 97 M (r) show\
253 97 M (v) show\
260 97 M (e) show\
273 97 M (U) show\
280 97 M (s) show\
287 97 M (e) show\
293 97 M (r) show\
300 97 M (I) show\
307 97 M (d) show\
314 97 M (.) show\
321 97 M (:) show\
334 97 M (1) show\
341 97 M (0) show\
348 97 M (0) show\
355 97 M (0) show\
362 97 M (4) show\
368 97 M (2) show\
375 97 M (,) show\
382 97 M (1) show\
389 97 M (4) show\
396 97 M (7) show\
403 97 M (1) show\
416 97 M (o) show\
423 97 M (f) show\
42 81 M (H) show\
49 81 M (e) show\
56 81 M (r) show\
63 81 M (m) show\
70 81 M (a) show\
76 81 M (n) show\
83 81 M (n) show\
96 81 M (S) show\
103 81 M (c) show\
110 81 M (h) show\
117 81 M (m) show\
124 81 M (i) show\
130 81 M (t) show\
137 81 M (t) show\
144 81 M (.) show\
42 66 M (O) show\
49 66 M (n) show\
56 66 M (l) show\
63 66 M (y) show\
76 66 M (e) show\
83 66 M (m) show\
90 66 M (a) show\
97 66 M (i) show\
104 66 M (l) show\
117 66 M (f) show\
124 66 M (r) show\
131 66 M (o) show\
137 66 M (m) show\
151 66 M (r) show\
158 66 M (e) show\
164 66 M (g) show\
171 66 M (i) show\
178 66 M (s) show\
185 66 M (t) show\
192 66 M (e) show\
199 66 M (r) show\
206 66 M (e) show\
212 66 M (d) show\
226 66 M (u) show\
233 66 M (s) show\
239 66 M (e) show\
246 66 M (r) show\
253 66 M (s) show\
266 66 M (w) show\
273 66 M (i) show\
280 66 M (l) show\
287 66 M (l) show\
300 66 M (b) show\
307 66 M (e) show\
320 66 M (a) show\
327 66 M (n) show\
334 66 M (s) show\
341 66 M (w) show\
348 66 M (e) show\
355 66 M (r) show\
362 66 M (e) show\
368 66 M (d) show\
375 66 M (.) show\
N 308 709 M 308 734 L \
269 737 L 244 727 L 243 718 L 243 718 L 243 717 L \
243 717 L 243 717 L 243 717 L 244 717 L 244 716 L \
244 701 L 290 697 L P gsave\
255 255 255 C\
E\
grestore\
1 setlinewidth\
lpat0 0 setdash\
S\
N 276 723 M 275 716 L \
288 715 L 289 722 L P gsave\
85 85 85 C\
E\
grestore\
S\
N 244 727 M 290 723 L \
290 723 L S\
N 271 707 M 290 705 L \
308 718 L S\
N 289 714 M 289 713 L \
289 713 L 290 713 L 290 713 L 290 713 L 290 712 L \
290 712 L 290 697 L S\
N 290 723 M 291 723 L \
291 723 L 308 734 L S\
N 289 714 M 290 723 L \
S\
N 243 718 M 289 714 L \
S\
N 296 735 M 296 734 L \
296 734 L 281 725 L 281 725 L 280 725 L 280 725 L \
250 727 L 250 727 L 250 727 L 250 727 L 250 728 L \
250 728 L 250 729 L 267 738 L 268 739 L 268 739 L \
268 739 L 296 736 L 296 736 L 296 736 L P gsave\
255 255 255 C\
E\
grestore\
S\
N 256 730 M 280 728 L \
291 735 L 268 737 L 268 734 L S\
N 268 731 M 284 730 L \
S\
N 268 734 M 268 733 L \
S\
N 268 731 M 268 733 L \
S\
N 268 737 M 256 730 L \
S\
N 256 730 M 268 731 L \
S\
N 260 730 M 271 731 L \
S\
N 264 729 M 275 731 L \
S\
N 267 729 M 278 730 L \
S\
N 272 729 M 282 730 L \
S\
N 276 728 M 282 729 L \
S\
N 268 734 M 288 732 L \
285 731 L 285 731 L 283 732 L 283 731 L 281 731 L \
281 732 L 278 732 L 278 731 L 276 731 L 276 732 L \
275 732 L 275 732 L 269 732 L 269 733 L 268 733 L \
P gsave\
85 85 85 C\
E\
grestore\
S\
N 277 722 M 277 721 L \
281 721 L 281 721 L P gsave\
255 255 255 C\
E\
grestore\
S\
N 276 717 M 276 719 L \
287 718 L 287 716 L P gsave\
255 255 255 C\
E\
grestore\
S\
N 286 718 M 285 716 L \
S\
N 284 718 M 284 716 L \
S\
N 283 718 M 282 717 L \
S\
N 281 718 M 281 717 L \
S\
N 279 719 M 279 717 L \
S\
N 278 719 M 278 717 L \
S\
N 275 703 M 275 701 L \
269 698 L 268 697 L 268 697 L 267 697 L 267 697 L \
243 700 L 242 700 L 242 700 L 242 700 L 242 701 L \
242 702 L P gsave\
255 255 255 C\
E\
grestore\
S\
N 275 703 M 268 699 L \
268 699 L 267 699 L 267 699 L 242 702 L 242 703 L \
242 703 L 242 703 L 242 704 L 247 707 L 252 707 L \
275 706 L 275 706 L 275 705 L 275 705 L 275 705 L \
P gsave\
85 85 85 C\
E\
grestore\
S\
N 252 707 M 253 707 L \
271 706 L 271 706 L 270 705 L 270 705 L 263 706 L \
263 705 L 269 705 L 269 705 L 268 704 L 271 704 L \
275 706 L 275 706 L 275 706 L 274 706 L 250 708 L \
248 707 L 247 707 L 247 706 L 250 706 L 251 706 L \
P gsave\
255 255 255 C\
E\
grestore\
S\
N 247 706 M 250 708 L \
253 707 L S\
N 252 707 M 251 706 L \
S\
N 274 706 M 273 706 L \
S\
N 273 706 M 272 705 L \
271 704 L S\
N 271 706 M 273 706 L \
S\
N 269 705 M 270 705 L \
S\
N 242 703 M 266 701 L \
267 701 L 267 701 L 268 701 L 268 701 L 275 705 L \
S\
N 275 711 M 275 709 L \
269 705 L 268 705 L 268 705 L 267 705 L 267 705 L \
243 707 L 242 707 L 242 708 L 242 708 L 242 708 L \
242 709 L P gsave\
255 255 255 C\
E\
grestore\
S\
N 275 711 M 268 707 L \
268 707 L 267 707 L 267 707 L 242 709 L 242 711 L \
242 711 L 242 711 L 242 711 L 247 714 L 252 715 L \
275 714 L 275 713 L 275 713 L 275 713 L 275 713 L \
P gsave\
85 85 85 C\
E\
grestore\
S\
N 274 714 M 250 716 L \
248 715 L 247 714 L 247 714 L 250 714 L 251 714 L \
259 713 L 259 714 L 252 714 L 253 715 L 271 713 L \
271 713 L 270 713 L 270 713 L 263 713 L 263 713 L \
269 713 L 269 713 L 268 712 L 271 711 L 275 714 L \
275 714 L 275 714 L P gsave\
255 255 255 C\
E\
grestore\
S\
N 247 714 M 250 715 L \
253 715 L S\
N 252 714 M 251 714 L \
S\
N 274 714 M 273 713 L \
S\
N 273 713 M 272 713 L \
271 711 L S\
N 271 713 M 273 713 L \
S\
N 269 713 M 270 713 L \
S\
N 242 711 M 266 708 L \
267 708 L 267 708 L 268 709 L 268 709 L 275 713 L \
S\
N 250 728 M 250 728 L \
250 728 L 280 727 L 280 727 L 281 727 L 281 727 L \
281 727 L 296 736 L 296 736 L 296 736 L S\
120 472 M (I) show\
127 472 M (t) show\
134 472 M (e) show\
141 472 M (m) show\
46 443 M ({Qu}) show\
N 43 469 M 515 469 L \
S\
432 495 M (D) show\
439 495 M (a) show\
446 495 M (t) show\
453 495 M (e) show\
460 495 M (:) show\
467 495 M ({Date }) show\
53 364 M (N) show\
60 364 M (a) show\
66 364 M (m) show\
73 364 M (e) show\
80 364 M (:) show\
53 348 M (U) show\
60 348 M (s) show\
66 348 M (e) show\
73 348 M (r) show\
80 348 M (I) show\
87 348 M (d) show\
93 348 M (:) show\
53 333 M (C) show\
60 333 M (o) show\
66 333 M (m) show\
73 333 M (p) show\
80 333 M (a) show\
87 333 M (n) show\
93 333 M (y) show\
100 333 M (:) show\
53 318 M (A) show\
60 318 M (d) show\
66 318 M (d) show\
73 318 M (r) show\
80 318 M (e) show\
87 318 M (s) show\
93 318 M (s) show\
100 318 M (:) show\
53 302 M (A) show\
60 302 M (d) show\
66 302 M (r) show\
73 302 M (e) show\
80 302 M (s) show\
87 302 M (s) show\
93 302 M (:) show\
53 287 M (C) show\
60 287 M (i) show\
66 287 M (t) show\
73 287 M (y) show\
80 287 M (:) show\
53 271 M (C) show\
60 271 M (o) show\
66 271 M (u) show\
73 271 M (n) show\
80 271 M (t) show\
87 271 M (r) show\
94 271 M (y) show\
100 271 M (:) show\
/Courier-BoldOblique /RR-Courier-BoldOblique RR-ReEncoding ReEncode\
/RR-Courier-BoldOblique findfont [13.1073 .0000 .0000 13.1226 .0000 .0000 ] makefont setfont\
114 364 M ({name }) show\
/RR-Courier-BoldOblique findfont [10.4828 .0000 .0000 10.4980 .0000 .0000 ] makefont setfont\
114 347 M ({userid }) show\
/RR-Courier-Oblique findfont [10.4828 .0000 .0000 10.4980 .0000 .0000 ] makefont setfont\
114 332 M ({company }) show\
114 316 M ({address_1 }) show\
114 301 M ({address_2 }) show\
114 285 M ({city }) show\
114 270 M ({country }) show\
57 230 M (C) show\
64 230 M (o) show\
70 230 M (m) show\
77 230 M (m) show\
84 230 M (e) show\
91 230 M (n) show\
98 230 M (t) show\
104 230 M (s) show\
111 230 M (:) show\
57 215 M ({comments_1 }) show\
57 199 M ({comments_2 }) show\
57 184 M ({comments_3 }) show\
57 168 M ({comments_4 }) show\
N 43 392 M 43 391 L \
45 391 L 45 392 L P E\
N 52 392 M 52 391 L \
53 391 L 53 392 L P E\
N 60 392 M 60 391 L \
61 391 L 61 392 L P E\
N 68 392 M 68 391 L \
69 391 L 69 392 L P E\
N 76 392 M 76 391 L \
77 391 L 77 392 L P E\
N 84 392 M 84 391 L \
85 391 L 85 392 L P E\
N 92 392 M 92 391 L \
94 391 L 94 392 L P E\
N 100 392 M 100 391 L \
102 391 L 102 392 L P E\
N 109 392 M 109 391 L \
110 391 L 110 392 L P E\
N 117 392 M 117 391 L \
118 391 L 118 392 L P E\
N 125 392 M 125 391 L \
126 391 L 126 392 L P E\
N 133 392 M 133 391 L \
134 391 L 134 392 L P E\
N 141 392 M 141 391 L \
143 391 L 143 392 L P E\
N 149 392 M 149 391 L \
151 391 L 151 392 L P E\
N 158 392 M 158 391 L \
159 391 L 159 392 L P E\
N 166 392 M 166 391 L \
167 391 L 167 392 L P E\
N 174 392 M 174 391 L \
175 391 L 175 392 L P E\
N 182 392 M 182 391 L \
183 391 L 183 392 L P E\
N 190 392 M 190 391 L \
192 391 L 192 392 L P E\
N 198 392 M 198 391 L \
200 391 L 200 392 L P E\
N 206 392 M 206 391 L \
208 391 L 208 392 L P E\
N 215 392 M 215 391 L \
216 391 L 216 392 L P E\
N 223 392 M 223 391 L \
224 391 L 224 392 L P E\
N 231 392 M 231 391 L \
232 391 L 232 392 L P E\
N 239 392 M 239 391 L \
240 391 L 240 392 L P E\
N 247 392 M 247 391 L \
249 391 L 249 392 L P E\
N 255 392 M 255 391 L \
257 391 L 257 392 L P E\
N 264 392 M 264 391 L \
265 391 L 265 392 L P E\
N 272 392 M 272 391 L \
273 391 L 273 392 L P E\
N 280 392 M 280 391 L \
281 391 L 281 392 L P E\
N 287 392 M 287 391 L \
288 391 L 288 392 L P E\
N 295 392 M 295 391 L \
297 391 L 297 392 L P E\
N 303 392 M 303 391 L \
305 391 L 305 392 L P E\
N 312 392 M 312 391 L \
313 391 L 313 392 L P E\
N 320 392 M 320 391 L \
321 391 L 321 392 L P E\
N 328 392 M 328 391 L \
329 391 L 329 392 L P E\
N 336 392 M 336 391 L \
337 391 L 337 392 L P E\
N 344 392 M 344 391 L \
346 391 L 346 392 L P E\
N 352 392 M 352 391 L \
354 391 L 354 392 L P E\
N 360 392 M 360 391 L \
362 391 L 362 392 L P E\
N 369 392 M 369 391 L \
370 391 L 370 392 L P E\
N 377 392 M 377 391 L \
378 391 L 378 392 L P E\
N 385 392 M 385 391 L \
386 391 L 386 392 L P E\
N 393 392 M 393 391 L \
394 391 L 394 392 L P E\
N 401 392 M 401 391 L \
403 391 L 403 392 L P E\
N 409 392 M 409 391 L \
411 391 L 411 392 L P E\
N 418 392 M 418 391 L \
419 391 L 419 392 L P E\
N 426 392 M 426 391 L \
427 391 L 427 392 L P E\
N 434 392 M 434 391 L \
435 391 L 435 392 L P E\
N 442 392 M 442 391 L \
443 391 L 443 392 L P E\
N 450 392 M 450 391 L \
452 391 L 452 392 L P E\
N 458 392 M 458 391 L \
460 391 L 460 392 L P E\
N 467 392 M 467 391 L \
468 391 L 468 392 L P E\
N 475 392 M 475 391 L \
476 391 L 476 392 L P E\
N 483 392 M 483 391 L \
484 391 L 484 392 L P E\
N 491 392 M 491 391 L \
492 391 L 492 392 L P E\
N 499 392 M 499 391 L \
501 391 L 501 392 L P E\
N 507 392 M 507 391 L \
509 391 L 509 392 L P E\
N 515 392 M 515 391 L \
517 391 L 517 392 L P E\
N 520 392 M 520 391 L \
523 391 L 523 392 L P E\
N 43 251 M 43 250 L \
45 250 L 45 251 L P E\
N 52 251 M 52 250 L \
53 250 L 53 251 L P E\
N 60 251 M 60 250 L \
61 250 L 61 251 L P E\
N 68 251 M 68 250 L \
69 250 L 69 251 L P E\
N 76 251 M 76 250 L \
77 250 L 77 251 L P E\
N 84 251 M 84 250 L \
85 250 L 85 251 L P E\
N 92 251 M 92 250 L \
94 250 L 94 251 L P E\
N 100 251 M 100 250 L \
102 250 L 102 251 L P E\
N 109 251 M 109 250 L \
110 250 L 110 251 L P E\
N 117 251 M 117 250 L \
118 250 L 118 251 L P E\
N 125 251 M 125 250 L \
126 250 L 126 251 L P E\
N 133 251 M 133 250 L \
134 250 L 134 251 L P E\
N 141 251 M 141 250 L \
143 250 L 143 251 L P E\
N 149 251 M 149 250 L \
151 250 L 151 251 L P E\
N 158 251 M 158 250 L \
159 250 L 159 251 L P E\
N 166 251 M 166 250 L \
167 250 L 167 251 L P E\
N 174 251 M 174 250 L \
175 250 L 175 251 L P E\
N 182 251 M 182 250 L \
183 250 L 183 251 L P E\
N 190 251 M 190 250 L \
192 250 L 192 251 L P E\
N 198 251 M 198 250 L \
200 250 L 200 251 L P E\
N 206 251 M 206 250 L \
208 250 L 208 251 L P E\
N 215 251 M 215 250 L \
216 250 L 216 251 L P E\
N 223 251 M 223 250 L \
224 250 L 224 251 L P E\
N 231 251 M 231 250 L \
232 250 L 232 251 L P E\
N 239 251 M 239 250 L \
240 250 L 240 251 L P E\
N 247 251 M 247 250 L \
249 250 L 249 251 L P E\
N 255 251 M 255 250 L \
257 250 L 257 251 L P E\
N 264 251 M 264 250 L \
265 250 L 265 251 L P E\
N 272 251 M 272 250 L \
273 250 L 273 251 L P E\
N 280 251 M 280 250 L \
281 250 L 281 251 L P E\
N 287 251 M 287 250 L \
288 250 L 288 251 L P E\
N 295 251 M 295 250 L \
297 250 L 297 251 L P E\
N 303 251 M 303 250 L \
305 250 L 305 251 L P E\
N 312 251 M 312 250 L \
313 250 L 313 251 L P E\
N 320 251 M 320 250 L \
321 250 L 321 251 L P E\
N 328 251 M 328 250 L \
329 250 L 329 251 L P E\
N 336 251 M 336 250 L \
337 250 L 337 251 L P E\
N 344 251 M 344 250 L \
346 250 L 346 251 L P E\
N 352 251 M 352 250 L \
354 250 L 354 251 L P E\
N 360 251 M 360 250 L \
362 250 L 362 251 L P E\
N 369 251 M 369 250 L \
370 250 L 370 251 L P E\
N 377 251 M 377 250 L \
378 250 L 378 251 L P E\
N 385 251 M 385 250 L \
386 250 L 386 251 L P E\
N 393 251 M 393 250 L \
394 250 L 394 251 L P E\
N 401 251 M 401 250 L \
403 250 L 403 251 L P E\
N 409 251 M 409 250 L \
411 250 L 411 251 L P E\
N 418 251 M 418 250 L \
419 250 L 419 251 L P E\
N 426 251 M 426 250 L \
427 250 L 427 251 L P E\
N 434 251 M 434 250 L \
435 250 L 435 251 L P E\
N 442 251 M 442 250 L \
443 250 L 443 251 L P E\
N 450 251 M 450 250 L \
452 250 L 452 251 L P E\
N 458 251 M 458 250 L \
460 250 L 460 251 L P E\
N 467 251 M 467 250 L \
468 250 L 468 251 L P E\
N 475 251 M 475 250 L \
476 250 L 476 251 L P E\
N 483 251 M 483 250 L \
484 250 L 484 251 L P E\
N 491 251 M 491 250 L \
492 250 L 492 251 L P E\
N 499 251 M 499 250 L \
501 250 L 501 251 L P E\
N 507 251 M 507 250 L \
509 250 L 509 251 L P E\
N 515 251 M 515 250 L \
517 250 L 517 251 L P E\
N 520 251 M 520 250 L \
523 250 L 523 251 L P E\
#copies 1 def showpage\
grestore\
\
";
/***************************************************************************/
/* Declaration of the Specification-Data */
/***************************************************************************/
char spezifikation[] = "9,1,Date\
3,\"f_amount( f_index2(3), f_index2(2) )\",Amount,r\
9,2,Qu,r\
9,3,M\
9,4,name\
9,5,userid\
9,6,company\
9,7,address_1\
9,8,address_2\
9,9,city\
9,10,country\
9,11,comments_1\
9,12,comments_2\
9,13,comments_3\
9,14,comments_4\
";
fdp_ps = postscript;
fdp_spe = spezifikation;
strcpy( anfangszeichen, "{" );
strcpy( endezeichen, "}" );
strcpy( fuellzeichen, " " );
strcpy( separator, ";" );
if ( (argc == 0) || (argc >=5) ) {
ERR_PARAMETERLISTE
exit(EXIT_FAILURE);
}
varliste = create_posliste_element();
spezliste = create_posliste_element();
if ( argc == 4 ) {
fdp_ini = buf_file( argv[1] );
if ( fdp_ini == NULL )
{
exit(EXIT_FAILURE);
} /* endif */
} /* endif */
help_1 = varliste;
help_3 = spezliste;
if ( spez_buf( fdp_spe, help_3) ) {
ERR_SPEZ_LISTE
exit(EXIT_FAILURE);
}; /* endif */
if ( get_var(fdp_ps, help_1) )
{
ERR_SPEZ
exit(EXIT_FAILURE);
}; /* endif */
if ( listcpy(varliste, spezliste) )
{
ERR_SPEZ
exit(EXIT_FAILURE);
}; /* endif */
read_ini(fdp_ini, varliste);
if ( var_print(argv[1], argv[2], fdp_ps, varliste) )
{
exit(EXIT_FAILURE);
}; /* endif */
del_posliste(varliste);
del_posliste(spezliste);
return 0;
}