Re: $XKey / STACK query . . .

[Carl Distefano cld@xxxxxxxx]

Reply to note from Fred Weiner  Mon, 20 Jan 2014
07:21:59 -0700

Fred:

> I think the last bit has been cut off. The section ends with
>
> <$Xkey_are_added_to_the_S
>
> and no further. So I won't try yet . . .

I double-checked my outgoing post and the block of encoded material
was complete. Harry presumably had no trouble with it. Could Gmail
be the problem? Let's see. ... I just sent the message to my Gmail
account as a test. Picked it up in Firefox. The encoded block came
through in its entirety. After pasting into XyWrite, it decoded
correctly. I'm afraid I have to put user error at the top of my list
of suspects.

Harry said:
> I've attached Carl's latest as a zip file, because sometimes
> emailing creates problems.

That's cheating, Harry. We're trying to avoid attachments! Plain
text in the "safe" range (Ascii 32-127), which is what these
encodings are, should not be be altered by any email program.

Fred, here it is again. Give it another go.


'%--_XYENCode_start--
{$Xkey,$X}'^'^Enhanced_Func_XC_(eXeCute_command)_Substitute'^C
%.L.Distefano_1/24/09_rev.11/21/13'^'^Purpose'^-------'^Use_a_
single_key_of_your_choosing_(referred_to_below_as_"<$Xkey>")_t
o_launch_both_built-in_(native)_commands_and_user-created_comm
ands_(U2_framenames)_from_the_CMline.'^'^Critical_Prerequisite
'^---------------------'^The_DiaLoG_help_file_~)_MUST_
contain_the_redirection_frame_{{5$?}}._If_it_does_not,_add_it_
by_doing_the_following'._Toggle_this_file_into_eXPanded_view_(
FUNC_XP)._DeFine_the_following_block_of_code_(everythin
g_between_the_horizontal_lines,_not_the_lines_themselves),_and
_issue_ADD2DG.'^'^-_-_-_-_-'^{{5$?}}_Redirect_source_
for_funcs_$A-$Z|$0-$9_from_.DLG_to_.U2_[CLD]'^~B~~>'JM2.~'Q2~B'^'^-_-_-_-_-'^'^Setup'^-----'^Assign_$X
_to_the_desired_key_in_the_KBD_file'.'^nn=$X'^'^Note'._$X_is_a
_complete_substitute_for_both_func_XC_and_the_Enter_key_(":~M"
),_as_well_as_for_the_U2_.'^'^When_assigning_$X_to_th
e_Enter_key,_insert_an_initial_func_Q8'.'^28=Q8$X'^',',28=:~M'^
or'^104=Q8$X'^',',104=:~M'^'^(Func_Q8_allows_the_modified_Ente
r_key_to_work_with_the_spell-checker_and_the_Help/Menu_system.
)'^'^SAve_and_re-LOAD_the_KBD_file_after_editing.'^'^Use'^---'^
To_launch_a_native_command_or_U2_framename_(referred_to_here_i
nterchangeably_as_"commands"),_type_the_command_and_arguments,
_if_any,_on_the_CMline,_then_hit_<$Xkey>_to_execute.'^'^Exampl
es'.'^LM_1.5IN<$Xkey>_issues_the_native_Left_Margin_command'^T
ABLE_VA<$Xkey>_issues_the_U2_framename_to_display_a_list_of_Xy
Write_VAriables'^'^Rules'^-----'^-_Native_commands_take_preced
ence_over_U2_framenames'._If_the_command_on_the_CMline_is_both
_a_valid_native_command_and_a_valid_U2_framename,_it_is_eXeCut
ed_as_a_native_command,_NOT_as_a_framename._To_force_execution
_as_a_framename,_enclose_the_command_(not_the_arguments)_in_do
uble_quotes'.'^__"command"[_arg(s)]<$Xkey>'^'^Example'.'^You_h
ave_a_U2_routine_called_SAVE_that_SAves_the_current_file_to_th
ree_different_locations._If_you_issue_SAVE<$Xkey>,_you_get_a_n
ormal,_native_SAve_command._To_invoke_your_enhanced_SAVE_routi
ne,_issue'.'^"SAVE"_d'.\path\myfile<$Xkey>'^'^Exceptions'.'^1)
_When_issued_as_a_U2_framename,_HELP_[framename]_displays_the_
U2_Help_screen_for_the_specified_framename._Frame_$X_treats_HE
LP_as_a_U2_framename,_even_though_HELP_is_also_a_native_comman
d._This_saves_the_trouble_of_typing_"HELP"_framename<$Xkey>_ev
ery_time._(The_native_HELP_command,_which_displays_the_XyWrite
_splash_screen,_is_accessible_with_?<$Xkey>.)'^2)_Commands_con
sisting_of_a_single_character_(except_"?")_are_issued_as_U2_fr
amenames.'^'^-_If_$X_is_assigned_to_the_Enter_key_(key_#_28_or
_104),_normal_Enter_key_behavior_obtains'._If_cursor_is_on_CMl
ine,_command_is_executed',_if_cursor_is_in_the_text_area,_a_ca
rriage-return_is_put_at_the_cursor_position.'^'^-_If_(and_only
_if)_~~'JM2.help'Q2~>STACK.PM~_is_in_use,_commands_issued_with_<$Xkey>_are_added_to_the_S
tack_(command_history)._Do_NOT_use_"$S"_in_the_key_assignment',
_$X_calls_Stack_internally._For_example,_if_your_current_eXeCu
te_key_is_F9_and_includes_a_call_to_Stack'.'^__67=$S,XC'^__cha
nge_it_to'.'^__67=$X'^__Your_commands_will_still_be_Stacked.'^
'^~Renumber_frame_$X_in_PACK_mode'^Default_Save/Get_Range
=01-04',_50',_620'^OPTIONs(1)'._FREEZE_50,_620'^~'^-~I-~I
-~I-~I-~I-~I-~I-~I-~I-'^'^
'%--_XYENCode___end--

--
Carl Distefano
cld@xxxxxxxx