Create a file on magnetic tape: Difference between revisions

Content added Content deleted
mNo edit summary
(Rename Perl 6 -> Raku, alphabetize, minor clean-up)
Line 118: Line 118:


This was developed when tape drives used half-inch tapes in lengths up to 2,400 feet and seven or nine-track recording, storing up to about 150MB per reel - much depended on the length lost to IRG usage between blocks, but block sizes beyond 20,000 were considered large. Subsequent tape designs have included 18, 36, and 128 tracks, helical recording and storage capacities in tens of gigabytes. Naturally, the tape labelling protocols have become even more complex, but, these matters are handled by more complex operating systems.
This was developed when tape drives used half-inch tapes in lengths up to 2,400 feet and seven or nine-track recording, storing up to about 150MB per reel - much depended on the length lost to IRG usage between blocks, but block sizes beyond 20,000 were considered large. Subsequent tape designs have included 18, 36, and 128 tracks, helical recording and storage capacities in tens of gigabytes. Naturally, the tape labelling protocols have become even more complex, but, these matters are handled by more complex operating systems.



=={{header|Go}}==
=={{header|Go}}==
Line 234: Line 233:
DATA TO BE WRITTEN TO TAPE
DATA TO BE WRITTEN TO TAPE
/* </lang>
/* </lang>



=={{header|Julia}}==
=={{header|Julia}}==
Line 272: Line 270:
t.writeln "Hi Tape!"
t.writeln "Hi Tape!"
t.close</lang>
t.close</lang>

=={{header|Perl 6}}==
<lang perl6>my $tape = open "/dev/tape", :w or die "Can't open tape: $!";
$tape.say: "I am a tape file now, or hope to be soon.";
$tape.close;</lang>


=={{header|Phix}}==
=={{header|Phix}}==
Line 298: Line 291:
(λ() (displayln "I am a cheap imitation of the Perl code for a boring problem")))
(λ() (displayln "I am a cheap imitation of the Perl code for a boring problem")))
</lang>
</lang>

=={{header|Raku}}==
(formerly Perl 6)
<lang perl6>my $tape = open "/dev/tape", :w or die "Can't open tape: $!";
$tape.say: "I am a tape file now, or hope to be soon.";
$tape.close;</lang>


=={{header|REXX}}==
=={{header|REXX}}==
Line 343: Line 342:
}
}
}</lang>
}</lang>

=={{header|Tcl}}==
=={{header|Tcl}}==
Tcl does not have built-in special support for tape devices, so it relies on the OS to handle most of the details for it. Assuming a relatively modern Unix:
Tcl does not have built-in special support for tape devices, so it relies on the OS to handle most of the details for it. Assuming a relatively modern Unix: