3 .ds ;G \\*(;G\\f\\$1\\$3\\f\\$2
4 .if !
\a\\$4
\a\a .Af \\$2 \\$1 "\\$4" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9"
7 .ie
\a\\$3
\a\a .ft \\$1
11 .Af "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9"
16 .aF 5 \\n(.f "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" "\\$7"
19 .aF 5 1 "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" "\\$7"
22 .aF 1 5 "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" "\\$7"
24 .de EX \" start example
41 strtape \- convert string to tape device pathname
43 .L "char* strtape(char* s, char** e)"
46 converts the generic tape device specification in the nul-terminated string
48 to a local tape device pathname.
49 A pointer to the device pathname is returned.
54 is set to point to the first unrecognized character in
57 A tape device specification is composed of
58 .IR unit-density-rewind .
61 is a unit number in the range
65 Density may be one of:
81 for no-rewind on device close.
82 The default is to rewind on device close.
86 The return value points to a static area that is overwritten on each call.