思ったこと

やりなおし

開発ツール - 永字八法の焼き直し。
ラベルの先頭に空白があっても認識してdefsubするようにしました。

define.plのスクリプト

use strict;
opendir ( DIR, '.' );
my @define = sort grep { /^define/ } grep { /txt$/ } readdir ( DIR );
closedir ( DIR );
my $numalias = 100;
open ( OUT10, '>10.txt' );
open ( OUT12, '>12.txt' );
foreach my $file ( @define ) {
	open ( IN, $file );
	while ( my $line = <IN> ) {
		last if ( $line =~ /\-\-\-\-\-\-/ );
		if ( $line =~ s/numalias (\S+)/numalias $1\,$numalias/ ) {
			++ $numalias;
		}
		print OUT10 $line;
	}
	print OUT10 "\n";
	while ( my $line = <IN> ) {
		last if ( $line =~ /\-\-\-\-\-\-/ );
		print OUT10 $line;
	}
	print OUT10 "\n";
	while ( my $line = <IN> ) {
		print OUT12 $line;
		if ( $line =~ s/^\s*\*// ) {
			print OUT10 "defsub $line";
		}
	}
	close ( IN );
	print OUT10 "\n";
}
close ( OUT10 );
close ( OUT12 );
system ( 1, "nscr.exe" );

ポルポトの残滓

思ったこと

ポルポトの残滓

やりなおし

開発ツール - 永字八法の焼き直し。
ラベルの先頭に空白があっても認識してdefsubするようにしました。

define.plのスクリプト

use strict;
opendir ( DIR, '.' );
my @define = sort grep { /^define/ } grep { /txt$/ } readdir ( DIR );
closedir ( DIR );
my $numalias = 100;
open ( OUT10, '>10.txt' );
open ( OUT12, '>12.txt' );
foreach my $file ( @define ) {
	open ( IN, $file );
	while ( my $line = <IN> ) {
		last if ( $line =~ /\-\-\-\-\-\-/ );
		if ( $line =~ s/numalias (\S+)/numalias $1\,$numalias/ ) {
			++ $numalias;
		}
		print OUT10 $line;
	}
	print OUT10 "\n";
	while ( my $line = <IN> ) {
		last if ( $line =~ /\-\-\-\-\-\-/ );
		print OUT10 $line;
	}
	print OUT10 "\n";
	while ( my $line = <IN> ) {
		print OUT12 $line;
		if ( $line =~ s/^\s*\*// ) {
			print OUT10 "defsub $line";
		}
	}
	close ( IN );
	print OUT10 "\n";
}
close ( OUT10 );
close ( OUT12 );
system ( 1, "nscr.exe" );

思ったこと

ポルポトの残滓

やりなおし

開発ツール - 永字八法の焼き直し。
ラベルの先頭に空白があっても認識してdefsubするようにしました。

define.plのスクリプト

use strict;
opendir ( DIR, '.' );
my @define = sort grep { /^define/ } grep { /txt$/ } readdir ( DIR );
closedir ( DIR );
my $numalias = 100;
open ( OUT10, '>10.txt' );
open ( OUT12, '>12.txt' );
foreach my $file ( @define ) {
	open ( IN, $file );
	while ( my $line = <IN> ) {
		last if ( $line =~ /\-\-\-\-\-\-/ );
		if ( $line =~ s/numalias (\S+)/numalias $1\,$numalias/ ) {
			++ $numalias;
		}
		print OUT10 $line;
	}
	print OUT10 "\n";
	while ( my $line = <IN> ) {
		last if ( $line =~ /\-\-\-\-\-\-/ );
		print OUT10 $line;
	}
	print OUT10 "\n";
	while ( my $line = <IN> ) {
		print OUT12 $line;
		if ( $line =~ s/^\s*\*// ) {
			print OUT10 "defsub $line";
		}
	}
	close ( IN );
	print OUT10 "\n";
}
close ( OUT10 );
close ( OUT12 );
system ( 1, "nscr.exe" );