blob: 63f43a84066c99d0a53c1f78c84d1a595e66add9 (
plain) (
blame)
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <fmset.h>
# FM_LFPARSE -- Parse an encoded lfile filename.
# The filename syntax is "Tddd.fff" where
#
# T is 'B' or 'T' for text or binary
# ddd is the encoded descriptor pointer
# fff is the encoded lfile number
int procedure fm_lfparse (lfname, fm, lfile, type)
char lfname[ARB] #I encoded lfile filename
pointer fm #O FMIO descriptor
int lfile #O lfile number
int type #O lfile file type (text or binary)
int ip
int ctoi()
begin
# Determine file type.
if (lfname[1] == 'T')
type = TEXT_FILE
else
type = BINARY_FILE
# Get FMIO descriptor.
ip = 2
if (ctoi (lfname, ip, fm) <= 0)
return (ERR)
# Skip . delimiter.
if (lfname[ip] == '.')
ip = ip + 1
else
return (ERR)
# Get lfile number.
if (ctoi (lfname, ip, lfile) <= 0)
return (ERR)
return (OK)
end
|
