texinfo/makeinfo/files.c

88 get_file_info_in_path (char *filename, char *path, struct stat *finfo)
97   if (IS_ABSOLUTE (filename)
98       || (*filename == '.'
99           && (IS_SLASH (filename[1])
100               || (filename[1] == '.' && IS_SLASH (filename[2])))))
102       if (stat (filename, finfo) == 0)
103         return xstrdup (filename);
118       fullpath = xmalloc (2 + strlen (dir) + strlen (filename));
119       sprintf (fullpath, "%s/%s", dir, filename);
193 find_and_load (char *filename, int use_path)
204     = get_file_info_in_path (filename, use_path ? include_files_path : NULL,
210   filename = fullpath;
213   file = open (filename, O_RDONLY);
289   newstack->filename = input_filename;
323   input_filename = tos->filename;
348 /* Return the index of the first character in the filename
351 skip_directory_part (char *filename)
353   int i = strlen (filename) - 1;
355   while (i && !IS_SLASH (filename[i]))
357   if (IS_SLASH (filename[i]))
359   else if (filename[i] && HAVE_DRIVE (filename))
371 /* Return just the simple part of the filename; i.e. the
372    filename without the path information, or extensions.
375 filename_part (char *filename)
377   char *basename = filename_non_directory (filename);
390 /* Return the pathname part of filename.  This can be NULL. */
392 pathname_part (char *filename)
397   filename = expand_filename (filename, "");
399   i = skip_directory_part (filename);
403       strncpy (result, filename, i);
406   free (filename);
412 full_pathname (char *filename)
417   /* No filename given? */
418   if (!filename || !*filename)
422   if (IS_ABSOLUTE (filename) ||
423       (*filename == '.' &&
424        (IS_SLASH (filename[1]) ||
425         (filename[1] == '.' && IS_SLASH (filename[2])))))
426     return xstrdup (filename);
428   initial_character = *filename;
439                    progname, filename, localdir);
444       strcat (localdir, filename);
453       if (IS_SLASH (filename[1]))
460           result = xmalloc (strlen (&filename[1])
469           strcat (result, &filename[1]);
477           for (i = 1; (c = filename[i]); i++)
490             return xstrdup (filename);
493                                     + strlen (&filename[i]));
495           strcat (result, &filename[i]);
504 expand_filename (char *filename, char *input_name)
508   if (filename)
510       filename = full_pathname (filename);
511       if (IS_ABSOLUTE (filename)
512 	  || (*filename == '.' &&
513 	      (IS_SLASH (filename[1]) ||
514 	       (filename[1] == '.' && IS_SLASH (filename[2])))))
515 	return filename;
519       filename = filename_non_directory (input_name);
521       if (!*filename)
523           free (filename);
524           filename = xstrdup ("noname.texi");
527       for (i = strlen (filename) - 1; i; i--)
528         if (filename[i] == '.')
532         i = strlen (filename);
534       if (i + 6 > (strlen (filename)))
535         filename = xrealloc (filename, i + 6);
536       strcpy (filename + i, html ? ".html" : ".info");
537       return filename;
547       result = xmalloc (1 + strlen (input_name) + strlen (filename));
555       strcpy (&result[i], filename);
556       free (filename);
559   return filename;
642       warning (_("`%s' omitted before output filename"), delayed_command);
669   new->filename = xstrdup (current_output_filename);
694       delayed_buf = find_and_load (temp->filename, 0);
704           fs_error (temp->filename);
708       output_stream = fopen (temp->filename, "w");
711           fs_error (temp->filename);
717           fs_error (temp->filename);
743         fs_error (temp->filename);
780             if (STREQ (temp->filename, future_write->filename))