From 3db57b2019b67ec1a74b803fc106b7e4f91263b8 Mon Sep 17 00:00:00 2001
From: Martin Nilsson <mani@lysator.liu.se>
Date: Thu, 18 Sep 2003 03:42:45 +0200
Subject: [PATCH] Removed some annoyances.
Rev: tools/release_checks.pike:1.5
---
tools/release_checks.pike | 28 ++++++++++------------------
1 file changed, 10 insertions(+), 18 deletions(-)
diff --git a/tools/release_checks.pike b/tools/release_checks.pike
index fe3d206131..ac469b0180 100644
--- a/tools/release_checks.pike
+++ b/tools/release_checks.pike
@@ -93,24 +93,16 @@ int test_unicode() {
int test_realpike() {
int status = 1;
- foreach(Filesystem.Traversion("lib"); string path; string file)
- if(has_suffix(file, ".pike") || has_suffix(file, ".pmod"))
- if(!has_value(Stdio.read_file(path+file),"#pike")) {
- write("%s%s is missing a #pike directive.\n", path,file);
- status = 0;
- }
- foreach(Filesystem.Traversion("bin"); string path; string file)
- if(has_suffix(file, ".pike"))
- if(!has_value(Stdio.read_file(path+file),"#pike")) {
- write("%s%s is missing a #pike directive.\n", path,file);
- status = 0;
- }
- foreach(Filesystem.Traversion("tools"); string path; string file)
- if(has_suffix(file, ".pike"))
- if(!has_value(Stdio.read_file(path+file),"#pike")) {
- write("%s%s is missing a #pike directive.\n", path,file);
- status = 0;
- }
+
+ // bin and tools shouldn't really be #pike-ified, since they
+ // should run with the pike it is bundled with.
+ foreach( ({ "lib", /* "bin", "tools" */ }), string dir)
+ foreach(Filesystem.Traversion(dir); string path; string file)
+ if(has_suffix(file, ".pike") || has_suffix(file, ".pmod"))
+ if(!has_value(Stdio.read_file(path+file),"#pike")) {
+ write("%s%s is missing a #pike directive.\n", path,file);
+ status = 0;
+ }
foreach(Filesystem.Traversion("src"); string path; string file)
if(file=="module.pmod.in" &&
!has_value(Stdio.read_file(path+file),"#pike")) {
--
GitLab