1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
|
#start(2.5,1.5)#
#pageblock#
#block#
#page (91)#
#headeven#
%#center#EUMEL-Systemhandbuch
#end#
#headodd#
#center#7. Der Fontspeicher#right#%
#end#
#ib(9)#7. Der #ib#Fontspeicher#ie##ie(9)#
#ib(9)#7.1. #ib#Fonttabellen#ie##ie(9)#
Damit die Textverarbeitung Dokumente formatieren kann, muß sie über Breiten und
Höhen der einzelnen Schrifttypen (auch "#ib#Fonts#ie#" genannt) des Druckers, auf dem das
Dokument gedruckt wird, Bescheid wissen. Auch bei dem Ausdruck des Dokuments
wird diese Information benötigt. Im EUMEL-System stellt der #ib#Fontspeicher#ie# diese Infor
mation den #ib#Formatierprogramm#ie#en (#on("i")#lineform#off("i")# und #on("i")#pageform#off("i")#) und dem #ib#EUMEL-Drucker#ie#
zur Verfügung.
Da nun der Drucker Angaben zur Positionierung in seinen #ib#Mikroschritten#ie# (kleinste
Schrittweite in horizontaler oder vertikalter Richtung) benötigt, liefert die Fonttabelle
die Breiten- und Höhenangaben in Mikroschritten und eine Umrechnungseinheit von
Schritten in Zentimeter oder umgekehrt. So braucht der EUMEL-Drucker bei Positionie
rungen keine Umrechnung vorzunehmen. Allerdings müssen die Formatierprogramme
auch in Mikroschritten des jeweiligen Druckers rechnen. Dadurch werden jedoch
Unterschiede durch Rundungsfehler zwischen dem EUMEL-Drucker und den Forma
tierprogrammen vermieden.
Bei diesem Konzept können Fonts von verschiedenen Druckern nicht in einer Fontta
belle verwaltet werden, denn unterschiedliche Drucker haben meist verschiedene
Mikroschritte. Somit muß es für jeden Drucker mindestens eine Fonttabelle geben.
Es gibt aber auch Fälle, in denen Fonts auf einem Drucker nicht mit anderen Fonts des
Druckers zusammengedruckt werden können. Solche Fälle liegen z.B. bei Typenrad
druckern vor, die immer nur mit einem Typenrad drucken können und dessen Zei
chenbreite hardwaremäßig eingestellt werden muß (z.B. beim Olivetti PR320), bei
Druckern, die verschiedene Fonts für Längs- und Querformat haben (z.B. beim Agfa
P400), oder bei Druckern, deren Fonts geladen werden (z.B. beim HP 2686). Eine
#on("b")##ib#Fonttabelle#ie##off("b")# enthält also alle die Fonts eines Druckers, #on("b")#die auf dem Drucker kompati
bel sind#off("b")#. Es kann mehrere Fonttabellen zu einem Drucker geben.
Die verschiedenen Fonttabellen werden von im Multi-User Betrieb von der Task "#ib#confi
gurator#ie#" verwaltet. Sie enthält alle Fonttabellen, die auf dem Rechner zur Verfügung
stehen. Mit dem Kommando
#ib#fonttable#ie# ("Name der Fonttabelle")
wird in einer Task die gewünschte Fonttabelle eingestellt. Danach stehen die Fonts
dieser Tabelle in der Task zur Verfügung. Die Einstellung der Fonttabelle vererbt sich
auf die Sohntasks, d.h. wird eine Sohntask begonnen, so ist dort die Fonttabelle des
Vaters eingestellt.
Dazu das folgenden Beispiel:
Für den Agfa-Drucker P400 gibt es die Fonttabellen "agfa" und "agfaquer", in
denen die Fonts für Längsdruck bzw. Querdruck enthalten sind. In der Task
#on("i")#PUBLIC#off("i")# wird mit dem Kommando #on("i")#fonttable ("agfa")#off("i")# die Fonttabelle "agfa" ein
gestellt. Alle neuen Sohntasks können sofort ohne weitere Einstellung mit der
Textformatierung im Längsformat beginnen. Will nun jemand im Querformat
drucken, so muß er in seiner Task mit dem Kommando #on("i")#fonttable ("agfaquer")#off("i")# den
Fontspeicher auf die Fonts zum Querdruck umstellen.
Das Kommando
#ib#list fonts#ie#
listet die Fonts der eingestellten Fontabelle ins #on("i")#notebook#off("i")# und das Kommando
#ib#list fonttables#ie#
informiert über die verfügbaren Fonttabellen.
#ib(9)#7.2. Erstellen einer #ib#Fonttabelle#ie##ie(9)#
Die Fonttabelle ist ein Datenraum mit einer eigenen Struktur. Somit kann sie nicht
mehr mit dem Editor, sondern nur mit einem entsprechenden Programm bearbeitet
werden. Solch ein Programm befindet sich in der Datei "#ib#font convertor#ie#" auf dem Stan
dardarchiv 'std.zusatz'. Diese Datei sollte in einer Systemtask (Sohntask von "SYSUR")
insertiert werden. Danach stehen entsprechende Kommandos zur Bearbeitung einer
Fonttabelle zur Verfügung.
Um eine Fonttabelle zu bekommen, muß zuerst eine #on("b")##ib#Fontdatei#ie##off("b")# (d.h. eine editierbare
Datei mit dem unten beschriebenen Aufbau) angelegt werden. Mit dem Kommando
#ib#create fonttable#ie# ("Name der Fontdatei")
werden alle in der Fontdatei spezifizierten Fonttabellen erstellt. Sie liegen als benannte
Datenräume in der Task vor und können mit dem Kommando #on("i")#save#off("i")# von einer System
task an die Task "configurator" gesendet werden. Danach sind diese Fonttabellen in
allen Task auf dem Rechner verfügbar und können mit dem #on("i")#fonttable#off("i")# - Kommando
eingestellt werden.
Soll dagegen eine bestehende Fonttabelle geändert werden, so erstellt das Komman
do
#ib#create fontfile#ie# ("Name der Fonttabelle", "Name der Fontdatei")
aus der angegebenen Fonttabelle eine Fontdatei. Die Fonttabelle muß dazu in der Task
als benannter Datenraum vorliegen (d.h. sie muß eventuell mit #on("i")#fetch#off("i")# von der Task
"configurator" geholt werden). In der so erstellten Fontdatei können die Änderungen
mit dem Editor vorgenommen, mit #on("i")#create fonttable#off("i")# die geänderte Fonttabelle erstellt
und diese wiederum mit #on("i")#save#off("i")# an die Task "configurator" gesendet werden. Mit dem
#on("i")#fonttable#off("i")#-Kommando kann dann in den bestehenden Tasks die geänderte Fonttabelle
eingestellt werden. Alle neuen Tasks erhalten automatisch die geänderte Fonttabelle.
#ib(9)#Prozedurbeschreibung der Umwand
lungsKommandos#ie(9)#
Nach der Insertierung der Datei "font convertor" stehen die folgenden Kommandos zur
Umwandlung einer Fontdatei in eine Fonttabelle oder umgekehrt zur Verfügung.
#ib#create fontfile#ie#
PROC create fontfile (TEXT CONST fonttable name, fontfile name)
Zweck: Aus Fonttabelle 'fonttable name' wird eine Fontdatei mit dem ange
gebenen Name erstellt. Die Fonttabelle muß dabei in der eigenen Task
als benannter Datenraum vorliegen.
#ib#create fonttable#ie#
PROC create fonttable (TEXT CONST fontfile name)
Zweck: Es werden alle Fonttabellen erzeugt, die in der Fontdatei 'fontfile name'
angegeben sind. Die Fonttabellen liegen dann als benannte Datenräu
me in der Task vor.
PROC create fonttable
Zweck: Es werden alle Fonttabellen erzeugt, die in der zuletzt bearbeiteten
Datei angegeben sind.
#ib(9)#7.3. Aufbau der #ib#Fontdatei#ie##ie(9)#
In der Fontdatei können drei Strukturen stehen und zwar Kennungen, Identifkationen
und Zeichenspezifikationen.#u##count#)#e#
#foot#
#value#) Beim formalen Aufbau bedeuten eckige Klammern, daß diese Angaben optional sind.
#end#
#ib(9)##ib#Kennungen#ie##ie(9)#
Formaler Aufbau: <#on("i")#Kennung#off("i")#> : Name 1 [, Name 2] [ ... ] ;
Eine Kennung leitet eine Definition ein. Für die Namen der Namensliste gelten die
folgenden Konventionen:
- der Name muß als TEXT-Denoter angegeben werden,
- der Name muß ungleich #on("i")#niltext#off("i")# sein,
- Leerzeichen sind im Namen nicht signifikant (d.h. "agfa quer" wird zu "agfa
quer").
Eine Kennung kann die folgenden Werte annehmen:
<#on("i")#Kennung#off("i")#> { FONTTABLE, FONT }
- #on("b")##ib#FONTTABLE#ie##off("b")#
Hiermit wird eine Definition einer Fonttabelle eingeleitet. Es wird nur der erste
Name der Namensliste ausgewertet, da die Fonttabelle eindeutig identifiziert
sein muß. Alle folgenden Angaben werden dieser Fonttabelle zugeordnet, bis
eine neue Kennung FONTTABLE folgt.
- #on("b")##ib#FONT#ie##off("b")#
Hiermit wird eine Definition eines Schrifttyps eingeleitet. Ein Schrifttyp kann
mehrere Namen haben. Jedoch darf in einer Fonttabelle jeder Fontname nur
einem Font zugeordnet werden.
#ib(9)##ib#Identifikation#ie#en#ie(9)#
Formaler Aufbau: [ <#on("i")#Identifikation#off("i")#> = <Wert der Identifikation> ; ]
Mit den Identifikationen werden bestimmte Angaben zu den Kennungen gemacht.
Sie müssen unmittelbar nach der entsprechenden Kennung folgen, brauchen aber
nur angegeben werden, wenn sie von den Standardwerten abweichen.
#ib(9)#Identifikationen nach der Kennung #ib#FONTTABLE#ie##ie(9)#
<#on("i")#Identifikation#off("i")#> { x unit, y unit, on string, off string }
- #on("b")##ib#x unit#ie##off("b")#
Hiermit wird die Anzahl der Mikroschritte des Druckers pro Zentimeter in
horizontaler (x-) Richtung spezifiziert. Die Einheit muß als REAL-Denoter
angegeben werden. Alle weiteren Breitenangaben zu den Fonts dieses Druk
kers beziehen sich auf diese Einheit.
STD-Wert: 10.0 / 2.54 = 3.937008
- #on("b")##ib#y unit#ie##off("b")#
Hiermit wird die Anzahl der Mikroschritte des Druckers pro Zentimeter in
vertikaler (y-) Richtung spezifiziert. Die Einheit muß als REAL-Denoter ange
geben werden. Alle weiteren Höhenangaben zu den Fonts dieses Druckers
beziehen sich auf diese Einheit.
STD-Wert: 6.0 / 2.54 = 2.362205
- #on("b")##ib#on string#ie##off("b")#
Hier müssen vier Textdenoter, durch Komma getrennt, angegeben werden.
Die Textdenoter enthalten die Befehlssequenzen, um beim Drucker die Mo
difikationen anzuschalten. Dabei ist die Reihenfolge der Modifikationen
underline, bold, italics, reverse.
Liegt für eine der Modifikationen keine Befehlssequenz vor, so muß #on("i")#niltext#off("i")#
angegeben werden. Die Befehlssequenzen können vom Druckertreiber ab
gefragt werden.
STD-Wert: #on("i")#niltext#off("i")# für alle Modifikationen
- #on("b")##ib#off string#ie##off("b")#
Hier müssen vier Textdenoter, durch Komma getrennt, angegeben werden.
Die Textdenoter enthalten die Befehlssequenzen, um beim Drucker die Mo
difikationen auszuschalten. Dabei ist die Reihenfolge der Modifikationen
underline, bold, italics, reverse.
Liegt für eine der Modifikationen keine Befehlssequenz vor, so muß #on("i")#niltext#off("i")#
angegeben werden. Die Befehlssequenzen können vom Druckertreiber ab
gefragt werden.
STD-Wert: #on("i")#niltext#off("i")# für alle Modifikationen
#ib(9)#Identifikationen nach der Kennung #ib#FONT#ie##ie(9)#
<#on("i")#Identifikation#off("i")#> { font lead, font height, font depth, indentation pitch,
next larger font, next smaller font,
font string, y offsets, bold offset }
- #on("b")##ib#font lead#ie##off("b")##u##count#)#e#
Der Durchschuß eines Fonts gibt den Zwischenraum in vertikaler Richtung
zwischen den Zeilen bei einfachem Zeilenvorschub an. Er muß in Mikroschrit
ten der y-Richtung als INT-Denoter angegeben werden.
STD-Wert: 0
#foot#
#value#) Für spätere Erweiterungen des EUMEL-Druckers wurde die bisherige Fonthöhe in Durchschuß, Fonthöhe
und Fonttiefe aufgespalten. Für alle bis jetzt definierten Leistungen braucht nur wie bisher die Fonthöhe
angegeben zu werden. Der Durchschuß und die Fonttiefe werden dann auf Null gesetzt.
#end#
- #on("b")##ib#font height#ie##off("b")##u##value#)#e#
Die Fonthöhe ist die Distanz von der Basislinie bis zur Oberkante des höch
sten Zeichens. Sie muß in Mikroschritten der y-Richtung als INT-Denoter
angegeben werden.
STD-Wert: 6 Zeilen pro Inch entsprechend der definierten #on("i")#y unit#off("i")#
- #on("b")##ib#font depth#ie##off("b")##u##value#)#e#
Die Fonttiefe ist die Distanz von der Basislinie bis zur Unterkante des tief
sten Zeichens. Sie muß in Mikroschritten der y-Richtung als INT-Denoter
angegeben werden.
STD-Wert: 0
- #on("b")##ib#indentation pitch#ie##off("b")#
Einrückungen oder Aufzählungen werden äquidistant berechnet, d.h. Anzahl
der Zeichen mal einer festen Breite. Diese Einrückbreite sollte ein Mittel al
ler Zeichenbreiten sein und braucht nicht der Breite des Leerzeichens zu
entsprechen. Sie muß in Mikroschritten der x-Richtung als INT-Denoter an
gegeben werden.
STD-Wert: 10 Zeichen pro Inch entsprechend der definierten #on("i")#x unit#off("i")#
- #on("b")##ib#next larger font#ie##off("b")#
Hier muß der Name des nächst größeren Fonts als TEXT-Denoter aufgeführt
werden. Gibt es keinen nächst größeren Font, so ist #on("i")#niltext#off("i")# anzugeben.
STD-Wert: #on("i")#niltext#off("i")#
- #on("b")##ib#next smaller font#ie##off("b")#
Hier muß der Name des nächst kleineren Fonts als TEXT-Denoter aufge
führt werden. Gibt es keinen nächst kleineren Font, so ist #on("i")#niltext#off("i")# anzugeben.
Bei Indizes oder Exponenten wird automatisch auf diesen nächst kleineren
Font umgeschaltet.
STD-Wert: #on("i")#niltext#off("i")#
- #on("b")##ib#font string#ie##off("b")#
Hier kann als TEXT-Denoter eine Befehlssequenz angegeben werden, die
den Drucker auf diesen Font umschaltet. Diese Befehlssequenz kann vom
Druckertreiber abgefragt werden. Dadurch ist es nicht nötig, daß er die Na
men der Fonts kennt.
STD-Wert: #on("i")#niltext#off("i")#
- #on("b")##ib#y offsets#ie##off("b")#
Um bei Matrixdruckern Schriften zu erzeugen, die höher als eine Nadelreihe
sind, müssen entsprechende Bitmuster des Textes an verschiedenen y-Po
sitionen ausgegeben werden. Um diese Anforderung durch den EUMEL-
Drucker zu unterstützen, kann hier eine Liste von Verschiebungen von der
Basislinie angegeben werden, an denen der Text ein weiteres Mal ausgege
ben wird. Dabei bedeuten negative Werte eine Verschiebung oberhalb und
positive Werte eine Verschiebung unterhalb der Basislinie. Ist der Wert Null,
so wird der Text auf der Basislinie ausgegeben. Die Modifikation #on("i")#underline#off("i")#
wird bei der Ausgabe des Textes nur an der ersten Verschiebung angestellt.
Die Werte für die Verschiebungen müssen in Mikroschritten der y-Richtung
als INT-Denoter angegeben und durch Komma getrennt werden.
STD-Wert: 0
- #on("b")##ib#bold offset#ie##off("b")#
Falls der Drucker die Modifikation #on("i")#bold#off("i")# nicht beherrscht, versucht der
EUMEL-Drucker sie durch Doppeldruck zu simulieren. Der 'bold offset' gibt
an, ob und wieviel der zweite Durchgang in x-Richtung verschoben werden
soll. Dies ergibt insbesondere bei Laserdruckern, die nicht für alle Schriftty
pen einen Bold-Typ haben, einen recht guten Fettdruck. Der Wert muß in
Mikroschritten der x-Richtung als INT-Denoter angegeben werden.
STD-Wert: 0
#ib(9)##ib#Zeichenspezifikationen#ie##ie(9)#
Formaler Aufbau: [ <Zeichen> [, <Breite des Zeichens>]
[, <Ersatzdarstellung des Zeichens>] ; ]
Nachdem die Identifikationen zu einer Kennung angegeben wurden, können Zei
chenspezifikationen folgen, d.h. zu einem Zeichen kann die Breite und/oder eine
Ersatzdarstellung spezifiziert werden. Dazu muß zuerst das Zeichen selber als
TEXT-Denoter angegeben werden.
- #on("b")##ib#Breite des Zeichens#ie##off("b")#
Die Zeichenbreite muß als INT-Denoter in Mikroschritten angegeben werden.
Alle Zeichenbreiten werden mit der Einrückbreite vorbesetzt, so daß nur sol
che Zeichen angegeben werden müssen, deren Breite von der Einrückbreite
abweichen. Negative Zeichenbreiten sind nicht erlaubt. Die Angabe von Zei
chenbreiten nach der Kennung FONTTABLE wird ignoriert.
- #on("b")##ib#Ersatzdarstellung des Zeichens#ie##off("b")#
Die Ersatzdarstellung wird statt des Zeichens ausgedruckt. Sie muß als
TEXT-Denoter angegeben werden. Werden Ersatzdarstellungen nach der
Kennung FONTTABLE angegeben, so gelten sie global für alle Fonts dieser
Fonttabelle. Sie können jedoch bei der Fontangabe lokal wieder überschrie
ben werden. Eine Ersatzdarstellung darf höchsten 255 Zeichen lang sein. Alle
Ersatzdarstellungen eines Fonts dürfen 32767 Zeichen nicht überschreiten.
#ib(9)##ib#Kommentare in der Fontdatei#ie##ie(9)#
In der Fontdatei dürfen Kommentare eingefügt werden. Sie müssen den Kommen
taren der ELAN-Syntax entsprechen, d.h. mit '(*' beginnen und mit '*)' enden.
#ib(9)##ib#Deutsche Namen#ie##ie(9)#
Kennungen und Identifikationen dürfen in der Fontdatei auch mit folgenden deut
schen Namen angegeben werden.
FONTABLE : FONTABELLE
FONT : FONT
#free (0.15)#
x unit : x einheit
y unit : y einheit
on string : on sequenz
off string : off sequenz
indentation pitch : einrueckbreite
font lead : durchschuss
font height : fonthoehe
font depth : fonttiefe
next larger font : groesserer font
next smaller font : kleinerer font
font string : font sequenz
y offsets : y verschiebungen
bold offset : bold verschiebung
#ib(9)#7.4. Beispiel für eine Fontdatei#ie(9)#
In diesem Beispiel einer Fonttdatei sind drei Fonttabellen enthalten, nämlich "agfa" und
"agfaquer" für den Agfa-Drucker und "epson" für einen Epson-Drucker.
FONTTABLE : "agfa" ;
x unit = 160.0 ; #right#(* Anzahl der Mikroschritte pro cm *)
y unit = 160.0 ;
on string = "\UL1;", "\BO1;", "\IT1;", "\CFW;\CBB;" ;
off string = "\UL0;", "\BO0;", "\IT0;", "\CFT;\CBT;" ;
#right#(* globale Ersatzdarstellungen für alle Agfa-Fonts *)
""214"" , "\!298;" ; #right#(* AE *)
""215"" , "\!299;" ; #right#(* OE *)
""216"" , "\!300;" ; #right#(* UE *)
""217"" , "\!451;" ; #right#(* ae *)
""218"" , "\!452;" ; #right#(* oe *)
""219"" , "\!453;" ; #right#(* ue *)
.
.
.
FONT : "trium10" ;
indentation pitch = 30 ;
font lead = 7 ;
font heigth = 54 ;
font depth = 15 ;
next larger font = "trium12" ;
next smaller font = "helvetica8" ;
font string = "\FO5;" ;
" " , 20 ; "!" , 16 ;
"""" , 22 ; "\#" , 31 ;
"$" , 31 ; "%" , 55 ;
.
.
.
""217"" , 31 ; #right#(* ae *)
#right#(* lokale Ersatzdarstellungen für Font "trium10" *)
""244"" , 43 , "\FO23;\!725;\FO5;" ; #right#(* ungleich *)
""245"" , 31 , "\FO23;\!405;\FO5;" ; #right#(* mal-Zeichen *)
FONT : "modern12", "elanlist" ; #right#(* Mehrere Namen für einen Font *)
indentation pitch = 33 ;
font lead = 14;
font heigth = 53;
font depth = 13;
next larger font = "" ;
next smaller font = "micro" ;
font string = "\FO11;"
#right#(* Alle Zeichen haben die gleiche Breite *)
FONT . . .
FONTTABLE : "agfaquer" ;
x unit = 160.0 ;
y unit = 160.0 ;
on string = "\UL1;", "\BO1;", "\IT1;", "\CFW;\CBB;" ;
off string = "\UL0;", "\BO0;", "\IT0;", "\CFT;\CBT;" ;
.
.
.
FONTTABLE : "epson" ;
x unit = 47.24409 ; #right#(* 120.0 / 2.54 *)
y unit = 85.03937 ; #right#(* 216.0 / 2.54 *)
on string = ""27"-"1"", "", ""27"4", "";
off string = ""27"-"0"", "", ""27"5", "";
""214"" , ""27"R"2""091""27"R"0"" ; #right#(* AE *)
""215"" , ""27"R"2""092""27"R"0"" ; #right#(* OE *)
""216"" , ""27"R"2""093""27"R"0"" ; #right#(* UE *)
""217"" , ""27"R"2""123""27"R"0"" ; #right#(* ae *)
""218"" , ""27"R"2""124""27"R"0"" ; #right#(* oe *)
""219"" , ""27"R"2""125""27"R"0"" ; #right#(* ue *)
""220"" , "k" ; #right#(* Trenn-k *)
""221"" , "-" ; #right#(* Trennstrich *)
""222"" , "\#" ; #right#(* geschütztes Nummernkreuz *)
""223"" , " " ; #right#(* geschütztes Leerzeichen *)
""251"" , ""27"R"2""126""27"R"0"" ; #right#(* ss *)
""252"" , ""27"R"2""064""27"R"0"" ; #right#(* Paragraph *)
FONT : "12", "elite", "elite12" ; #right#(* Mehrere Namen für einen Font *)
font height = 36 ;
indentation pitch = 10 ;
next smaller font = "12.klein" ;
font string = ""27"!"1""27"p"0""27"T" ;
bold offset = 2 ;
FONT : "12.klein", "elite.klein", "elanlist" ;
font height = 20 ;
indentation pitch = 10 ;
next smaller font = "12.klein" ;
font string = ""27"!"1""27"p"0""27"S"1"" ;
bold offset = 1 ;
FONT : "12.hoch" ;
font height = 96 ;
indentation pitch = 10 ;
next smaller font = "12.klein" ;
font string = "" ;
bold offset = 2 ;
y offsets = 12, -12 ;#right#(* der Text wird jeweils 12 Mikroschritte unter-
#right# und überhalb der Basislinie ausgegeben *)
FONT : "prop10", "prop" ;
font height = 12 ;
indentation pitch = 24 ;
next smaller font = "" ;
font string = ""27"!"0""27"p"1""27"T" ;
bold offset = 2 ;
"!" , 10 ;
"""" , 16 ;
"(" , 12 ;
. . .
#ib(9)#7.5. Schnittstelle des #ib#Fontspeicher#ie#s#ie(9)#
Das Paket #on("i")#font store#off("i")# liefert die folgenden Prozeduren:
#ib#fonttable#ie#
PROC fonttable (TEXT CONST fonttable name)
Zweck: Stellt die angegebene Fonttabelle in der Task ein. Dabei wird zuerst in
der eigenen Task nach der angegebenen Fonttabelle gesucht. Existiert
die Fonttabelle in der eigenen Task nicht, so wird die Fonttabelle von
der Task "configurator" geholt.
Wenn die Fonttabelle eingestellt ist, sind in der Task nur noch die Fonts
dieser Fonttabelle bekannt. Die Einstellung vererbt sich auf die Sohn
tasks.
TEXT PROC fonttable
Zweck: Liefert den Name der eingestellten Fonttabelle.
#ib#list fonttables#ie#
PROC list fonttables
Zweck: Zeigt die Liste der verfügbaren Fonttabellen im #on("i")#notebook#off("i")#.
#ib#list fonts#ie#
PROC list fonts
Zweck: Listet die Fonts der eingestellten Tabelle ins #on("i")#notebook#off("i")#.
PROC list fonts (TEXT CONST fonttable name)
Zweck: Listet die Fonts der angegebenen Fonttabelle ins #on("i")#notebook#off("i")#. Die vorher
eingestellte Fonttabelle bleibt jedoch weiter eingestellt.
#ib#x step conversion#ie#
INT PROC x step conversion (REAL CONST cm)
Zweck: Rechnet die in Zentimeter angegebene Länge in Mikroschritte der
x-Richtung um.
REAL PROC x step conversion (INT CONST steps)
Zweck: Rechnet die in Mikroschritten der x-Richtung angegebene Länge in
Zentimeter um.
#ib#y step conversion#ie#
INT PROC y step conversion (REAL CONST cm)
Zweck: Rechnet die in Zentimeter angegebene Länge in Mikroschritte der
y-Richtung um.
REAL PROC y step conversion (INT CONST steps)
Zweck: Rechnet die in Mikroschritten der y-Richtung angegebene Länge in
Zentimeter um.
#ib#on string#ie#
TEXT PROC on string (INT CONST modification)
Zweck: Liefert die in der Fonttabelle spezifizierte Befehlssequenz, um eine
Modifikation anzuschalten. Es gibt die folgenden Modifikationen
1 underline
2 bold
4 italics
8 reverse
#ib#off string#ie#
TEXT PROC off string (INT CONST modification)
Zweck: Liefert die in der Fonttabelle spezifizierte Befehlssequenz, um eine
Modifikation auszuschalten. Es gibt die folgenden Modifikationen
1 underline
2 bold
4 italics
8 reverse
#ib#font#ie#
INT PROC font (TEXT CONST font name)
Zweck: Liefert die interne Fontnummer des Fonts. Mit dieser Fontnummer
können die weiteren Informationen über den Font angefordert werden.
Existiert kein Font mit diesem Namen, so wird Null geliefert.
TEXT PROC font (TEXT CONST font nr)
Zweck: Liefert den Fontnamen des Fonts mit der angegeben Fontnummer. Hat
der Font mehrere Namen, so wird der erste Name der Namensliste aus
der Fontdatei geliefert. Existiert kein Font unter dieser Nummer, so wird
#on("i")#niltext#off("i")# geliefert.
#ib#font exists#ie#
BOOL PROC font exists (TEXT CONST font name)
Zweck: Informationsprozedur zur Abfrage der Existenz eines Fonts.
#ib#next smaller font exists#ie#
BOOL PROC next smaller font exists (INT CONST font nr,
INT VAR next smaller font)
Zweck: Informationsprozedur zur Abfrage der Existenz des nächst kleineren
Fonts. Wenn er existiert, wird die Fontnummer dieses Fonts zurück
geliefert.
#ib#next larger font exists#ie#
BOOL PROC next larger font exists (INT CONST font nr,
INT VAR next larger font)
Zweck: Informationsprozedur zur Abfrage der Existenz des nächst größeren
Fonts. Wenn er existiert, wird die Fontnummer dieses Fonts zurück
geliefert.
#ib#indentation pitch#ie#
INT PROC indentation pitch (INT CONST font nr)
Zweck: Liefert die Einrückbreite in Mikroschritten der x-Richtung. Sie sollte eine
mittlere Breite der Zeichen sein, denn mit ihr werden die Einrückungen
und Aufzählungen berechnet.
#ib#font lead#ie#
INT PROC font lead (INT CONST font nr)
Zweck: Liefert den Durchschuss des Fonts in Mikroschritten der y-Richtung.
Der Druchschuß ist der Zwischenraum zwischen den einzelnen Zeilen
bei einfachem Zeilenvorschub.
#ib#font height#ie#
INT PROC font height (INT CONST font nr)
Zweck: Liefert die Höhe des Fonts in Mikroschritten der y-Richtung. Die Fon
thöhe ist die Distanz von der Basislinie bis zur Oberkante des höchsten
Zeichens.
#ib#font depth#ie#
INT PROC font depth (INT CONST font nr)
Zweck: Liefert die Tiefe des Fonts in Mikroschritten der y-Richtung. Die Fonttie
fe ist die Distanz von der Basislinie bis zur Unterkante des tiefsten
Zeichens.
#ib#font string#ie#
TEXT PROC font string (INT CONST font nr)
Zweck: Liefert den Fontstring des Fonts. Der Fontstring enthält die Befehls
sequenz, um den Drucker auf diesen Font umzuschalten.
#ib#y offsets#ie#
TEXT PROC y offsets (INT CONST font nr)
Zweck: Liefert einen Text mit den y-Verschiebungen von der Basislinie. Die
einzelnen Verschiebungen können mit dem Operator 'ISUB' abgefragt
werden.
#ib#bold offsets#ie#
INT PROC bold offsets (INT CONST font nr)
Zweck: Liefert die 'bold'-Verschiebung.
#ib#char pitch#ie#
INT PROC char pitch (INT CONST font nr, TEXT CONST char)
Zweck: Liefert die Breite des Zeichens in Mikroschritten der x-Richtung.
#ib#replacement#ie#
TEXT PROC replacement (INT CONST font nr, TEXT CONST char)
Zweck: Falls das Zeichen eine Ersatzdarstellung hat, so wird diese geliefert,
anderfalls das Zeichen selbst.
#ib#get font#ie#
PROC get font (INT CONST font nr,
INT VAR indentation pitch, font lead, font height, font depth,
ROW 256 INT VAR pitch table)
Zweck: Die Variablen liefern die entsprechenden Informantionen über den
Font. Der Eintrag des Codewerts eines Zeichens plus eins in der Brei
tentabelle liefert die Breite dieses Zeichens.
#ib#get replacements#ie#
PROC get replacements (INT CONST font nr,
TEXT VAR replacements,
ROW 256 INT VAR replacement table)
Zweck: In der Fonttabelle kann für jedes Zeichen eine Ersatzdarstellung an
gegeben werden. Diese Ersatzdarstellungen werden mit dieser Proze
dur geliefert. Dabei stehen in der Textvariablen 'replacement' die ge
samten Ersatzdarstellungen des Fonts. Die Ersatzdarstellungstabelle
enthält Zeiger auf den Text der Ersatzdarstellungen. Die Ersatzdarstel
lung eines Zeichnes bestimmt sich wie folgt:
ersatzdarstellung :
INT CONST wert := replacement table (code( zeichen ) + 1);
IF wert > 0
THEN INT CONST ende := wert + code (replacements SUB wert);
subtext (replacements, wert + 1, ende)
ELSE zeichen
FI.
Bei den Prozeduren des Packets #on("i")#font store#off("i")# können die folgenden Fehlerfälle auftreten:
- Fonttabelle noch nicht eingestellt
Es wurde noch keine Fonttabelle in der Task eingestellt.
- Fonttabelle "fonttable name" gibt es nicht
Die angegebene Fonttabelle wurde weder in der eigenen Task, noch in der
Task 'configurator' gefunden.
- Font 'font nr' gibt es nicht
Unter der angegebenen Fontnummer gibt es in der eingestellten Font
tabelle keinen Font. Speziell ist das für 'font nr' = 0 der Fall, falls ein Font
name nicht gefunden wurde.
- unzulaessige Modifikation
Die angegebene Modifikation ist ungleich 1, 2, 4 oder 8.
#page#
#headeven#
%#center#EUMEL-Systemhandbuch
#end#
#headodd#
#center#8. Verschiedenes#right#%
#end#
#ib(9)#8. Verschiedenes#ie(9)#
#ib(9)#8.1. Der Spoolmanager#ie(9)#
Der "#ib#Spoolmanager#ie#" verwaltet eine #ib#Warteschlange von Datenräumen#ie# (Dateien), die von
einem "#ib#Server#ie#" abgearbeitet werden sollen. Dabei puffert der Spoolmanager Dateien,
die von beliebigen Tasks geschickt werden können, in einer Warteschlange und gibt
sie der Reihe nach dem Server zur eigentlichen Verarbeitung. Ein typischer Einsatzfall
(aber nicht der einzige) für ein solches System ist der Druck von Dateien in Multi-
User-Systemen. Unabhängig davon, ob der Drucker gerade aktiv ist und wieviele
Dateien noch auf den Ausdruck warten, kann jeder seine Datei dem Druckerspool (in
der Regel die Task "PRINTER") senden und sofort danach weiterarbeiten.
#ib(9)#Prozeduren des Spoolmanagers#ie(9)#
Im privilegierten Ast des Taskbaumes (Söhne von "SYSUR"), stehen die folgenden
Prozeduren zur Einrichtung eines Spoolmanagers zur Verfügung.
#ib#spool manager#ie#
PROC spool manager (PROC server, BOOL CONST with start)
Zweck: Die Task, in der die Prozedur aufgerufen wird, wird zum Spoolmanager.
Wenn 'with start' auf TRUE gesetzt ist, wird eine Server-Task als unbe
nannter Sohn ("-") eingerichtet und mit der übergebenen 'PROC server'
gestartet. Anderfalls muß der Spool durch den Benutzer mit Hilfe der
Spoolkommandos (siehe dort) gestartet werden.
PROC spool manager (PROC server)
Zweck: Diese Prozedur ruft die Prozedur 'spool manager' mit 'with start' gleich
TRUE auf.
Mit Hilfe der folgenden Prozeduren kann der Spool eingestellt werden.
#ib#station only#ie#
PROC station only (BOOL CONST flag)
Zweck: Wenn flag auf TRUE gesetzt ist, nimmt der Spooler nur Aufträge von
Tasks der eigenen Station entgegen.
Voreinstellung: 'station only (FALSE)'.
BOOL PROC station only
Zweck: liefert TRUE, wenn der Spooler nur von der eigenen Station benutzt
werden darf.
#ib#spool duty#ie#
PROC spool duty (TEXT CONST duty)
Zweck: Mit dieser Prozedur kann ein Text im Spooler eingestellt werden, der die
Aufgabe des Spoolers beschreibt. Dieser wird beim 'list' gemeldet.
TEXT PROC spool duty
Zweck: Liefert die eingestellte Text-Beschreibung der Aufgabe des Spools.
#ib#spool control task#ie#
PROC spool control task (TASK CONST task)
Zweck: Diese Prozedur gibt der Task 'task' und ihrer Söhne die Berechtigung
Spoolkommandos (z.B. 'stop' oder 'start') an den Spoolmanager zusen
den. Dabei muß die Task auf derselben Station wie der Spool sein und
in der Task muß die Datei "spool cmd", die sich auf dem Standardar
chiv befindet, insertiert werden.
Wird "SUPERVISOR" als Spoolkontrolltask eingestellt, so können alle
Tasks der Station, in denen die Datei "spool cmd" insertiert ist, die
Spoolkommandos geben.
TASK PROC spool control task
Zweck: Liefert die Taskidentifikation der Spoolkontrolltask.
#ib#server channel#ie#
PROC server channel (INT CONST channel)
Zweck: Mit Hilfe dieser Prozedur wird im Spoolmanager eine Kanalnummer
eingestellt, die der Server mit der Prozedur 'server channel' abfragen
kann.
Fehlerfall:
* falsche Kanalangabe
Der angegebene Kanal ist kleiner als 1 oder größerer als 32.
INT PROC serverchannel
Zweck: Liefert die Nummer des Kanals, der im Spool eingestellt ist.
#on("b")#Anmerkung:#off("b")# Soll im nicht-privilegierten Ast des Taskbaums (Söhne von "PUBLIC") ein
Spool eingerichtet werden, so muß dort die Datei "spool manager", die
sich auf dem Standardarchiv "std.zusatz" befindet, insertiert werden.
#ib(9)##ib#Spoolkommandos#ie##ie(9)#
Ein Spool kann zur Verwaltung der Warteschlange wie jede andere Task ans Termi
nal gekoppelt werden. Danach stehen die folgenden Spoolkommandos zur Verfügung.
Diese Kommandos sind keine Prozeduren, sondern werden nur interpretiert. Sie dürfen
also nur alleine eingegeben werden. Nach Beendigung der Verwaltungsaufgaben muß
der Spool mit dem Kommando 'break' verlassen werden, da sonst keine weiteren
Aufträge an den Spool gesendet werden können und auch die Warteschlange nicht
weiter abgearbeitet wird.
#ib#stop#ie#
Zweck: Die Server-Task wird gelöscht und dadurch der Spool deaktiviert. Der
Spool empfängt zwar noch weitere Aufträge und sortiert diese in die
Warteschlange ein. Die Warteschlange wird aber nicht weiterabgearbei
tet. Ein eventuell von der Server-Task belegter Kanal wird freigegeben.
Ist bei einem 'stop' noch ein Auftrag in Bearbeitung, so wird dieser
Auftrag abrupt abgebrochen. Es wird jedoch angefragt, ob der Auftrag
nochmal neu an die erste Stelle in der Warteschlange eingetragen wer
den soll.
Ist ein Spool deaktiviert, so wird dies bei einem 'list' angezeigt,
#ib#halt#ie#
Zweck: Der Spool deaktiviert sich nach Abarbeitung des Auftrags, der gerade
bearbeitet wird. Bei einem 'list' wird dies vermerkt.
#ib#start#ie#
Zweck: Der Spool wird aktiviert, indem eine neue Server-Task begonnen wird. Ist
der Spool zuvor nicht gestoppt worden, so wird zuerst ein 'stop' durch
geführt.
Wurde mit der Prozedur 'server channel' kein Kanal eingestellt, so wird
die Warnung
WARNUNG : Serverkanal nicht eingestellt
ausgeben. Der Spool wird trotzdem gestartet.
start (kanal nummer)
Zweck: Vor dem Start des Spools wird zuerst mit der Prozedur 'server channel'
der angegebene Kanal eingestellt.
#ib#first#ie#
Zweck: Im Dialog kann ein Auftrag in der Warteschlange auf den ersten Platz
vorgezogen werden.
#ib#killer#ie#
Zweck: Im Dialog werden alle Aufträge der Warteschlange zum Löschen ange
boten.
#ib#list spool#ie#
Zweck: Der aktuelle Zustand des Spools und die Warteschlange werden geli
stet.
Ist nun eine Spoolkontrolltask eingestellt worden (siehe 'spool control task'), so muß in
ihr die Datei "spool cmd" insertiert werden. Danach stehen die folgenden Prozeduren
zur Verfügung.
#ib#stop#ie#
PROC stop (TASK CONST spool)
Zweck: Dem Spool 'spool' wird ein 'stop' zugestellt, was den Spool deaktiviert.
Wird noch ein Auftrag bearbeitet, so wird angefragt, ob dieser neu
eingetragen werden soll.
#ib#halt#ie#
PROC halt (TASK CONST spool)
Zweck: Dem Spool 'spool' wird ein 'halt' zugestellt, d.h der Spool deaktiviert
sich nach Beendigung des aktuellen Auftrags.
#ib#wait for halt#ie#
PROC wait for halt (TASK CONST spool)
Zweck: Dem Spool 'spool' wird ein 'halt' zugestellt. Die Task wartet jedoch auf
eine Rückantwort, die ihr der Spool sendet, wenn er sich nach Been
digung des aktuellen Auftrags deaktiviert hat.
Fehlerfall:
* Task "task name" wartet schon auf halt
Die angegebene Task wartet schon auf eine Rückantwort des Spools
'spool'.
#ib#start#ie#
PROC start (TASK CONST spool)
Zweck: Dem Spool 'spool' wird ein 'start' zugestellt, wodurch der Spool sich
aktiviert. War der Spool zuvor nicht deaktiviert, so wird er zuerst ge
stoppt.
#ib#first#ie#
PROC first (TASK CONST spool)
Zweck: Im Dialog kann einer der Aufträge in der Warteschlange des Spools
'spool' auf den ersten Platz vorgezogen werden.
#ib#killer#ie#
PROC killer (TASK CONST spool)
Zweck: Im Dialog werden die Aufträge der Warteschlange des Spools 'spool'
zum Löschen angeboten.
#ib(9)#Arbeitsweise des #ib#Servers#ie##ie(9)#
Der Server wird vom Spoolmanager mit einer Prozedur gestartet, die die Abarbeitung
der Warteschlange vornimmt. Dabei muß diese Prozedur zuerst den Datenraum mit
dem 'fetch code' (= 11) holen. Danach kann der Server sich noch mit dem 'fetch
param code' (= 21) die Dateiparameter (Dateiname, Schreib- und Lesepaßwort, Sen
dername und Senderstation) abholen und mit der Bearbeitung des Auftrags beginnen.
Beispiel:
LET fetch code = 11,
param fetch code = 21;
BOUND STRUCT (TEXT name, write pass, read pass, sendername,
INT senderstation ) VAR msg;
DATASPACE VAR ds, param ds;
INT VAR reply;
spool manager (PROC server);
PROC server :
disable stop;
continue (server channel);
REP forget (ds); ds := nilspace;
call (father, fetch code, ds, reply);
forget (param ds); param ds := nilspace;
call (father, param fetch code, param ds, reply);
msg := param ds;
execute spool;
IF is error THEN error treatment FI;
PER;
END PROC server;
PROC execute spool :
enable stop;
...
#ib(9)#Senden eines Auftrags an den Spool#ie(9)#
Jede Task kann jedem Spool durch Aufruf von '#ib#save#ie#' eine Datei senden.
Beispiel:
save ("datei name", task ("spool name"))
Dieses 'save'-Kommando funktioniert zweiphasig. Dabei wird in der ersten Phase dem
Spool die Dateiparameter zugesendet. In der zweiten Phase folgt dann der Datenraum
selber. Bei Netzübertragung zu einem Spool ist dieses zweiphasige 'save' jedoch
nachteilig. Deshalb können Dateien vom Typ 'FILE' auch mit einem einphasigen 'save'
unter dem 'file save code' (= 22) an den Spool gesendet werden. Die #on("i")#'headline'#off("i")# dieser
Dateien muß jedoch dann auf eine bestimmte Art und Weise aufbereitet werden, so
daß sie die Dateiparameter enthält. Beim Aufbau der #on("i")#'headline'#off("i")# muß eine Information
muß mit dem Code 0 beginnen und dem Code 1 enden. Die Dateiparamter müssen
dann mit der folgenden Reihenfolge in die #on("i")#'headline'#off("i")# eingetragen werden.
- Dateiname
- Schreibepaßwort
- Lesepaßwort
- Name des Senders
- Station des Senders
Beispiel:
...
LET file save code = 22;
DATASPACE VAR ds := old (file name);
FILE VAR file := sequential file (input, ds);
INT VAR reply;
headline (file, ""0"" + file name +
""1""0"" + write password +
""1""0"" + read password +
""1""0"" + name (myself) +
""1""0"" + text (station (myself)) + ""1"");
call (spool task, file save code, ds, reply);
...
Der Spoolmanager setzt bei Dateien, die mit dem 'file save code' angeliefert werden
die #on("i")#'headline'#off("i")# wieder auf den Dateinamen.
Den Benutzer stehen neben dem '#ib#save#ie#'-Kommando zur Übertragung einer Datei zum
Spool noch die folgenden Kommandos zur Verfügung.
save (ALL myself, task ("spool name"))
save (SOME myself, task ("spool name"))
übertragung aller bzw. einiger Dateien der eigenen Task zum Spool.
#ib#erase#ie# ("datei name", task ("spool name"))
erase (ALL task ("spool name"), task ("spool name"))
Löschen eines bzw. aller eigenen Aufträge in der Warteschlange des Spools
#ib#list#ie# (task ("spool name"))
Liste des Spools über den aktuellen Zustand und die Warteschlange.
Existiert ein Spool "PRINTER", so gibt es noch die folgenden Befehle.
#ib#print#ie#
print ("datei name")
print (ALL myself)
print (SOME myself)
Sie entsprechen einem 'save' an die Task "PRINTER"
#ib#printer#ie#
Liefert den internen Taskbezeichner der Task "PRINTER", d.h. diese Proze
dur entspricht dem Aufruf von 'task ("PRINTER")'.
#ib(9)#8.2. #ib#Freie Kanäle#ie(9)##ie#
Das Paket '#ib#free channel#ie#' ermöglicht in Multi-User-Systemen die Einrichtung freier
Kanäle. Freie Kanäle kann man zusätzlich zu dem Terminalkanal, der einem vom
Supervisor zugeordnet wurde, benutzen. Jeder freie Kanal wird durch eine (benannte)
Task - dem #ib#Kanalmanager#ie# - implementiert. Er wird danach mit dem Tasknamen ange
sprochen und kann von jeder Task belegt und wieder freigegeben werden. Während
einer Belegung können andere Tasks den Kanal nicht benutzen. Der Kanalmanager
koppelt sich für jede Belegung an den physikalischen Kanal an und gibt ihn danach
auch wieder frei. Ein physischer Kanal kann also im Wechsel von mehreren Kanalma
nagern oder einem Kanalmanager und "normalen" Tasks belegt werden.
Das Paket 'free channel' muß beim Kanalmanager und allen Benutzern des Kanals
bzw. bei einem gemeinsamen Vater insertiert sein.
#ib#FCHANNEL#ie#
Zweck: Der Datentyp FCHANNEL spezifiziert einen freien Kanal. Die Assoziie
rung mit einem realen freien Kanal erfolgt mit der Prozedur 'free chan
nel' und der Zuweisung ':=' (ähnlich wie beim Datentyp FILE).
:=
OP := (FCHANNEL VAR dest, FCHANNEL CONST source)
Zweck: Zuweisung. Wird insbesondere bei der Assoziation (Assoziation: Verbin
dung zwischen FCHANNEL VAR und Kanal) benötigt.
#ib#close#ie#
PROC close (FCHANNEL VAR f)
Zweck: Der belegte FCHANNEL wird freigeben.
PROC close (TEXT CONST channel name)
Zweck: Der namentlich spezifizierte Kanal wird freigegeben.
#ib#dialogue#ie#
PROC dialogue (FCHANNEL CONST f, TEXT CONST end of dialogue char)
Zweck: Der Terminalkanal wird direkt mit dem angegebenen freien Kanal ge
koppelt. (Das Benutzerterminal wird "durchgeschaltet".) Eingaben am
Terminal werden auf 'f' ausgegeben, auf 'f' ankommende Daten werden
auf dem Benutzerterminal ausgegeben. Der Datenverkehr erfolgt im
#ib#Vollduplexmodus#ie#, d.h. der Datenverkehr beider Richtungen läuft unab
hängig voneinander parallel. Hiermit können Terminals dynamisch an
andere Rechner gekoppelt werden. Der Dialogzustand wird durch Ein
gabe des 'end of dialogue char' am Benutzerterminal beendet.
#ib#fetch#ie#
PROC fetch (FCHANNEL VAR channel, TEXT CONST filename, controlchars)
Zweck: Die angegebene datei wird über den Kanal 'channel' eingelesen. Dabei
besteht 'control chars' aus zwei bis vier Zeichen
(eof + eol + handshake + handshake prompt)
eof:
Dieses Zeichen wird als Dateiabschluß erwartet.
eol:
Dieses Zeichen wird als Zeilenende erwartet.
handshake, handshake prompt:
Falls 'handshake prompt <> "" ' ist, wird bei dem Empfang eines
PromptZeichen eine Quittung (HandshakeZeichen) ausgegeben.
#ib#free channel#ie#
FCHANNEL PROC free channel (TEXT CONST channel name)
Zweck: Der namentlich spezifizierte Kanal wird belegt und als FCHANNEL
geliefert.
Fehlerfälle:
* task not existing
* channel not free
PROC free channel (INT CONST physical channel number)
Zweck: Installiert die eigene Task als Kanalmanager für den angegebenen
physikalischen Kanal.
#ib#in#ie#
PROC in (FCHANNEL CONST f, TEXT VAR response)
Zweck: Es werden die Daten geliefert, die seit dem letzten 'in'Aufruf bzw. seit
der Assoziierung eingetroffenen Daten geliefert. Bei 'niltext' liegen keine
Eingabedaten vor.
#ib#open#ie#
PROC open (FCHANNEL VAR f)
Zweck: Der Kanal wird neu belegt. Die Assoziation erfolgt mit dem gleichen
Kanal wie bei der letzten Assoziation.
Fehlerfälle:
* "task" gibt es nicht
* Kanal ist nicht frei
#ib#out#ie#
PROC out (FCHANNEL VAR f, TEXT CONST message)
Zweck: Der übergebene Text wird auf dem Kanal 'f' ausgegeben.
#ib#save#ie#
PROC save (FCHANNEL VAR f, TEXT CONST name, control chars)
Zweck: Die übergebene Datei muß eine Textdatei sein (Struktur eines FILEs
haben). Sie wird komplett auf dem Kanal 'f' ausgegeben.
Dabei bestehen 'control chars' aus bis zu drei Zeichen:
(eof char + eol char + handshake option)
eof char:
Dieses Zeichen wird als Dateiabschluß geschickt.
eol char:
Dieses zeichen wird als Zeilenabschluß geschickt.
handshake option:
Falls die 'control chars' drei Zeichen umfassen, wird nach jeder
Zeile auf das als drittes definierte HandshakeZeichen gewartet.
Beispiele:
a) FCHANNEL VAR f := free channel ("otto") ;
TEXT VAR antwort ;
out (f, "hallo") ;
in (f, antwort) ;
put (antwort) ;
close (f) ;
b) open (f) ;
REP
out (f, "hallo ") ;
in (f, antwort)
UNTIL antwort <> "" PER ;
put (antwort) ;
close (f) ;
c) open (f) ;
dialogue (f, "§") ;
close (f)
|