summaryrefslogtreecommitdiff
path: root/docs/tutorials/linify
diff options
context:
space:
mode:
authornobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>1999-06-19 00:37:46 +0000
committernobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>1999-06-19 00:37:46 +0000
commit3c480c3e83d9d0357a23ac521413569e16a726c0 (patch)
treea42e80065c42107c236cea5b34fadb96faa9fa52 /docs/tutorials/linify
parenta91afb3ac941573d03aa8b92dd5000e3b05854d2 (diff)
downloadATCD-TAO-0_3_25.tar.gz
This commit was manufactured by cvs2svn to create tag 'TAO-0_3_25'.TAO-0_3_25
Diffstat (limited to 'docs/tutorials/linify')
-rwxr-xr-xdocs/tutorials/linify54
1 files changed, 0 insertions, 54 deletions
diff --git a/docs/tutorials/linify b/docs/tutorials/linify
deleted file mode 100755
index ad2016905ff..00000000000
--- a/docs/tutorials/linify
+++ /dev/null
@@ -1,54 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}'
- & eval 'exec perl -S $0 $argv:q'
- if 0;
-
-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);
-}