dmolony-DiskBrowser/src/com/bytezone/diskbrowser/applefile/SourceLine.java

package com.bytezone.diskbrowser.applefile;

import java.util.ArrayList;
import java.util.List;

import com.bytezone.diskbrowser.utilities.Utility;

// -----------------------------------------------------------------------------------//
public class SourceLine
// -----------------------------------------------------------------------------------//
{
  List<SubLine> sublines = new ArrayList<> ();
  int lineNumber;
  int linePtr;
  int length;
  byte[] buffer;
  ApplesoftBasicProgram parent;

  // ---------------------------------------------------------------------------------//
  SourceLine (ApplesoftBasicProgram parent, byte[] buffer, int ptr)
  // ---------------------------------------------------------------------------------//
  {
    this.parent = parent;
    this.buffer = buffer;
    linePtr = ptr;
    lineNumber = Utility.unsignedShort (buffer, ptr + 2);

    int startPtr = ptr += 4;
    boolean inString = false;           // can toggle
    boolean inRemark = false;           // can only go false -> true
    byte b;
    int stringPtr = 0;

    while (ptr < buffer.length && (b = buffer[ptr++]) != 0)
    {
      if (inRemark)                     // cannot terminate a REM
        continue;

      if (inString)
      {
        if (b == Utility.ASCII_QUOTE)           // terminate string
        {
          inString = false;
          String s = new String (buffer, stringPtr - 1, ptr - stringPtr + 1);
          parent.stringsText.add (s);
          parent.stringsLine.add (lineNumber);
        }
        continue;
      }

      switch (b)
      {
        // break IF statements into two sublines (allows for easier line indenting)
        case ApplesoftConstants.TOKEN_IF:
          // skip to THEN or GOTO - if not found then it's an error
          while (buffer[ptr] != ApplesoftConstants.TOKEN_THEN
              && buffer[ptr] != ApplesoftConstants.TOKEN_GOTO && buffer[ptr] != 0)
            ptr++;

          // keep THEN with the IF
          if (buffer[ptr] == ApplesoftConstants.TOKEN_THEN)
            ++ptr;

          // create subline from the condition (and THEN if it exists)
          sublines.add (new SubLine (this, startPtr, ptr - startPtr));
          startPtr = ptr;

          break;

        // end of subline, so add it, advance startPtr and continue
        case Utility.ASCII_COLON:
          sublines.add (new SubLine (this, startPtr, ptr - startPtr));
          startPtr = ptr;
          break;

        case ApplesoftConstants.TOKEN_REM:
          if (ptr != startPtr + 1)      // REM appears mid-line (should follow a colon)
          {
            System.out.println ("mid-line REM token");
            //     System.out.println (HexFormatter.format (buffer, startPtr, 10));
            sublines.add (new SubLine (this, startPtr, (ptr - startPtr) - 1));
            startPtr = ptr - 1;
          }
          else
            inRemark = true;

          break;

        case Utility.ASCII_QUOTE:
          inString = true;
          stringPtr = ptr;
          break;
      }
    }

    // add whatever is left
    sublines.add (new SubLine (this, startPtr, ptr - startPtr));
    this.length = ptr - linePtr;
  }
}