terminat0r
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
файл prettyprint_fortran.pl
Код:
#!/usr/bin/perl -w
foreach $sourcedir (@ARGV) {
opendir( DIR, "$sourcedir" ) || die("Cannot open directory $!\n");
@filelist = readdir(DIR);
closedir DIR;
foreach $file (@filelist) {
if ( $file =~ m/.+\.[fF]90/ ) {
push( @fileslist, "$sourcedir$file" );
}
}
}
print @fileslist;
foreach $file (@fileslist) {
$return = -1;
$command = "emacs -batch $file -l $ENV{'HOME'}/bin/emacs-format-file -f emacs-format-function ";
print $command , "\n";
$return = system $command;
print "return value ", $return, "\n";
}
|
файл emacs-format-file
Код:
;;; File: emacs-format-file
;;; Stan Warford
;;; 17 May 2006
;;; Added f90-downcase-keywords, S. Sagmeister, July 20, 2011
(defun emacs-format-function ()
"Format the whole buffer."
(f90-mode)
(indent-region (point-min) (point-max) nil)
(untabify (point-min) (point-max))
(f90-downcase-keywords)
(save-buffer)
)
|
эти два файла в домашний bin
ну и emacs надо заинсталлировать
потом в шелле
prettyprint_fortran.pl src_dir/
и все файлы в папке src_dir будут отформатированы
|
