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
|
#D \module
#D [ file=cont\_mis.pm,
#D version=1999.05.05,
#D title=General modules,
#D subtitle=all kind of subs,
#D author=Hans Hagen,
#D date=\currentdate,
#D copyright={PRAGMA / Hans Hagen \& Ton Otten}]
#C
#C This module is part of the \CONTEXT\ macro||package and is
#C therefore copyrighted by \PRAGMA. See licen-en.pdf for
#C details.
#D Not yet documented, source will be cleaned up.
package cont_mis ;
use strict ;
my ($message, $separator, $content) ;
format =
@>>>>>>>>>>>>>>>>>>>>> @ @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$message,$separator,$content
.
sub report
{ ($message, $separator, $content) = @_ ; write }
sub crlf { print "\n" }
sub banner { crlf ; report (shift , '/', shift) ; crlf }
sub message { report (shift , ':', shift) }
sub help { report (shift , ' ', shift) }
sub status { message ('status' , shift) }
sub warning { message ('warning' , shift) }
sub error { message ('error' , shift) }
sub continue { message ('' , shift) }
sub hex_color
{ my ($r,$g,$b) = @_ ;
if ($r>1) { $r=0xffff } else { $r = 0xffff*$r }
if ($g>1) { $g=0xffff } else { $g = 0xffff*$g }
if ($b>1) { $b=0xffff } else { $b = 0xffff*$b }
local $_ = sprintf "%4x%4x%4x", $r, $g, $b ;
s/ /0/go ;
return $_ }
sub InterfaceFound
{ local $_ = shift ;
if (/^\%.*interface=(.*?)\b/)
{ return $1 }
elsif (/\\(starttekst|stoptekst|startonderdeel)/)
{ return 'nl' }
elsif (/\\(stelle|verwende|umgebung|benutze)/)
{ return 'de' }
elsif (/\\(stel|gebruik|omgeving)/)
{ return 'nl' }
elsif (/\\(use|setup|environment)/)
{ return 'en' }
elsif (/(hoogte|breedte|letter)=/)
{ return 'nl' }
elsif (/(height|width|style)=/)
{ return 'en' }
elsif (/(hoehe|breite|schrift)=/)
{ return 'de' }
else
{ return '' } }
1;
|