Mini Shell
3
�p5[�X � @ s� d Z dZdZdZdZdZddlZddlZddlZddl Z ddl
Z
ddl Z ddl Z ddl
Z
ddlZyddlmZ ed d
�ZW n dZY nX yLejd d � dd
lmZ ejdd � ddlmZ ejdd � ddlmZ W n Y nX ddlmZ ddlmZ ddlmZ ddlm Z ddlm Z ddlm Z ddlm Z ddlm Z ddlm!Z! dd lm"Z" dd lm#Z# dd lm$Z$ dd lm%Z% dd lm&Z& dd!l'm(Z( ej)� Z*e"j)� Z+e$j)� Z,e j-� Z.d"d#� Z/d$d%� Z0d&d'� Z-d(Z1da2d)a3e#j4e#j5 a6d*a7d*a8dYd,d-�Z9d.d/� Z:d0d1� Z;d2d3� Z<d4d5� Z=d6d7� Z>d8d9� Z?g fd:d;�Z@dZd<d=�ZAd>d?� ZBd[d@dA�ZCd\dBdC�ZDd]dDdE�ZEd^dFdG�ZFd_dHdI�ZGd*aHdJdK� ZIdLdM� ZJd`dNdO�ZKdadPdQ�ZLdbdRdS�ZMdaNdTdU� ZOdcdVdW�ZPeQdXk�r�ejReP� � dS )dz+The main module for the Orca screen reader.z$Id$z
$Revision$z$Date$zqCopyright (c) 2004-2009 Sun Microsystems Inc.Copyright (c) 2010-2011 The Orca TeamCopyright (c) 2012 Igalia, S.L.ZLGPL� N)�Settingsz#org.gnome.desktop.a11y.applications)Z schema_id�Gtkz3.0)r �Gdk)r ZGdkX11)� X11Screen� )�braille)�debug)�
event_manager)� keybindings)�logger)�messages)�notification_messages)�
orca_state)�
orca_platform)�script_manager)�settings)�settings_manager)�speech)�sound)� BrailleEventc C s2 y| j |�}W n
d S |dkr.| r.t� d S )Nzscreen-reader-enabled)Z get_boolean�shutdown)Zgsetting�keyZenabled� r �/usr/lib/python3.6/orca.py�onEnabledChangedX s r c C s t S )N)�_settingsManagerr r r r �getSettingsManagera s r c C s t S )N)�_loggerr r r r � getLoggerd s r �2 � FTc
C sr | r(|t jkr(d}tjtj|d� dS | rXt jrXt jj rXtj| j | j
�}tj |d� t j}y |j � W n$ d}tjtj|d� d}Y nX |s�d}tjtj|d� dt _dS t j�rt jj
j|�r�d| }tjtj|d� dS t jj
j|��rd| }tjtj|d� dS d ||f }tjtj|d� |t _|�s<dS t j�s\d
}tjtj|d� dS t jj| |t j� dS ) a� Sets the locus of focus (i.e., the object with visual focus) and
notifies the script of the change should the script wish to present
the change to the user.
Arguments:
- event: if not None, the Event that caused this to happen
- obj: the Accessible with the new locus of focus.
- notifyScript: if True, propagate this event
- force: if True, don't worry if this is the same object as the
current locusOfFocus
z3ORCA: Setting locusOfFocus to existing locusOfFocusTNzSetting locusOfFocusz)ORCA: Old locusOfFocus is null or defunctz.ORCA: New locusOfFocus is null (being cleared)z5ERROR: New locusOfFocus (%s) is zombie. Not updating.z3ERROR: New locusOfFocus (%s) is dead. Not updating.z)ORCA: Changing locusOfFocus from %s to %sz9ORCA: Cannot notify active script because there isn't one)r � locusOfFocusr �println�
LEVEL_INFO� activeScriptZapp�_scriptManagerZ getScriptZhost_application�sourceZsetActiveScriptZgetRole� utilitiesZisZombieZisDeadZlocusOfFocusChanged)�event�objZ notifyScript�force�msg�scriptZoldFocusr r r �setLocusOfFocus{ sL
r- c C sf d}t | �} | jd tjkr$tj� | t_ytj | �}W n t
j t
j � Y nX | rbtj
rbd}|S )z�Called whenever a key is pressed on the Braille display.
Arguments:
- command: the BrlAPI event for the key that was pressed.
Returns True if the event was consumed; otherwise False
FZcommandT)r r( r ZdontInteruptSpeechKeysr �stopr ZlastInputEvent�
_eventManagerZprocessBrailleEventr �printException� LEVEL_SEVERE�learnModeEnabled)r( �consumedr r r �_processBrailleEvent� s r4 c C sF | j � r dS | jtjkr,tjr,t� dadS trBtj rBt� dadS )zFUnsupported convenience method to call sad hacks which should go away.NTF) Z isPressedKeyZ event_stringr �orcaModifierKeysr ZbypassNextCommand�_restoreXmodmap�_restoreOrcaKeys�_createOrcaXmodmap)Z
keyboardEventr r r � updateKeyMap� s r9 c C s0 t jdddtjd gt jddd�}|j| � dS )z#Set the keyboard map using xkbcomp.�xkbcompz-w0�-�DISPLAYN)�stdin�stdout�stderr)�
subprocess�Popen�os�environ�PIPE� communicate)Zxkbmap�pr r r � _setXmodmap� s rG c
C s� t jdt j�}t jdt j�}t jdt j�}d}d}tjd�jd�}d}x�t|�D ]�\}} |sl|j| �r�d }qP| r�|j| �r�|||< tt dj
|�d�� d
S n*|j| �r�|||< tt dj
|�d�� d
S | j d �rPd
S qPW d
S ) zCEnable or disable use of the caps lock key as an Orca modifier key.z=^\s*interpret\s+Caps[_+]Lock[_+]AnyOfOrNone\s*\(all\)\s*{\s*$zR^\s*action\s*=\s*SetMods\s*\(\s*modifiers\s*=\s*Lock\s*,\s*clearLocks\s*\)\s*;\s*$zB^\s*action\s*=\s*LockMods\s*\(\s*modifiers\s*=\s*Lock\s*\)\s*;\s*$z) action= LockMods(modifiers=Lock);z3 action= SetMods(modifiers=Lock,clearLocks);zUTF-8�
FTN�}) �re�compile�I�_originalXmodmap�decode�split� enumerate�matchrG �bytes�join�find)
�enableZinterpretCapsLineProgZcapsModLineProgZnormalCapsLineProgZnormalCapsLineZ capsModLine�linesZfoundCapsInterpretSection�i�liner r r �_setCapsLockAsOrcaModifier� s2
rY c C s0 g } dt jkr td� dantr,td� dadS )z�Makes an Orca-specific Xmodmap so that the keys behave as we
need them to do. This is especially the case for the Orca modifier.
Z Caps_LockTFN)r r5 rY �_capsLockCleared)�cmdr r r r8 s
r8 c C s t jdtjd dg�adS )z�Save the original xmodmap for the keys in keyList before we alter it.
Arguments:
- keyList: A list of named keys to look for.
r: r< r; N)r@ Z check_outputrB rC rM )�keyListr r r �
_storeXmodmap$ s r] c C s4 da tjdddtjd gtjddd�}|jt� dS )z�Restore the original xmodmap values for the keys in keyList.
Arguments:
- keyList: A list of named keys to look for. An empty list means
to restore the entire saved xmodmap.
Fr: z-w0r; r< N)r= r> r? )rZ r@ rA rB rC rD rE rM )r\ rF r r r r6 . s r6 c C s t jt jdd� tj� }|j� tj� tj� tj � d}t
r�t j d�d }y t j
|�a
t j|� d}W q� tk
r� t jt j� Y q� t jt j� Y q�X nLt j}yt j
|�a
W n6 tk
r� t jt j� Y n t jt j� Y nX | s�tj� } t j| � t j d��rTy&tj� |�r6| �r6| jtj� W n t jt j� Y nX nd}t jt j|d� t j d��r�ytjttj� W n, t jt j � d }t jt j |d� Y nX t j d
��r�|j� d d � tj D �}t |7 a t �r�t t � t!t � t"� tj#� t$j#� t jt jd
d� dS )z�Loads (and reloads) the user settings module, reinitializing
things such as speech if necessary.
Returns True to indicate the input event has been consumed.
zORCA: Loading User SettingsTFZ
activeProfiler � enableSpeechz'ORCA: Speech is not enabled in settings�
enableBraillez1ORCA: Could not initialize connection to braille.� enableSoundc S s g | ]}|t kr|�qS r )�_orcaModifiers)�.0�kr r r �
<listcomp>� s z$loadUserSettings.<locals>.<listcomp>zORCA: User Settings Loaded)%r r" r# r � getPlayerr r r r% �
deactivate�
_userSettingsr �
getSetting�getGeneralSettingsZ
setProfile� ImportErrorr0 r1 �profile�getDefaultScriptZloadAppSettings�initZ speakMessager ZSETTINGS_RELOADEDr4 r ZttyZ
LEVEL_WARNINGr5 ra rM r6 r] r8 Zactivater/ )r, �
inputEventZskipReloadMessage�playerZreloadedZ_profiler+ Zcustomr r r �loadUserSettings< sn
rp c C s| t jrt jj� d S ytjdd�}W n tjtj� d S tj j
t j t j
dd�}|j|d|�t _t jj| � t jj� d S )Nz.orca_gui_prefs�orcaZuiz
orca-setup.uiZorcaSetupWindow)r ZorcaOSZshowGUI� importlib�
import_moduler r0 r1 rB �pathrS r Zdatadir�packageZ OrcaSetupGUIrm )r, �prefs�moduleZuiFiler r r �_showPreferencesUI� s
rx c C s: i }x t jD ]}tj|�||< q W | p*tj} t| |� dS )z�Displays the user interface to configure the settings for a
specific applications within Orca and set up those app-specific
user preferences using a GUI.
Returns True to indicate the input event has been consumed.
T)r ZuserCustomizableSettingsr rh r r$ rx )r, rn rv r r r r �showAppPreferencesGUI� s
ry c C s" t jt j�}tj� } t| |� dS )z�Displays the user interface to configure Orca and set up
user preferences using a GUI.
Returns True to indicate the input event has been consumed.
T)r ri rk r% rl rx )r, rn rv r r r �showPreferencesGUI� s
rz c C s6 dt _d}|r|d| 7 }tjtjj� |tj� � dS )z}Show Orca Help window (part of the GNOME Access Guide).
Returns True to indicate the input event has been consumed.
Fz help:orcaz?%sT)r r2 r Zshow_urir ZScreenZ get_defaultZget_current_event_time)r, rn ZpageZurir r r � helpForOrca� s
r{ c C s
t � dS )z�Quit Orca. Check if the user wants to confirm this action.
If so, show the confirmation GUI otherwise just shutdown.
Returns True to indicate the input event has been consumed.
T)r )r, rn r r r �quitOrca� s r| c C s6 yt jdd�}|j� W n tjtj� Y nX dS )zzDisplays the user interface to perform an Orca Find.
Returns True to indicate the input event has been consumed.
z.orca_gui_findrq N)rr rs Z
showFindUIr r0 r1 )r, rn rw r r r � showFindGUI� s
r} c C s� t jt jdd� tr tj� r dS tjrLtjdkrLt j t j
tj� t j tj� t � tjrltjdkrlt j d� dat
r�t
jdt� t jt jdd� dS )aB Initialize the orca module, which initializes the speech and braille
modules. Also builds up the application list, registers for AT-SPI events,
and creates scripts for all known applications.
Returns True if the initialization procedure has run, or False if this
module has already been initialized.
zORCA: InitializingTFr ZchangedzORCA: Initialized)r r" r# � _initializedr Z isScreenReaderServiceEnabledr �timeoutCallback� timeoutTime�signal�SIGALRM�alarmrp �a11yAppSettingsZconnectr )�registryr r r rm � s
rm c C s� t jt jdd� ts t| � tjrHtjdkrHtjtj tj� tj
tj� tjrbtjdkrbtj
d� |rrt j t j
� tj� d}t jt j|d� t jt jdd� | jdd� dS ) zStarts Orca.
zORCA: StartingTr z(ORCA: Startup complete notification madezORCA: Starting registryF)ZgilN)r r" r# r~ rm r r r� r� r� r� �pyatspiZ
setCacheLevelZCACHE_PROPERTIESr Znotify_startup_complete�start)r� � cacheValuesr+ r r r r� s
r� c C sL t j� }| tkr"t j|tj� d S t� tj| � | dkrHt j|tj � d S )Nr )
rB �getpid�EXIT_CODE_HANG�killr� �SIGKILLr �sys�exit�SIGTERM)ZexitCode�pidr r r �die. s
r� c C s4 d}t jt j|d� t jt j� t j� tt� d S )Nz&TIMEOUT: something has hung. Aborting.T)r r" r1 Z
printStackZ LEVEL_ALLZexamineProcessesr� r� )�signum�framer+ r r r �timeout: s
r� c C s� t jt jdd� tsdS tjrDtjdkrDtjtjtj� tj tj� t
j j t
j� tj� tj� tjrptj� tjr~tj� tjr�tj� }|j� tjr�tjdkr�tj d� datt� t jt jdd� t j j � t jt jdd� dS )z�Exits Orca. Unregisters any event listeners and cleans up.
Returns True if the shutdown procedure ran or False if this module
was never initialized.
zORCA: Shutting downTFr zORCA: Stopping registryzORCA: Shutdown complete) r r" r# r~ r r r� r� r� r� r r$ �presentMessager Z STOP_ORCAr% rf r/ r^ r r r_ r r` r re r6 ra r� �Registryr. )r, rn ro r r r r A s0
r c C s� d| }t jt j|d� tr&t| � ntd7 atjrZtjdkrZtjtj tj� tj
tj� y"t rht � nt
j � t � d}W n d}Y nX tjr�tjdkr�tj
d� |s�tt� d S )Nz0ORCA: Shutting down and exiting due to signal=%dTr r F)r r" r# � exitCountr� r r r� r� r� r� r~ r r r� )r� r� r+ Z cleanExitr r r �shutdownOnSignalr s(
r� c C s t jr(tjjt jj�r(tjt jdd� n tjdd� tt _
t j t j t
� t j t jt
� t j t jt
� t j t jt
� tj� s�tjd� ttj� y tj}tj� }|j|� W n t j t j � Y nX t j }|r�|j j!� }|r�t j" r�t#d|� yt$tj| � W n t%t&� Y nX dS )a1 The main entry point for Orca. The exit codes for Orca will
loosely be based on signals, where the exit code will be the
signal used to terminate Orca (if a signal was used). Otherwise,
an exit code of 0 means normal completion and an exit code of 50
means Orca exited because of a hang.F)�file� all_threads)r� TNr )'r Z debugFilerB rt �exists�name� faulthandlerrU r� r r r� �SIGHUPr� �SIGINTr� �SIGQUITr ZisAccessibilityEnabledZsetAccessibilityrm r� r� r Z
START_ORCAr% rl r� r0 r1 r r$ r' Z activeWindowr! r- r� r� r� )r� �messager, Zwindowr r r �main� s6
r� �__main__)TF)NNF)NN)NN)NNr )NN)NN)r )NN)NN)T)S�__doc__Z__id__� __version__Z__date__Z
__copyright__Z __license__r� Zgirr rB r� rJ r� r@ r� Zgi.repository.Gior r� Zrequire_versionZ
gi.repositoryr r Zgi.repository.GdkX11r r r r r r
r r r
r r r r r r r Z input_eventr Z
getManagerr/ r% r r r r r r� rg rM ZDESKTOP_MODIFIER_KEYSZLAPTOP_MODIFIER_KEYSra rZ r7 r- r4 r9 rG rY r8 r] r6 rp rx ry rz r{ r| r} r~ rm r� r� r� r r� r� r� �__name__r� r r r r �<module> s�
B"
U
&
0'
/