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
//
// GENERATED FILE
//
use super::*;
use crate::SpiceContext;
use f2rust_std::*;
/// Map logical unit of open file to its name.
///
/// Map the logical unit of an open file to its associated filename.
///
/// # Brief I/O
///
/// ```text
/// VARIABLE I/O DESCRIPTION
/// -------- --- --------------------------------------------------
/// LUNIT I A logical unit to be mapped to a filename.
/// FILNAM O Name of the file associated with LUNIT.
/// ```
///
/// # Detailed Input
///
/// ```text
/// LUNIT is the Fortran logical unit that is to be mapped to the
/// filename with which it is associated. The file must be
/// open for this routine to work properly.
/// ```
///
/// # Detailed Output
///
/// ```text
/// FILNAM is the filename that is associated with the Fortran
/// logical unit LUNIT.
/// ```
///
/// # Exceptions
///
/// ```text
/// 1) If the logical unit is not positive, the error
/// SPICE(INVALIDARGUMENT) is signaled.
///
/// 2) If an error occurs during the execution of the Fortran INQUIRE
/// statement, the error SPICE(INQUIREFAILED) is signaled.
///
/// 3) If the logical unit is not attached to an open file, the
/// error SPICE(FILENOTOPEN) is signaled.
///
/// 4) In the event of an error the contents of the variable FILNAM
/// are not defined and should not be used.
/// ```
///
/// # Particulars
///
/// ```text
/// Uses the Fortran INQUIRE statement to determine the filename that
/// is associated with the Fortran logical unit LUNIT.
/// ```
///
/// # Examples
///
/// ```text
/// The following code fragment illustrates the use of LUN2FN.
///
/// C
/// C Convert the logical unit to its filename and display it.
/// C
/// CALL LUN2FN ( UNIT1, FNAME1 )
/// WRITE (*,*) 'The filename is: ', FNAME1
/// ```
///
/// # Author and Institution
///
/// ```text
/// J. Diaz del Rio (ODC Space)
/// K.R. Gehringer (JPL)
/// ```
///
/// # Version
///
/// ```text
/// - SPICELIB Version 1.1.0, 12-AUG-2021 (JDR)
///
/// Added IMPLICIT NONE statement.
///
/// Edited the header to comply with NAIF standard.
///
/// - SPICELIB Version 1.0.0, 16-AUG-1994 (KRG)
/// ```
pub fn lun2fn(ctx: &mut SpiceContext, lunit: i32, filnam: &mut str) -> crate::Result<()> {
LUN2FN(
lunit,
fstr::StrBytes::new(filnam).as_mut(),
ctx.raw_context(),
)?;
ctx.handle_errors()?;
Ok(())
}
//$Procedure LUN2FN ( Map logical unit of open file to its name. )
pub fn LUN2FN(LUNIT: i32, FILNAM: &mut [u8], ctx: &mut Context) -> f2rust_std::Result<()> {
let mut IOSTAT: i32 = 0;
let mut OPENED: bool = false;
//
// SPICELIB functions
//
//
// Local variables
//
//
// Standard SPICE error handling.
//
if RETURN(ctx) {
return Ok(());
} else {
CHKIN(b"LUN2FN", ctx)?;
}
//
// First we test to see if the filename is blank.
//
if (LUNIT <= 0) {
SETMSG(b"The Fortran logical unit was not positive: #.", ctx);
ERRINT(b"#", LUNIT, ctx);
SIGERR(b"SPICE(INVALIDARGUMENT)", ctx)?;
CHKOUT(b"LUN2FN", ctx)?;
return Ok(());
}
//
// So simple, it defies explanation: just INQUIRE.
//
{
use f2rust_std::io;
let specs = io::InquireSpecs {
unit: Some(LUNIT),
name: Some(FILNAM),
opened: Some(&mut OPENED),
..Default::default()
};
IOSTAT = io::capture_iostat(|| ctx.inquire(specs))?;
}
if (IOSTAT != 0) {
SETMSG(
b"An error occurred while INQUIRing on unit #. The IOSTAT value is #.",
ctx,
);
ERRINT(b"#", LUNIT, ctx);
ERRINT(b"#", IOSTAT, ctx);
SIGERR(b"SPICE(INQUIREFAILED)", ctx)?;
CHKOUT(b"LUN2FN", ctx)?;
return Ok(());
}
//
// If there is no open file associated with the logical unit LUNIT
// we cannot get a filename. So signal an error.
//
if !OPENED {
SETMSG(
b"There was no open file associated with the logical unit #.",
ctx,
);
ERRINT(b"#", LUNIT, ctx);
SIGERR(b"SPICE(FILENOTOPEN)", ctx)?;
CHKOUT(b"LUN2FN", ctx)?;
return Ok(());
}
//
// If we made it to here, we are done. Just check out and return.
//
CHKOUT(b"LUN2FN", ctx)?;
Ok(())
}