/*
 *	although never called, it forces the linker to load
 *	most (all) filestruct routines for a dynamic object
 *	loader.
 */

#include <filestruct.h>
 
static void fs_linker(dstr)
stream dstr;
{   
   int    i;

   error("fs_linker cannot be called");
   (void) allocate(1);
   (void) stropen("Dummy","r");
   (void) get_tag_ok(dstr,"Dummy");
   (void) get_string(dstr,"Dummy");
   (void) get_set(dstr,"Dummy");
   (void) get_data(dstr,"Dummy","Dummy",&i,0);
   (void) get_tes(dstr,"Dummy");
   (void) strclose(dstr);
}