Apple-2-Tools/dmolony-DiskBrowser
1
0
Fork 0
mirror of https://github.com/dmolony/DiskBrowser.git synced 2024-11-29 11:49:29 +00:00
Code Issues Projects Releases Wiki Activity

better empty file handling

Browse Source
This commit is contained in:
Denis Molony 2020-10-28 18:26:29 +10:00
parent 1b57001315
commit 080cafcd22
3 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/com/bytezone/diskbrowser/pascal/CatalogEntry.java
View File

@ -60,8 +60,7 @@ abstract class CatalogEntry implements AppleFileSource
public List<DiskAddress> getSectors ()
// ---------------------------------------------------------------------------------//
{
List<DiskAddress> sectors = new ArrayList<> (blocks);
return sectors;
return new ArrayList<> (blocks); // make a copy
}
// ---------------------------------------------------------------------------------//

11
src/com/bytezone/diskbrowser/pascal/FileEntry.java
View File

@ -61,16 +61,19 @@ public class FileEntry extends CatalogEntry
public AbstractFile getDataSource ()
// ---------------------------------------------------------------------------------//
{
if (file != null)
if (file != null) // previously built
return file;
byte[] buffer = getExactBuffer ();
if (buffer.length == 0)
// check for empty file (e.g. see DC16.dsk)
if (firstBlock == lastBlock)
{
file = new AssemblerProgram (name, buffer, 0); // see DC16.dsk
file = new DefaultAppleFile (name, new byte[0]);
node.setAllowsChildren (false);
return file;
}
byte[] buffer = getExactBuffer ();
switch (fileType)
{
case 2: // code (6502 or Pascal)

1
src/com/bytezone/diskbrowser/pascal/PascalDisk.java
View File

@ -22,6 +22,7 @@ import com.bytezone.diskbrowser.utilities.HexFormatter;
import com.bytezone.diskbrowser.utilities.Utility;
import com.bytezone.diskbrowser.wizardry.Relocator;
// useful : http://pascal.hansotten.com/ucsd-p-system/apple-pascal/apple-ii/
// -----------------------------------------------------------------------------------//
public class PascalDisk extends AbstractFormattedDisk
// -----------------------------------------------------------------------------------//