github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-14 23:46:14 +00:00
Code Issues Projects Releases Wiki Activity

Remove find-writes and fixid. (#264)

Browse Source
This commit is contained in:
Bruce Mitchener 2021-01-21 14:43:26 +07:00 committed by GitHub
parent 1828f208ec
commit 421685bd49
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 0 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
bin/find-writes
View File

@ -1,4 +0,0 @@
#! /bin/csh
foreach f (*)
if ( -w $f) echo $f
end

63
bin/fixid
View File

@ -1,63 +0,0 @@
#!/usr/local/bin/perl
# $Id: fixid,v 1.1 1999/01/03 04:00:20 sybalsky Exp $ #
#************************************************************************/
#* */
#* (C) Copyright 1999 Venue. All Rights Reserved. */
#* Manufactured in the United States of America. */
#* */
#************************************************************************/
######################################################################
# #
# FIXID -- fix up the ID comment and static in source files #
# #
######################################################################
$file = shift;
chomp $file;
printf "File is %s.\n", $file;
open IN, "<" . $file;
open OUT, ">".$file.".new";
## Copy the first two lines of the file (ID comment & static)
$line = <IN>;
printf OUT "%s", $line;
$line = <IN>;
printf OUT "%s", $line;
## Now copy the rest of the file, omitting any line with a (#)
## in it (the likeliest ID Comment/static contents for SCCS.
$line = <IN>;
while ( $line )
{
if ( $line =~ /\(#\)/ )
{
printf "Omitting line: %s", $line;
}
else
{
printf OUT "%s", $line;
}
$line = <IN>;
}
close IN;
close OUT;
## Save the original file, and put the "fixed" on in its place.
`mv $file $file.orig`;
`mv $file.new $file`;