This file is indexed.

/usr/share/yaz/ill/ill.tcl is in libyaz4-dev 4.2.30-4.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 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
# Config File for ILL
# ----------------------------------------------------------
# Prefix Specifications
#  
#    1: C function prefix
#    2: C type prefix
#    3: C preprocessor prefix

# Default prefix
set default-prefix {ill_ ILL_ ILL_}

# ----------------------------------------------------------
set m ISO-10161-ILL-1

# Filename
set filename($m) ill-core

# Header initialization code
set init($m,h) "
"

# Header body code
set body($m,h) "
#ifdef __cplusplus
extern \"C\" \{
#endif

#ifdef __cplusplus
\}
#endif
"

# C body code
set body($m,c) "
"

# Some mappings - that map ill_ILL_<name> to ill_<name>
set map($m,ILL-APDU) APDU
set map($m,ILL-Request) Request
set map($m,ILL-Answer) Answer
set map($m,ILL-String) String
set map($m,ILL-APDU-Type) APDU_Type
set map($m,ILL-Service-Type) Service_Type
set map($m,Service_Date_Time_0) Service_Date_this
set map($m,Service_Date_Time_1) Service_Date_original
set map($m,Overdue_0) Overdue_ExtensionS
set membermap($m,APDU,ILL-Request) {APDU_ILL_Request illRequest}
set membermap($m,APDU,ILL-Answer) {APDU_ILL_Answer illAnswer}

# ----------------------------------------------------------
set m OCLCILLRequestExtension
# Filename
set filename($m) oclc-ill-req-ext

# ----------------------------------------------------------
set m Z39.50-extendedService-ItemOrder-ItemRequest-1
# Filename
set filename($m) item-req

# Mappings of a few basic types
proc asnBasicPrintableString {} {
    return {odr_visiblestring char}
}

proc asnBasicANY {} {
    return {odr_any Odr_any}
}