Commit 9695eab2 authored by Thomas White's avatar Thomas White
Browse files

Add scripts/indexed-filenames

parent 22af0f09
......@@ -203,14 +203,16 @@ script_DATA = scripts/check-near-bragg scripts/random-image \
scripts/sequence-image scripts/zone-axes \
scripts/alternate-stream scripts/README scripts/cell-please \
scripts/check-hkl-completeness.gp scripts/check-hkl-quality.gp \
scripts/compare-hkl.gp scripts/check-peak-detection
scripts/compare-hkl.gp scripts/check-peak-detection \
scripts/indexed-filenames
EXTRA_DIST += scripts/check-near-bragg scripts/random-image \
scripts/wibbletron scripts/create-mtz scripts/mtz2hkl \
scripts/sequence-image scripts/zone-axes \
scripts/alternate-stream scripts/README scripts/cell-please \
scripts/check-hkl-completeness.gp scripts/check-hkl-quality.gp \
scripts/compare-hkl.gp scripts/check-peak-detection
scripts/compare-hkl.gp scripts/check-peak-detection \
scripts/indexed-filenames
DISTCHECK_CONFIGURE_FLAGS=--enable-gtk-doc
......@@ -665,7 +665,8 @@ EXTRA_DIST = configure m4/gnulib-cache.m4 tests/first_merge_check \
scripts/mtz2hkl scripts/sequence-image scripts/zone-axes \
scripts/alternate-stream scripts/README scripts/cell-please \
scripts/check-hkl-completeness.gp scripts/check-hkl-quality.gp \
scripts/compare-hkl.gp scripts/check-peak-detection
scripts/compare-hkl.gp scripts/check-peak-detection \
scripts/indexed-filenames
SUBDIRS = lib doc/reference
ACLOCAL_AMFLAGS = -I m4
AM_CFLAGS = -Wall
......@@ -794,7 +795,8 @@ script_DATA = scripts/check-near-bragg scripts/random-image \
scripts/sequence-image scripts/zone-axes \
scripts/alternate-stream scripts/README scripts/cell-please \
scripts/check-hkl-completeness.gp scripts/check-hkl-quality.gp \
scripts/compare-hkl.gp scripts/check-peak-detection
scripts/compare-hkl.gp scripts/check-peak-detection \
scripts/indexed-filenames
DISTCHECK_CONFIGURE_FLAGS = --enable-gtk-doc
all: config.h
......
#!/usr/bin/perl -w
use strict;
open(FH, $ARGV[0]);
my $line;
my $is_indexed;
my $filename;
while ( $line = <FH> ) {
if ( $line =~ /^-----\ Begin chunk\ -----$/ ) {
$is_indexed = 0;
}
if ( $line =~ /^Image\ filename: (.*)$/ ) {
$filename = $1;
}
if ( $line =~ /^Cell\ parameters/ ) {
$is_indexed = 1;
}
if ( $line =~ /^-----\ End chunk\ -----$/ ) {
if ( $is_indexed ) {
printf("%s\n", $filename);
}
}
}
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment