%%s 3/3/53
%%d D 1.2 15-Jun-83 10:07:12 sventek 2 1
%%c Removed trailing periods in quoted strings, as they are no longer needed.
%%s 0/0/0
%%d D 1.1 25-Mar-82 12:01:27 v1.1 1 0
%%c Version 1.1 is the Spring 1982 Distribution of the LBL/Hughes release
%%c of the Software Tools Virtual Operating System software and documentation.
%%T
%%I 1
%%D 2
#-h- asam.r           511  asc  25-mar-82 07:18:30  v1.1 (sw-tools v1.1)
#-h- main             438  asc  25-mar-82 07:18:19  v1.1 (sw-tools v1.1)
%%E 2
%%I 2
#-h- asam.r           514  asc  15-jun-83 10:06:37  sventek (joseph sventek)
#-h- main             437  asc  15-jun-83 10:06:31  sventek (joseph sventek)
%%E 2
DRIVER(asam)

character buf(MAXLINE)
integer junk, size(2), fsize(2)
integer note, agethd
linepointer addr

%%D 2
call query("usage:  asam <input_archive.")
%%E 2
%%I 2
call query("usage:  asam <input_archive")
%%E 2
fsize(1) = MAX_INTEGER
fsize(2) = 0
repeat
  {
  junk = note(addr, STDIN)
  if (agethd(STDIN, buf, size, fsize) != OK)
    break
  call putlin(buf, STDOUT)
  call putch(' ', STDOUT)
  call putptr(addr, STDOUT)
  call putch('@n', STDOUT)
  call askip(STDIN, size, fsize)
  }

DRETURN
end
#-h- asam.fmt         777  asc  25-mar-82 07:18:31  v1.1 (sw-tools v1.1)
.so ~bin/manhdr
.hd Asam (1) 11-Mar-82
generate index for archive file
.sy
asam <input_archive
.ds
`asam' generates the same type of index as `isam', with
the exception that index lines are generated only for the archive header
lines.
The generated index appears on standard output, and may be sorted or
whatever necessary for the application.
The primary key output in the index line is the name of the module.
Unlike `isam', there are no switches for output control in the
generated index lines.
The module name is output, followed by a blank character, followed by
the formatted linepointer.
.sp
`asam' is used specifically to generate the indices for the manual sections
found in ~man.
.fl

.sa
isam - generate index for indexed-sequential access
.di

.au
Joe Sventek
.bu

%%E 1