![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to attrib.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv8dc / cmd / monk / db|
Return to attrib.m CVS log | Up to [Research Unix] / researchv8dc / cmd / monk / db |
1.1 root 1: |include(macro.h)
2: |include(list.h)
3: |include(whitespace.h)
4: |include(style.h)
5:
6: |attribute(page.offset; init;
7: [
8: . po \nOu
9: ]
10: $ [
11: . po $
12: ])
13:
14: |attribute(line.length; init;
15: [
16: . ll \nWu
17: . lt \nWu
18: ]
19: $ [
20: . ll $
21: . lt $
22: ])
23:
24: |attribute(page.length; init;
25: [
26: . pl \nLu
27: ]
28: $ [
29: . pl $
30: ])
31:
32: |attribute(spacing; init off;
33: on [
34: . rs
35: ] off [
36: . ns
37: ])
38:
39: |attribute(new.page; nostack;
40: [
41: . bp
42: ])
43:
44: |attribute(line.spacing; stack, init;
45: $ [
46: . ls $
47: ] [
48: . ls 1
49: ])
50:
51: |attribute(blank.lines; nostack;
52: $ [
53: . sp $
54: ] [
55: . sp 1
56: ])
57:
58: |attribute(horizontal.motion; nostack;
59: $ [\h'$'])
60:
61: |attribute(vertical.motion; nostack;
62: $ [\v'$'])
63:
64: |attribute(concatenate; nostack;
65: [\c])
66:
67: |attribute(new.line; nostack;
68: [
69: . br
70: ])
71:
72: |attribute(indent; stack, init;
73: $ [
74: . in $
75: ] [
76: ' in 0
77: ])
78:
79: |attribute(indent.line; nostack;
80: $ [
81: . ti $
82: ] [
83: ' ti 0
84: ])
85:
86: |attribute(fill; stack, init on;
87: on [
88: . fi
89: ] off [
90: . nf
91: ])
92:
93: |attribute(adjust; stack, init both;
94: right [
95: . ad r
96: ] left [
97: . ad l
98: ] both [
99: . ad b
100: ] on [
101: . ad
102: ] off [
103: . na
104: ])
105:
106: |attribute(center; stack, default off;
107: on [
108: . ce 9999
109: ] off [
110: . ce 0
111: ])
112:
113: |attribute(center.block; stack, default off;
114: on [
115: . di :1 \" begin second diversion
116: ] off [
117: . br \" get last partial line
118: . di \" end diversion of centered block
119: . nr ;q \n(.u \" save prevailing fill/no-fill mode
120: . nf \" bring it back in no-fill
121: . nr ;L \n(.L \" save line spacing
122: . ls 1 \" output display in ls 1
123: . nr ;i \n(.i \" save prevailing indent
124: . nr ;y 1 \" initialize width of block
125: . if \n(dl>\n(;y .nr ;y \n(dl
126: . if \n(;y<\n(.l .in (\n(.lu-\n(;yu)/2u \"indent by half of white-space
127: . :1 \" text
128: . if \n(;q .fi \" restore fill if necessary
129: . ls \n(;L \" restore line spacing
130: . in \n(;iu \" restore prevailing indent
131: . rr ;y \" free storage
132: . rm :1
133: ])
134:
135: |attribute(text; nostack;
136: $ [$])
137:
138: |attribute(error; nostack;
139: $ [
140: . tm "__FILE__":__LINE__: $
141: ])
142:
143: |attribute(width; stack, default full;
144: narrow [
145: . if \n(:C \{\
146: . ll \nW \" go narrow
147: . lt \nW \}
148: ] full [
149: . if \n(:C \{\
150: . ll \n(:W \" go wide
151: . lt \n(:W \}
152: ])
153:
154: |attribute(here; stack, default off;
155: on [
156: '\" group mechanism
157: '\" :0 store for initally diverted text
158: '\" :1 store for centered block text
159: '\" :C 0=one column, 1=first column, 2=second column
160: '\" :W page width for full page output
161: '\" :d prevent )h from outputting a floating group
162: '\" :m initial footer place and partial footnote diverter trap
163: '\" :o footer trap location
164: '\" :r position at end of page header macro
165: '\" :y flag indicating group/float in progress
166: '\" W page width
167: '\" ;L remembered line spacing TEMP
168: '\" ;i remembered indent TEMP
169: '\" ;q remembered fill/no-fill mode TEMP
170: '\" ;y initialize width of block TEMP
171: . if \n(:y .tm "__FILE__":__LINE__: Groups can not be nested
172: . nr :y 1 \" set flag indicating group
173: . br \" output partial line before display
174: . di :0 \" collect in :0
175: ] off [
176: '\" Control page orientation of blocks.
177: '\" Blocks are output as soon after their definition as
178: '\" feasible. The following rules are used:
179: '\" 1. if the block will fit on the current page, output it there.
180: '\" 2. if the block won't fit on any page, and we have used less than
181: '\" half of the current page, then output the block on the
182: '\" current page.
183: '\" 3. skip to the next page.
184: . br \" get last partial line
185: . di \" end diversion
186: '\" The following if condition tests: (1) if the block is too large to
187: '\" fit on the current page and either (2) it will fit on an unused page
188: '\" or (3) we have already used more than half of the current page. (the
189: '\" three conditions are grouped in the form 1 & (2 : 3)). If this
190: '\" total condition is true, then a page is ejected and the block output
191: '\" on the next page.
192: . nr :d 1 \" prevent )h from outputting a floating group
193: . if (\n(dn>=\n(.t)&((\n(dn<(\n(.p-\n(:r-\n(:m)):\
194: (\n(nl>(\n(.p-\n(:r-\n(:o/2u+\n(:r)))\
195: . ne \n(.tu+1v \" spring the trap
196: . nr ;q \n(.u \" save prevailing fill/no-fill mode
197: . nf \" bring it back in no-fill
198: . nr ;L \n(.L \" save line spacing
199: . ls 1 \" output display in ls 1
200: . nr ;i \n(.i \" save prevailing indent
201: . in 0 \" indent back
202: . rs \" restore spacing
203: . :0 \" text
204: . nr :d 0 \" allow )h to output a floating group
205: . if \n(;q .fi \" restore fill if necessary
206: . ls \n(;L \" restore line spacing
207: . in \n(;iu \" restore prevailing indent
208: . nr :y 0 \" reset flag indicating group
209: . rr ;L ;i ;q \" free storage
210: . rm :0
211: ])
212:
213: |attribute(around; stack, default off;
214: on [
215: '\" float mechanism
216: '\" !{a-z} width of stored floating 0=narrow, 1=wide
217: '\" :0 store for initally diverted text
218: '\" :1 store for centered block text
219: '\" :C 0=one column, 1=first column, 2=second column
220: '\" :W page width for full page output
221: '\" :m initial footer place and partial footnote diverter trap
222: '\" :o footer trap location
223: '\" :r position at end of page header macro
224: '\" :w output counter for floating keeps
225: '\" :y flag indicating group/float in progress
226: '\" :z input counter for floating keeps
227: '\" W page width
228: '\" ?{a-z} text of stored floating
229: '\" |{a-z} size of stored floating
230: '\" ;L prevailing line spacing
231: '\" ;f prevailing font
232: '\" ;i prevailing indent
233: '\" ;j prevailing adjust
234: '\" ;l prevailing line length
235: '\" ;o prevailing page offset ??????? bug with .po
236: '\" ;s prevailing point size
237: '\" ;u prevailing fill/no-fill mode
238: '\" ;v prevailing vertical spacing
239: '\" ;w convert to alpha format
240: '\" ;y initialize width of block
241: . if \n(:y .tm "__FILE__":__LINE__: Groups can not be nested
242: . nr :y 1 \" set flag indicating group
243: . nr ;s \n(.s \" save prevailing point size
244: . nr ;f \n(.f \" save prevailing font
245: . nr ;u \n(.u \" save prevailing fill/no-fill mode
246: . nr ;j \n(.j \" save prevailing adjust
247: . nr ;v \n(.v \" save prevailing vertical spacing
248: . nr ;L \n(.L \" save prevailing line spacing
249: . nr ;l \n(.l \" save prevailing line length
250: . nr ;i \n(.i \" save prevailing indent
251: . ev 1 \" use footnote environment
252: . ps \n(;s \" restore point size
253: . vs \n(;sp+2p \" restore vertical spacing
254: . ft \n(;f \" restore font
255: . nf \" bring it back in no-fill
256: . if \n(;u .fi \" restore fill if necessary
257: . ad \n(;j \" restore page adjust
258: . vs \n(;vu \" restore vertical spacing
259: . ls \n(;L \" restore line spacing
260: . ll \n(;lu \" restore line length
261: . in \n(;iu \" restore indent
262: . ti \n(;iu \" turn off indentation
263: . hy 14 \" turn on hyphenation
264: . lt \n(;lu \" restore title length
265: . di :0 \" collect in :0
266: ] off [
267: '\" Control page orientation of floats.
268: '\" Floats are output as soon after their definition as
269: '\" feasible. The following rules are used:
270: '\" 1. if the queue contains only this float and it will fit on the
271: '\" current page, output it there.
272: '\" 2. if the queue contains only this float and it won't fit on any
273: '\" page, and we have used less than half of the current page,
274: '\" then output the float on the current page.
275: '\" 3. let the top of page macro handle it.
276: . br \" get last partial line
277: . di \" end diversion of centered block
278: . ev \" back to previous environment
279: . nr :z \n(:z%26+1 \" get index of next output element
280: . if \n(:z-\n(:w=0 .tm "__FILE__":__LINE__: too many floating displays
281: . af ;w a \" conversion register for display queue names
282: . nr ;w \n(:z \" form the next queue element name
283: . rn :0 ?\n(;w \" put the display into the queue
284: . nr !\n(;w 0 \" narrow
285: . if !\n(:C .nr !\n(;w 1 \" wide display if only one column
286: . nr |\n(;w \n(dn \" put the size of text
287: '\" The following if condition tests: (1) if there is only one float
288: '\" on the queue to output and (2) if wide displays and (3) we are on the
289: '\" first column and (4) if the float fits on the current page or
290: '\" (5) the float is too large to fit on any one page, and (6) we have used
291: '\" less than half of the current page. (the six conditions are grouped
292: '\" in the form (1 & (2 & 3) & (4 : (5 & 6))). If this total condition is true,
293: '\" then a float is output.
294: . if ((\n(:z-\n(:w=1)&((\n(!\n(;w=1)&(\n(:C<2))&\
295: ((\n(dn<\n(.t):((\n(dn>(\n(.p-\n(:r-\n(:m))&\
296: (\n(nl<=(\n(.p-\n(:r-\n(:o/2u+\n(:r))))) .)z
297: . nr :y 0 \" reset flag indicating group
298: . rr ;L ;f ;i ;j ;l ;o ;s ;u ;v ;w \" free storage
299: ])
300:
301: |attribute(around_placement; nostack;
302: [
303: . )w
304: ])
305:
306: |attribute(footnote; stack, default off;
307: on [
308: '\" :C 0=one column, 1=first column, 2=second column
309: '\" :F Footnote text
310: '\" :W page width for full page output
311: '\" :m initial footer place and partial footnote diverter trap
312: '\" :o footer trap location
313: '\" :q amount of footnote text
314: '\" :v width of stored footnote 0=narrow, 1=wide
315: '\" :x flag indicating footnote in progress
316: '\" W page width
317: '\" ;L prevailing line spacing
318: '\" ;f prevailing font
319: '\" ;i prevailing indent
320: '\" ;j prevailing adjust
321: '\" ;l prevailing line length
322: '\" ;o prevailing page offset ??????? bug with .po
323: '\" ;s prevailing point size
324: '\" ;u prevailing fill/no-fill mode
325: '\" ;v prevailing vertical spacing
326: . if \n(:x .tm "__FILE__":__LINE__: Footnotes can not be nested
327: . nr :x 1 \" set flag indicating footnote
328: . nr ;s \n(.s \" save prevailing point size
329: . nr ;f \n(.f \" save prevailing font
330: . nr ;u \n(.u \" save prevailing fill/no-fill mode
331: . nr ;j \n(.j \" save prevailing adjust
332: . nr ;v \n(.v \" save prevailing vertical spacing
333: . nr ;L \n(.L \" save prevailing line spacing
334: . nr ;l \n(.l \" save prevailing line length
335: . nr ;i \n(.i \" save prevailing indent
336: . ev 1 \" use footnote environment
337: . ps \n(;s \" restore point size
338: . vs \n(;sp+2p \" restore vertical spacing
339: . ft \n(;f \" restore font
340: . nf \" bring it back in no-fill
341: . if \n(;u .fi \" restore fill if necessary
342: . ad \n(;j \" restore page adjust
343: . vs \n(;vu \" restore vertical spacing
344: . ls \n(;L \" restore line spacing
345: . ll \n(;lu \" restore line length
346: . in \n(;iu \" restore indent
347: . ti \n(;iu \" turn off indentation
348: . hy 14 \" turn on hyphenation
349: . lt \n(;lu \" restore title length
350: |ifvalue wide on [
351: . if \n(:C \{\
352: . ll \n(:W \" go wide
353: . lt \n(:W \}
354: ]
355: 'DUMMY
356: . da :F \" collect in :F
357: . if !\n(:q \{\
358: . nr ;o \n(.o \" save prevailing page offset
359: . po 0 \" always from left margin
360: . ps 10 \" 10 point roman font
361: . vs 10p
362: . ft 1
363: . ie \n(.A=0 \l'72p'\" layout partial rule if new footnote
364: . el __________
365: . ft \" restore values
366: . vs
367: . ps
368: . po \n(;ou\}
369: ] off [
370: . br \" get last partial line
371: . di \" end diversion
372: |ifvalue wide on [
373: . if \n(:C \{\
374: . ll \nW \" go narrow
375: . lt \nW \}
376: . nr :v 1 \" wide footnote
377: ]
378: 'DUMMY
379: |ifnotvalue wide on [
380: . if !\n(:C .nr :v 1 \" wide footnote if only one column
381: ]
382: 'DUMMY
383: . ev \" go back to previous environment
384: . nr :x 0 \" clear flag indicating footnote
385: . nr :q +\n(dnu \" add in amount of new footnotes
386: '\" Move up footer trap, but not above current position on page
387: . nr :o +\n(dnu
388: . if !\n(.pu-\n(nlu-.5p-\n(:ou .nr :o \n(.pu-\n(nlu-.5p
389: '\" or below :m!
390: . if !\n(:ou-\n(:mu .nr :o \n(:mu
391: . ch )f -\n(:ou \" move footer trap
392: . rr ;L ;f ;i ;j ;l ;s ;u ;v \" free storage
393: ])
394:
395: |attribute(size; stack, default;
396: $ [\&\s$]
397: [\&\s\nS])
398:
399: |attribute(font.size; stack, init;
400: $ [
401: . ps $
402: . vs \n(.sp+2p
403: ] [
404: . ps \nSp
405: . vs \nSp+2p
406: ])
407:
408: |attribute(font; stack, init;
409: roman [
410: |ifvalue fill off [\&\f1]
411: |ifvalue fill on [
412: . ft 1
413: ]
414: ] italics [
415: |ifvalue fill off [\&\f2]
416: |ifvalue fill on [
417: . ft 2
418: ]
419: ] bold [
420: |ifvalue fill off [\&\f3]
421: |ifvalue fill on [
422: . ft 3
423: ]
424: ] special [
425: |ifvalue fill off [\&\f4]
426: |ifvalue fill on [
427: . ft 4
428: ]
429: ] cw [
430: |ifvalue fill off [\&\f(CW]
431: |ifvalue fill on [
432: . ft CW
433: ]
434: ] [
435: |ifvalue fill off [\&\f\nF]
436: |ifvalue fill on [
437: . ft \nF
438: ]
439: ])
440:
441: |attribute(temporary.font; nostack;
442: roman [\f1]
443: roman $ [\f1$\fP]
444: italics [\f2]
445: italics $ [\f2$\fP]
446: bold [\f3]
447: bold $ [\f3$\fP]
448: special [\f4]
449: special $ [\f4$\fP]
450: cw [\f(CW]
451: cw $ [\f(CW$\fP]
452: [\fP]
453: )
454:
455: |attribute(font.family; stack, default times;
456: times [
457: . fp 1 R
458: . fp 2 I
459: . fp 3 B
460: . fp 4 BI
461: ] palatino [
462: . fp 1 PA
463: . fp 2 PI
464: . fp 3 PB
465: . fp 4 PX
466: ] bembo [
467: . fp 1 B1
468: . fp 2 B2
469: . fp 3 B3
470: . fp 4 B4
471: ] optima [
472: . fp 1 O1
473: . fp 2 O2
474: . fp 3 O3
475: . fp 4 O4
476: ] souvenir [
477: . fp 1 SV
478: . fp 2 SI
479: . fp 3 SB
480: . fp 4 SX
481: ] helvetica [
482: . fp 1 H
483: . fp 2 HI
484: . fp 3 HB
485: . fp 4 HX
486: ] cw [
487: . fp 1 CW
488: . fp 2 I
489: . fp 3 B
490: . fp 4 BI
491: ])
492:
493: |attribute(if; nostack;
494: $test [
495: . if $test \
496: ] begin $test [
497: . if $test \{\
498: ] end [\}\c
499: ] else $test [
500: . ie $test \
501: ] else begin $test [
502: . ie $test \{]
503: else [
504: . el \
505: ] else begin [
506: . el \{])
507:
508: |attribute(tab; nostack;
509: [\& ])
510:
511: |attribute(thick.line; nostack;
512: $ [
513: . ps 24
514: \l'$'
515: . ps
516: ] [
517: . ps 24
518: \l'\n(.lu'
519: . ps
520: ])
521:
522: |attribute(line; nostack;
523: $ [\l'$']
524: [\l'\n(.lu'])
525:
526: |attribute(box; nostack;
527: x [\s12\o'\(mu\(sq'\s0]
528: empty [\s12\(sq\s0]
529: [\(sq])
530:
531: |attribute(underline; stack, default off;
532: on [\kx]
533: off [\l'|\nxu\(ul'])
534:
535: |attribute(hyphenate; stack, init on;
536: on [
537: . hy 14
538: ] off [
539: . nh
540: ])
541:
542: |attribute(case; stack, init any;
543: upper [
544: '\" need to write this yet
545: ] lower [
546: '\" need to write this yet
547: ] capitalize [
548: '\" need to write this yet
549: ] any [
550: '\" need to write this yet
551: ])
552:
553: |attribute(tab.stops; nostack;
554: $* [
555: . ta $*
556: ] [
557: . ta .5i 1.0i 1.5i 2.0i 2.5i 3.0i 3.5i 4.0i 4.5i 5.0i 5.5i 6.0i 6.5i 7.0i 7.5i
558: ])
559:
560: |attribute(set; nostack;
561: $* $number [
562: |for i in $* {
563: . nr $i $number
564: }] string $* $string [
565: |for i in $* {
566: . ds $i $string
567: }])
568:
569: |attribute(store; nostack;
570: $* $$. [
571: |for i in $* {
572: . nr $i \n$$.
573: }] $* $number.register [
574: |for i in $* {
575: . nr $i \n($number.register
576: }] string $* $$. [
577: |for i in $* {
578: . ds $i \*$$.
579: }] string $* $string.register [
580: |for i in $* {
581: . ds $i \*($string.register
582: }] number.from.string $* $$. [
583: |for i in $* {
584: . nr $i \*$$.
585: }] number.from.string $* $string.register [
586: |for i in $* {
587: . nr $i \*($string.register
588: }] string.from.number $* $$. [
589: |for i in $* {
590: . ds $i \n$$.
591: }] string.from.number $* $number.register [
592: |for i in $* {
593: . ds $i \n($number.register
594: }])
595:
596: |attribute(clear; nostack;
597: $* [
598: |for i in $* {
599: . nr $i 0
600: }] string $* [
601: . rm $*
602: ])
603:
604: |attribute(add; nostack;
605: $result $operand $* [
606: . nr $result \n($operand
607: |for i in $* {
608: . nr $result +\n($i
609: }] $result $operand [
610: . nr $result \n($operand
611: ] string $string $text [
612: . as $string $text
613: ] string.from.number $string $number.register [
614: . as $string \n($number.register
615: ] string.from.string $string $string.register [
616: . as $string \*($string.register
617: ])
618:
619:
620: |attribute(incr; nostack;
621: $* [
622: |for i in $* {
623: . nr $i +1
624: }])
625:
626: |attribute(decr; nostack;
627: $* [
628: |for i in $* {
629: . nr $i -1
630: }])
631:
632: |attribute(protect; nostack;
633: $ [
634: . ne $
635: ] [
636: . ne 3
637: ])
638:
639: |attribute(warn.orphan; nostack;
640: $ [
641: '\" need to write this yet
642: ] [
643: '\" need to write this yet
644: ])
645:
646: |attribute(two.columns; nostack;
647: on [
648: '\" :C 0=one column, 1=first column, 2=second column
649: '\" :O page offset for other column
650: '\" :W page width for full page output
651: '\" :u position to return to for second column output
652: '\" O page offset
653: '\" W page width
654: . if \n(:C .tm "__FILE__":__LINE__: already in two column mode
655: . br \" force out last partial line
656: . nr :C 1 \" flag for two column mode, first column
657: . nr :W \nW \" save line length
658: . nr W \n(.lu*8u/17u \" new line length
659: . nr :O \n(.lu*9u/17u+\nOu\" page offset for other column
660: . ll \nWu \" set new line length
661: . lt \nWu \" set new title length
662: . mk :u \" save where second column starts
663: ] off [
664: . if !\n(:C .tm "__FILE__":__LINE__: already in full page mode
665: . br \" force out last partial line
666: . if \n(:C>1 .ne \n(.tu+1v\" spring footer trap for second column
667: . nr W \n(:Wu \" restore line length
668: . ll \nWu \" set new line length
669: . lt \nWu \" set new title length
670: . nr :C 0 \" flag for full page mode
671: ])
672:
673: |attribute(divert.string; nostack;
674: $string.name [
675: . ds $string.name ])
676:
677: |attribute(divert.number; nostack;
678: $number.name [
679: . nr $number.name ])
680:
681: |attribute(divert.output; stack, default off;
682: on $string.name [
683: . di $string.name \" start diverting into macro
684: ] off [
685: . br \" get last partial line
686: . di \" turn off diversions
687: ])
688:
689: |attribute(divert.input; stack, default off;
690: on $string.name [
691: . eo
692: . de $string.name
693: ] off [
694: ..
695: . ec
696: ])
697:
698: |attribute(remember; nostack;
699: $ [
700: . mk $
701: ])
702:
703: |attribute(return; nostack;
704: $$. [
705: . sp |\n$$.u
706: ] $ [
707: . sp |\n($u
708: ])
709:
710: |attribute(goto; nostack;
711: $ [
712: . sp |$
713: ])
714:
715: |attribute(string; nostack;
716: $$. [\*$$.]
717: $string.register [\*($string.register])
718:
719: |attribute(macro; nostack;
720: $ [
721: . $
722: ])
723:
724: |attribute(number; nostack;
725: $$. $format [
726: . af $$. $format
727: \n$$.]
728: $number.register $format [
729: . af $number.register $format
730: \n($number.register]
731: $$. [\n$$.]
732: $number.register [\n($number.register]
733: ++ $$. [\n+$$.]
734: ++ $number.register [\n+($number.register]
735: format $* $format [
736: |for i in $* {
737: . af $i $format
738: }])
739:
740: |attribute(reference; stack, default off;
741: on {
742: . [
743: } off {
744: . ]
745: } placement {
746: . [
747: $LIST$
748: })
749:
750: |attribute(table; stack, default off;
751: on [
752: . TS
753: ] off [
754: . TE
755: ])
756:
757: |attribute(picture; stack, default off;
758: on [
759: . PS
760: ] off [
761: . PE
762: ])
763:
764: |attribute(equation; stack, default off;
765: on [
766: . EQ
767: ] off [
768: . EN
769: ])
770:
771: |attribute(inline.equation; stack, default off;
772: on []
773: off [])
774:
775: |attribute(graph; stack, default off;
776: on $$. [
777: . G1 \*$$.
778: ] on $string.register [
779: . G1 \*($string.register
780: ] off [
781: . G2
782: ])
783:
784: |attribute(bargraph; stack, default off;
785: on [
786: . B1
787: ] off [
788: . B0
789: ])
790:
791: |attribute(citation; nostack;
792: save [
793: . CD "]
794: save end $$. [" "\*$$."
795: ] save end $string.register [" "\*($string.register"
796: ] savepage end [" "\nP"
797: ] remember [
798: . CU "]
799: remember end ["])
800:
801: |attribute(insert; nostack;
802: $file.name [
803: . so $file.name
804: ])
805:
806: |attribute(list.tags; stack, init none;
807: bullet [
808: . ds list_type bullet
809: ] dash [
810: . ds list_type dash
811: ] outline [
812: . ds list_type outline
813: ] number [
814: . ds list_type number
815: ] none [
816: . ds list_type none
817: ])
818:
819: |attribute(format.type; stack, init none;
820: model [
821: . ds format_type model
822: ] none [
823: . ds format_type none
824: ])
825:
826: |attribute(verbatim; stack, init off;
827: off []
828: on [])
829:
830: |attribute(file.information; nostack;
831: [
832: . lf __LINE__ __FILE__
833: ])
834:
835: |attribute(white.text; nostack;
836: $text [|ifvalue verbatim off []|ifvalue verbatim on [$text]])
837:
838: |attribute(nl.paragraph; nostack;
839: [|ifvalue verbatim on [
840: ]|ifvalue verbatim off []])
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.