hsxpr file = open_profile (&file),
{
  file = {
           file_name : file_name,
           file_format : FF_S_EXPR
         }
};

commands_in (file, "/", PARSE_ALL, (p_s_expression sxpr) { 
                                                           ...
                                                         });

ú
ú
ú

free (&file);