#!/usr/bin/env python3
#
# Copyright (c) 2024 Stormux
# Copyright (c) 2010-2012 The Orca Team
# Copyright (c) 2012 Igalia, S.L.
# Copyright (c) 2005-2010 Sun Microsystems Inc.
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License as published by the Free Software Foundation; either
# version 2.1 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with this library; if not, write to the
# Free Software Foundation, Inc., Franklin Street, Fifth Floor,
# Boston MA  02110-1301 USA.
#
# Fork of Orca Screen Reader (GNOME)
# Original source: https://gitlab.gnome.org/GNOME/orca

from macaroon.playback import *
import utils

sequence = MacroSequence()

sequence.append(PauseAction(3000))
sequence.append(TypeAction("man cthulhu"))
sequence.append(KeyComboAction("Return"))
sequence.append(PauseAction(3000))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_8"))
sequence.append(utils.AssertPresentationAction(
    "1. Review current line",
    ["BRAILLE LINE:  ' Manual page cthulhu(1) line 1 (press h for help or q to quit) $l'",
     "     VISIBLE:  ' (press h for help or q to quit)', cursor=32",
     "SPEECH OUTPUT: ' Manual page cthulhu(1) line 1 (press h for help or q to quit)",
     "'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_7"))
sequence.append(utils.AssertPresentationAction(
    "2. Review previous line",
    ["BRAILLE LINE:  '              When starting cthulhu, initiate the GUI-based configuration. $l'",
     "     VISIBLE:  '              When starting cthulhu', cursor=1",
     "SPEECH OUTPUT: '              When starting cthulhu, initiate the GUI-based configuration.",
     "'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_7"))
sequence.append(utils.AssertPresentationAction(
    "3. Review previous line",
    ["BRAILLE LINE:  '       -s, --setup $l'",
     "     VISIBLE:  '       -s, --setup $l', cursor=1",
     "SPEECH OUTPUT: '       -s, --setup",
     "'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_9"))
sequence.append(utils.AssertPresentationAction(
    "4. Review next line",
    ["BRAILLE LINE:  '              When starting cthulhu, initiate the GUI-based configuration. $l'",
     "     VISIBLE:  '              When starting cthulhu', cursor=1",
     "SPEECH OUTPUT: '              When starting cthulhu, initiate the GUI-based configuration.",
     "'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyPressAction(0, None, "KP_Insert"))
sequence.append(KeyComboAction("KP_7"))
sequence.append(KeyReleaseAction(0, None, "KP_Insert"))
sequence.append(utils.AssertPresentationAction(
    "5. Review first line",
    ["BRAILLE LINE:  'File Edit View Search Terminal Help $l'",
     "     VISIBLE:  'File Edit View Search Terminal H', cursor=1",
     "SPEECH OUTPUT: 'File Edit View Search Terminal Help'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_9"))
sequence.append(utils.AssertPresentationAction(
    "6. Review next line",
    ["BRAILLE LINE:  'cthulhu(1)                     General Commands Manual                    cthulhu(1) $l'",
     "     VISIBLE:  'cthulhu(1)                     Gene', cursor=1",
     "SPEECH OUTPUT: 'cthulhu(1)                     General Commands Manual                    cthulhu(1)",
     "'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_9"))
sequence.append(utils.AssertPresentationAction(
    "7. Review next line",
    ["BRAILLE LINE:  'vertical scroll bar 3% $l'",
     "     VISIBLE:  'vertical scroll bar 3% $l', cursor=1",
     "SPEECH OUTPUT: 'vertical scroll bar 3 percent.'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_9"))
sequence.append(utils.AssertPresentationAction(
    "8. Review next line",
    ["BRAILLE LINE:  ' $l'",
     "     VISIBLE:  ' $l', cursor=1",
     "SPEECH OUTPUT: 'blank'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_9"))
sequence.append(utils.AssertPresentationAction(
    "9. Review next line",
    ["BRAILLE LINE:  'NAME $l'",
     "     VISIBLE:  'NAME $l', cursor=1",
     "SPEECH OUTPUT: 'NAME",
     "'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_9"))
sequence.append(utils.AssertPresentationAction(
    "10. Review next line",
    ["BRAILLE LINE:  '       cthulhu - a scriptable screen reader $l'",
     "     VISIBLE:  '       cthulhu - a scriptable scree', cursor=1",
     "SPEECH OUTPUT: '       cthulhu - a scriptable screen reader",
     "'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("<Control>f"))
sequence.append(utils.AssertPresentationAction(
    "11. Forward one page",
    ["BRAILLE LINE:  ' Manual page cthulhu(1) line 24 (press h for help or q to quit)'",
     "     VISIBLE:  '(press h for help or q to quit)', cursor=32",
     "BRAILLE LINE:  ' Manual page cthulhu(1) line 24 (press h for help or q to quit)'",
     "     VISIBLE:  '(press h for help or q to quit)', cursor=32",
     "BRAILLE LINE:  ' Manual page cthulhu(1) line 24 (press h for help or q to quit)'",
     "     VISIBLE:  '(press h for help or q to quit)', cursor=32",
     "BRAILLE LINE:  ' Manual page cthulhu(1) line 24 (press h for help or q to quit)'",
     "     VISIBLE:  '(press h for help or q to quit)', cursor=32",
     "SPEECH OUTPUT: '              When starting cthulhu, use dirname as an  alternate  directory  for",
     "              the user preferences.",
     "",
     "       -e, --enable=speech|braille|braille-monitor",
     "              When starting cthulhu, force the enabling of the supplied options.",
     "",
     "       -d, --disable=speech|braille|braille-monitor",
     "              When starting cthulhu, force the disabling of the supplied options.",
     "",
     "       -l, --list-apps",
     "              Prints  the  names  of  all  the currently running applications.",
     "              This is used primarily for debugging purposes to see if cthulhu can",
     "              talk  to the accessibility infrastructure.  Note that if cthulhu is",
     "              already running, this will not kill the other cthulhu process.   It",
     "              will  just list the currently running applications, and you will",
     "              see cthulhu listed twice: once for the existing cthulhu and  once  for",
     "              this instance.",
     "",
     "       --debug",
     "              Enables  debug  output  for cthulhu and sends all debug output to a",
     "              file with a name of the form 'debug-YYYY-MM-DD-HH:MM:SS.out'  in",
     " Manual page cthulhu(1) line 24 (press h for help or q to quit)'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_8"))
sequence.append(utils.AssertPresentationAction(
    "12. Review current line",
    ["KNOWN ISSUE: We currently deliberately exit flat review and return to the bottom of the window",
    "BRAILLE LINE:  ' Manual page cthulhu(1) line 24 (press h for help or q to quit) $l'",
     "     VISIBLE:  ' (press h for help or q to quit)', cursor=32",
     "SPEECH OUTPUT: ' Manual page cthulhu(1) line 24 (press h for help or q to quit)",
     "'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_7"))
sequence.append(utils.AssertPresentationAction(
    "13. Review previous line",
    ["BRAILLE LINE:  '              file with a name of the form 'debug-YYYY-MM-DD-HH:MM:SS.out'  in $l'",
     "     VISIBLE:  '              file with a name o', cursor=1",
     "SPEECH OUTPUT: '              file with a name of the form 'debug-YYYY-MM-DD-HH:MM:SS.out'  in",
     "'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_7"))
sequence.append(utils.AssertPresentationAction(
    "14. Review previous line",
    ["BRAILLE LINE:  '              Enables  debug  output  for cthulhu and sends all debug output to a $l'",
     "     VISIBLE:  '              Enables  debug  ou', cursor=1",
     "SPEECH OUTPUT: '              Enables  debug  output  for cthulhu and sends all debug output to a",
     "'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyPressAction(0, None, "KP_Insert"))
sequence.append(KeyComboAction("KP_7"))
sequence.append(KeyReleaseAction(0, None, "KP_Insert"))
sequence.append(utils.AssertPresentationAction(
    "15. Review first line",
    ["BRAILLE LINE:  'File Edit View Search Terminal Help $l'",
     "     VISIBLE:  'File Edit View Search Terminal H', cursor=1",
     "SPEECH OUTPUT: 'File Edit View Search Terminal Help'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_9"))
sequence.append(utils.AssertPresentationAction(
    "16. Review next line",
    ["BRAILLE LINE:  ' $l'",
     "     VISIBLE:  ' $l', cursor=1",
     "SPEECH OUTPUT: 'blank'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_9"))
sequence.append(utils.AssertPresentationAction(
    "17. Review next line",
    ["BRAILLE LINE:  'vertical scroll bar 26% $l'",
     "     VISIBLE:  'vertical scroll bar 26% $l', cursor=1",
     "SPEECH OUTPUT: 'vertical scroll bar 26 percent.'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_9"))
sequence.append(utils.AssertPresentationAction(
    "18. Review next line",
    ["BRAILLE LINE:  '       -u, --user-prefs-dir=dirname $l'",
     "     VISIBLE:  '       -u, --user-prefs-dir=dirn', cursor=1",
     "SPEECH OUTPUT: '       -u, --user-prefs-dir=dirname",
     "'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("<Control>b"))
sequence.append(utils.AssertPresentationAction(
    "19. Back one page",
    ["BRAILLE LINE:  ' Manual page cthulhu(1) line 1 (press h for help or q to quit)'",
     "     VISIBLE:  '(press h for help or q to quit)', cursor=32",
     "BRAILLE LINE:  ' Manual page cthulhu(1) line 1 (press h for help or q to quit)'",
     "     VISIBLE:  '(press h for help or q to quit)', cursor=32",
     "BRAILLE LINE:  ' Manual page cthulhu(1) line 1 (press h for help or q to quit)'",
     "     VISIBLE:  '(press h for help or q to quit)', cursor=32",
     "SPEECH OUTPUT: 'cthulhu(1)                     General Commands Manual                    cthulhu(1)",
     "",
     "NAME",
     "       cthulhu - a scriptable screen reader",
     "",
     "SYNOPSIS",
     "       cthulhu [option...]",
     "",
     "DESCRIPTION",
     "       cthulhu is a screen reader for people with visual impairments, it provides",
     "       alternative access  to  the  desktop  by  using  speech  synthesis  and",
     "       braille.",
     "",
     "       cthulhu  works  with  applications and toolkits that support the Assistive",
     "       Technology Service Provider Interface (AT-SPI), which  is  the  primary",
     "       assistive technology infrastructure for Linux and Solaris. Applications",
     "       and toolkits supporting the AT-SPI include the GNOME Gtk+ toolkit,  the",
     "       Java  platform's  Swing toolkit, LibreOffice, Gecko, and WebKitGtk. AT-",
     "       SPI support for the KDE Qt toolkit is being pursued.",
     "",
     "OPTIONS",
     "       -s, --setup",
     "              When starting cthulhu, initiate the GUI-based configuration.",
     " Manual page cthulhu(1) line 1 (press h for help or q to quit)'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_8"))
sequence.append(utils.AssertPresentationAction(
    "20. Review current line",
    ["BRAILLE LINE:  ' Manual page cthulhu(1) line 1 (press h for help or q to quit) $l'",
     "     VISIBLE:  ' (press h for help or q to quit)', cursor=32",
     "SPEECH OUTPUT: ' Manual page cthulhu(1) line 1 (press h for help or q to quit)",
     "'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_7"))
sequence.append(utils.AssertPresentationAction(
    "21. Review previous line",
    ["BRAILLE LINE:  '              When starting cthulhu, initiate the GUI-based configuration. $l'",
     "     VISIBLE:  '              When starting cthulhu', cursor=1",
     "SPEECH OUTPUT: '              When starting cthulhu, initiate the GUI-based configuration.",
     "'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_7"))
sequence.append(utils.AssertPresentationAction(
    "22. Review previous line",
    ["BRAILLE LINE:  '       -s, --setup $l'",
     "     VISIBLE:  '       -s, --setup $l', cursor=1",
     "SPEECH OUTPUT: '       -s, --setup",
     "'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyPressAction(0, None, "KP_Insert"))
sequence.append(KeyComboAction("KP_7"))
sequence.append(KeyReleaseAction(0, None, "KP_Insert"))
sequence.append(utils.AssertPresentationAction(
    "23. Review first line",
    ["BRAILLE LINE:  'File Edit View Search Terminal Help $l'",
     "     VISIBLE:  'File Edit View Search Terminal H', cursor=1",
     "SPEECH OUTPUT: 'File Edit View Search Terminal Help'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_9"))
sequence.append(utils.AssertPresentationAction(
    "24. Review next line",
    ["BRAILLE LINE:  'cthulhu(1)                     General Commands Manual                    cthulhu(1) $l'",
     "     VISIBLE:  'cthulhu(1)                     Gene', cursor=1",
     "SPEECH OUTPUT: 'cthulhu(1)                     General Commands Manual                    cthulhu(1)",
     "'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_9"))
sequence.append(utils.AssertPresentationAction(
    "25. Review next line",
    ["BRAILLE LINE:  'vertical scroll bar 26% $l'",
     "     VISIBLE:  'vertical scroll bar 26% $l', cursor=1",
     "SPEECH OUTPUT: 'vertical scroll bar 26 percent.'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_9"))
sequence.append(utils.AssertPresentationAction(
    "26. Review next line",
    ["BRAILLE LINE:  ' $l'",
     "     VISIBLE:  ' $l', cursor=1",
     "SPEECH OUTPUT: 'blank'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_9"))
sequence.append(utils.AssertPresentationAction(
    "27. Review next line",
    ["BRAILLE LINE:  'NAME $l'",
     "     VISIBLE:  'NAME $l', cursor=1",
     "SPEECH OUTPUT: 'NAME",
     "'"]))

sequence.append(utils.StartRecordingAction())
sequence.append(KeyComboAction("KP_9"))
sequence.append(utils.AssertPresentationAction(
    "28. Review next line",
    ["BRAILLE LINE:  '       cthulhu - a scriptable screen reader $l'",
     "     VISIBLE:  '       cthulhu - a scriptable scree', cursor=1",
     "SPEECH OUTPUT: '       cthulhu - a scriptable screen reader",
     "'"]))

sequence.append(utils.AssertionSummaryAction())
sequence.start()