summaryrefslogtreecommitdiff
path: root/docs/tutorials/linify
diff options
context:
space:
mode:
authornobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>1998-09-03 02:14:37 +0000
committernobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>1998-09-03 02:14:37 +0000
commitcc879558e7207ccb729a6d58adf99de0adb20479 (patch)
tree9894e7426f83f6e328a5997c5158eb61c0d6b1ff /docs/tutorials/linify
parentb5c5bbde56430d3e45e88a0c0133be0071bfe33d (diff)
downloadATCD-TAO-0_2_8.tar.gz
This commit was manufactured by cvs2svn to create tag 'TAO-0_2_8'.TAO-0_2_8
Diffstat (limited to 'docs/tutorials/linify')
-rwxr-xr-xdocs/tutorials/linify52
1 files changed, 0 insertions, 52 deletions
diff --git a/docs/tutorials/linify b/docs/tutorials/linify
deleted file mode 100755
index f44747f5269..00000000000
--- a/docs/tutorials/linify
+++ /dev/null
@@ -1,52 +0,0 @@
-#!/usr/local/bin/perl
-
-while( $#ARGV > -1 ) {
-
- print "$ARGV[0]\n";
-
- $source = "$ARGV[0]";
-
- if( $source =~ /~$/ ) {
- $dest = "$`";
- } else {
- rename("$source","$source"."~") || die "Cannot rename ($source)";
- $dest = "$source";
- $source .= "~";
- }
-
- open(INPUT,"<$source") || die "Cannot open ($source)";
- open(OUTPUT,">$dest") || die "Cannot open ($dest)";
-
- $n = 1;
-
- $prestrip = 0;
- while( <INPUT> ) {
- chomp;
-
- if( ! $prestrip && /^[0-9]+\.\t/ ) {
- $prestrip = 1;
- $_ = $';
- } elsif( $prestrip ) {
- if( /^[0-9]+\.\t/ ) {
- $_ = $';
- } else {
- s/^\t//;
- }
- }
-
- if( /^\s*$/ || /^\s*({|})\s*;?\s*$/ || /^\s*\/\//
- || /^\s*private\s*:/ || /^\s*protected\s*:/ || /^\s*public\s*:/
- || /^\s*}?\s*else\s*{?\s*:/
- ) {
- print OUTPUT "\t$_\n";
- } else {
- print OUTPUT "$n.\t$_\n";
- ++$n;
- }
- }
-
- close(INPUT);
- close(OUTPUT);
-
- shift(@ARGV);
-}