Interactive Parsing

version 3 by Jon Ingold

  • Home page
  • Beginning
  • Previous
  • Next



  • Section - Debugging Routines (not for release)

    Include (-

    [ PrintCommandLineStorage title_text
        i j
        ;

        glk_set_window((+main-window+).ref_number);
        print (string) title_text, "^";

        for (i = 1: i <= COMMAND_RECALL_DEPTH : i ++)
        {
            print "Command number ", i, ": starts at ", GetCommandLineStart(i), " / length ", GetCommandLineLength(i), " ... ";
            print "> ";
            for (j = 0 : j < GetCommandLineLength(i) : j++)
                print (char) command_lines-> (GetCommandLineStart(i) + j);
            print "^";
        }

    ];

    -) after "Parser.i6t".