[elpa] externals/hyperbole 1188e43 51/53: smart-clib-sym: Removed file-newer Perl script dependency; file-newer: Removed.

[Robert Weiner]

branch: externals/hyperbole
commit 1188e43f16a693404478f530ca7e6e674ac5953d
Author: Bob Weiner <address@hidden>
Commit: Bob Weiner <address@hidden>

    smart-clib-sym: Removed file-newer Perl script dependency; file-newer: 
Removed.
---
 Changes        |  3 +++
 MANIFEST       |  1 -
 Makefile       |  2 +-
 file-newer     |  9 ---------
 smart-clib-sym | 15 ++++-----------
 5 files changed, 8 insertions(+), 22 deletions(-)

diff --git a/Changes b/Changes
index 317f854..e690708 100644
--- a/Changes
+++ b/Changes
@@ -2,6 +2,9 @@
 
 * hversion.el: Updated to 7.0.0 for major release.
 
+* smart-clib-sym: Removed file-newer Perl script dependency.
+  file-newer: Removed.
+
 * Makefile (help): Removed misplaced double quote characters.
 
 * hui-window.el (hmouse-drag-window-side): Fixed coordinate error when drag 
release is outside of Emacs.
diff --git a/MANIFEST b/MANIFEST
index aed31f7..33c8ef2 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -74,7 +74,6 @@ kotl/EXAMPLE.kotl   - Sample Koutline document explaining 
Koutliner features
 hgnus.el            - GNU Hyperbole buttons in news reader/poster: GNUS
 
 --- HYPERBOLE INTERNALS ---
-file-newer          - Perl script which returns 1 if file 1 is newer than file 
2
 hactypes.el         - Default action types for GNU Hyperbole
 hbdata.el           - GNU Hyperbole button attribute accessor functions
 hibtypes.el         - GNU Hyperbole default implicit button types
diff --git a/Makefile b/Makefile
index 799739d..2ea36fe 100644
--- a/Makefile
+++ b/Makefile
@@ -175,7 +175,7 @@ ELC_KOTL = kotl/kexport.elc kotl/kfile.elc kotl/kfill.elc 
kotl/kimport.elc kotl/
 
 HYPERBOLE_FILES = dir hyperbole-pkg.el info html $(EL_SRC) $(EL_COMPILE) 
$(EL_KOTL) \
        $(ELC_COMPILE) Changes COPYING Makefile HY-ABOUT HY-ANNOUNCE HY-NEWS \
-       HY-WHY.kotl INSTALL DEMO DEMO-ROLO.otl MANIFEST README _hypb .hypb 
file-newer smart-clib-sym \
+       HY-WHY.kotl INSTALL DEMO DEMO-ROLO.otl MANIFEST README _hypb .hypb 
smart-clib-sym \
        topwin.py hyperbole-banner.png $(man_dir)/hkey-help.txt \
        $(man_dir)/hyperbole.texi $(man_dir)/hyperbole.css 
$(man_dir)/version.texi
 
diff --git a/file-newer b/file-newer
deleted file mode 100755
index 3f4615b..0000000
--- a/file-newer
+++ /dev/null
@@ -1,9 +0,0 @@
-#!/usr/local/bin/perl
-#file-newer: Return 1 if file 1 is newer than file 2, else 0
-
-$cmp = (stat($ARGV[0]))[9] - (stat($ARGV[1]))[9];
-if ($cmp > 0)
-   { print "1"; }
-else
-   { print "0"; }
-
diff --git a/smart-clib-sym b/smart-clib-sym
index 3b46765..f1b6403 100755
--- a/smart-clib-sym
+++ b/smart-clib-sym
@@ -23,10 +23,6 @@
 #   Either 1 if symbol is found or 0 if not.
 
 # Code:
-#
-# Perl script used to tell whether one file is newer than another.
-#
-set fn = "file-newer"
 
 # Create this file and place in the file the full path for each C, C++ or
 # Objective-C library that you want scanned for symbol names.  One filename
@@ -40,16 +36,10 @@ set clib_list = "~/.CLIBS-LIST"
 #
 set clib_symbols = "~/.clibs-symbols"
 
-# Try to locate 'perl' and 'file-newer' script for use.
-
-which perl >& /dev/null
-if ($status) unset fn
-
 set st = 0 rebuild = 0
 if (-e $clib_list) then
    if (! -e $clib_symbols || -z $clib_symbols) set rebuild = 1
-   if (! $rebuild  && $?fn) @ rebuild = `perl $fn $clib_list $clib_symbols`
-   if ($rebuild) then
+   if ($rebuild || (-M $clib_list) > (-M $clib_symbols)) then
       nm -g `cat $clib_list` | grep '^[0-9 ].* _[A-Za-z]' | sed -e 
's/^[^_][^_]*_//g' | sort | uniq > $clib_symbols
    endif
    fgrep -sx $1 $clib_symbols >& /dev/null
@@ -58,3 +48,6 @@ endif
 
 echo $st
 exit $st
+
+
+