hello, i've been making my own command shell for sync, and i keep running
into this problem:

after i really mod out the .src (putting in extra-non-conflicting cmd keys), i log on, and i go around into all the different areas, testing it out,
and randomly, it screws up, saying "error in command shell".

this is entirely random, sometimes it's when I hit Q to quit to main, for example. regardless, this happens a lot, even when i modded out the renegade command shell,etc.

now, what am i doing wrong that it RANDOMLY goes to the fall through
hangup command? also, i'd like to add that i put end_cmd after every cmd_key i had in my shell.

is it because the src file is now TOO LARGE, and it's now shitting itself
when i'm going through the menus quickly?

could it be because there's too many BLANK LINES <CR>?

i've rigged it so it doesnt hang up on the user and it just takes them
to main, recommending that they log off and call back to fix the problem.

i'd appreciate it if anyone NON SNOTTY could help me out with this, and
for those snotty people: YES, i compiled the .src with baja after i edited it. :)
-Thanks,
jAS

---
þ Synchronet þ ...edge of oblivion eob_bbs.thebbs.org

hello, i've been making my own command shell for sync, and i keep running >into this problem:

after i really mod out the .src (putting in extra-non-conflicting cmd keys), i >log on, and i go around into all the different areas, testing it out,
and randomly, it screws up, saying "error in command shell".

this is entirely random, sometimes it's when I hit Q to quit to main, for >example. regardless, this happens a lot, even when i modded out the renegade >command shell,etc.

now, what am i doing wrong that it RANDOMLY goes to the fall through
hangup command? also, i'd like to add that i put end_cmd after every cmd_key i >had in my shell.

is it because the src file is now TOO LARGE, and it's now shitting itself >when i'm going through the menus quickly?

could it be because there's too many BLANK LINES <CR>?

i've rigged it so it doesnt hang up on the user and it just takes them
to main, recommending that they log off and call back to fix the problem.

i'd appreciate it if anyone NON SNOTTY could help me out with this, and
for those snotty people: YES, i compiled the .src with baja after i edited it. >:)
-Thanks,

Dunno if this being too snotty... but could we see the code?


-
James King, Coldwater, Mi And that's JIM to you guys!
Tip of the day: http://setiathome.berkeley.edu Echo
---
þ OLXWin 1.00b þ People who express their opinions in .sigs are morons.
þ Synchronet þ Vertrauen þ Home of Synchronet þ [vert/cvs/bbs].synchro.net

.úø( Finnigann said this to -oblivious- )øú.
re:hangup problems in the command shell...

Dunno if this being too snotty... but could we see the code?

James King, Coldwater, Mi And that's JIM to you guys!

no, not snotty at all... well....hm....
the current version i have is ripped off of one of the included
cmd shells, with a few additions.

uh...this is pretty messy.. be carefull for what you wish for:

sorry this is SO BIG!!
here it goes, i'd appreciate any help!
# DEFAULT.SRC
:top
!include sbbsdefs.inc

# Set return point for main menu commands (via end_cmd)
cmd_home

# Display TEXT\MENU\MAIN.* if not in expert mode
:main
compare_user_misc UM_EXPERT
if_false
cls
menu eob\MAIN
end_if

# Update node status
node_action node_main
async

inc_main_cmds

# Display main Prompt
exec_bin "rumors"
crlf
print "\r|15M|07ain |15M|07enu |14[|04@TLEFT@|14]:"
#compare_ars exempt T
#if_true
# print "@TUSED@"
#else
# print "@TLEFT@"
# end_if
#print " [@GN@] @GRP@ [@SN@] @SUB@: "

# Get key (with / extended commands allowed)
compare_user_misc UM_COLDKEYS
if_false
getkeye
else
getstrupr 60
endif

compare_ars RIP
if_true
getlines
end_if

# Do nothing for control keys and space
cmdkey ^@
end_cmd
cmdkey ^M
end_cmd
cmdkey ^S
end_cmd
cmdkey "
end_cmd

# Write command to log file
logkey_comma

# Hitting number changes current sub-board
cmdkey digit
compare_user_misc UM_COLDKEYS
if_false
ungetkey
end_if
msg_get_sub_num
end_cmd

# Hitting /number changes current group
cmdkey edigit
compare_user_misc UM_COLDKEYS
if_false
ungetkey
else
shift_str 1
end_if
msg_get_grp_num
end_cmd

# Show the key hit
compare_user_misc UM_COLDKEYS
if_false
printkey
endif

# Next sub-board
cmdkey }
msg_subboard_up
end_cmd

# Previous sub-board
cmdkey {
msg_subboard_down
end_cmd


# Next group
cmdkey ]
msg_group_up
end_cmd

# Previous group
cmdkey [
msg_group_down
end_cmd

# String commands start with a semicolon
cmdkey ;
compare_user_misc UM_COLDKEYS
if_true
shift_str 1
else
getstrupr 40
end_if
exec_bin str_cmds
end_cmd


# Sysop Menu
#cmdkey /!
#compare_ars SYSOP or EXEMPT Q or I or N
#if_true
#exec_XTRN "DOSSHELL"
#end_cmd
# end_if

cmdkey /Q
msg_qwk
end_cmd

cmdkey N
setstr "1"
mail_send_feedback
end_cmd

cmdkey _
exec_bin "bullseye"
end_cmd

cmdkey /O
exec_xtrn "wall"
end_cmd

cmdkey .
printfile "c:\sbbs\text\morecmds.ans"
end_cmd

cmdkey /?
exec_bin "help"
end_cmd

cmdkey /@
SETSTR "rasta"
PAGE_GURU "rasta"
end_cmd

CMDKEY /X
EXEC_XTRN "SYNCREG"
END_CMD

cmdkey F
chkfile "..\text\menu\tmessage.*"
if_true
menu tmessage
end_if
call file_transfers
end_cmd

compare_user_misc UM_COLDKEYS
if_false
crlf
end_if
pause_reset

# Menu
cmdkey ?
compare_user_misc UM_expert
if_true
menu main
end_if
end_cmd

# Sysop Menu
compare_ars SYSOP or EXEMPT Q or I or N
if_true
cmdkey !
menu sysmain
end_cmd
end_if

# Commands

cmdkey O
xtrn_section
end_cmd

cmdkey A
cls
PRINTFILE "C:\SBBS\TEXT\AUTOMSG.ANS"
auto_message
end_cmd

cmdkey /R
# print "\r\nBrowse/New Message Scan\r\n"
# msg_browse_scan
exec_xtrn "rumors"

end_cmd

cmdkey B
# print "\r\nBrowse/New Message Scan\r\n"
# msg_browse_scan
exec_xtrn "sbl"

end_cmd

cmdkey /W
printfile "C:\SBBS\TEXT\WATCH.ANS"
end_cmd

cmdkey C
chat_section
end_cmd

cmdkey P
user_defaults
end_cmd

CMDKEY Y
PRINTFILE "C:\SBBS\TEXT\USERINFO.ANS"
END_CMD
cmdkey E
call E-mail
end_cmd

#cmdkey F
# print "\r\nFind Text in Messages\r\n"
# msg_find_text
# end_cmd

cmdkey /S
exec "*shit"
end_cmd

cmdkey F
msg_find_text_all
end_cmd

cmdkey G
text_file_section
end_cmd

cmdkey I
call main_info
end_cmd

cmdkey J
msg_select_area
end_cmd

#our dosshell
cmdkey /!
exec_xtrn "dosshell"
end_cmd

cmdkey /L
nodelist_all
end_cmd

cmdkey $
minute_bank
end_cmd
cmdkey M
cmd_pop
goto message
end_cmd

cmdkey N
print "\r\nNew Message Scan\r\n"
msg_new_scan
end_cmd

cmdkey /N
msg_new_scan_all
end_cmd

cmdkey G
file_download_batch
if_true
end_cmd
end_if
logoff
end_cmd

cmdkey /G
file_download_batch
if_true
end_cmd
end_if
logoff_fast
end_cmd

#cmdkey P
# msg_post
# end_cmd

cmdkey /Q
msg_qwk
end_cmd

cmdkey R
msg_read
end_cmd

cmdkey S
print "\r\nScan for Messages Posted to You\r\n"
msg_your_scan
end_cmd

cmdkey /S
msg_your_scan_all
end_cmd

cmdkey U
#print "\r\nList Users\r\n"
#mnemonics "\r\n~Logons Today, ~Sub-board, or ~All: "
#getcmd LSA\r
#
#cmdkey L
# userlist_logons
# end_cmd
#cmdkey S
# userlist_sub
# end_cmd
#cmdkey A
userlist_all
end_cmd

# fall-through for CR, Ctrl-C, etc
end_cmd

cmdkey /U
userlist_all
end_cmd



cmdkey Z
print "\r\nContinuous New Message Scan\r\n"
msg_cont_scan
end_cmd

cmdkey /Z
msg_cont_scan_all
end_cmd

cmdkey *
msg_show_subboards
end_cmd

cmdkey /*
msg_show_groups
end_cmd

cmdkey /P
goto main_cfg
end_cmd

cmdkey #
print "\r\nType the actual number, not the symbol.\r\n"
end_cmd

cmdkey /#
print "\r\nType the actual number, not the symbol.\r\n"
end_cmd

# fall through
print "\r\nUnrecognized command."
compare_user_misc UM_expert
if_true
print " Hit '?' for a menu."
end_if
crlf
end_cmd

# shouldn't hit next line
print "Problem in command shell you should probably log of and call back." pause
goto main
###################################### message area ####################### :message
cmd_home
compare_ars expert
if_false
cls
menu EOB\MESSAGE
end_if

# Update node status
node_action node_main
async

# Display main Prompt
print "|08[|14@GRP@|07]|08Ä|07(|11@SN@|07)|08-|08[|14@SUB@|07]\r\n" #compare_ars exempt T
#if_true
# print "Time Used: [@TUSED@] "
#else
print "Time Left: [@TLEFT@] "
end_if

#print "(?=Help)\r\nMessage Menu : "

# Get key (with / extended commands allowed)
compare_user_misc UM_COLDKEYS
if_false
getkeye
else
getstrupr 60
endif

# Do nothing for control keys and space
cmdkey ^@
end_cmd
cmdkey ^M
end_cmd
cmdkey ^S
end_cmd
cmdkey "
end_cmd

# Write command to log file
logkey_comma

# Hitting number changes current sub-board
cmdkey digit
compare_user_misc UM_COLDKEYS
if_false
ungetkey
end_if
msg_get_sub_num
end_cmd

# Hitting /number changes current group
cmdkey edigit
compare_user_misc UM_COLDKEYS
if_false
ungetkey
else
shift_str 1
end_if
msg_get_grp_num
end_cmd

# Show the key hit
compare_user_misc UM_COLDKEYS
if_false
printkey
endif

cmdkey ?
compare_ars expert
if_true
cls
menu EOB\MESSAGE
end_if
end_cmd

cmdkey Q
cmd_pop
goto main
end_cmd

cmdkey [
msg_subboard_down
end_cmd

cmdkey ]
msg_subboard_up
end_cmd

compare_user_misc UM_COLDKEYS
if_false
crlf
end_if
pause_reset

cmdkey A
msg_show_subboards
end_cmd

cmdkey /A
msg_show_groups
end_cmd

cmdkey C
chat_section
end_cmd

cmdkey /L
nodelist_all
end_cmd

cmdkey N
msg_new_scan
end_cmd

cmdkey R
msg_read
end_cmd

cmdkey P
msg_post
end_cmd

cmdkey F
cmd_pop
goto file_transfers
end_cmd

cmdkey S
print "\r\nSearch for Text in Messages\r\n"
msg_find_text
end_cmd

cmdkey U
userlist_sub
end_cmd

cmdkey G
file_download_batch
if_true
end_cmd
end_if
logoff
end_cmd

cmdkey /G
file_download_batch
if_true
end_cmd
end_if
logoff_fast
end_cmd

cmdkey E
print "\r\nE-mail (User name or number): "
getname 25
compare_str ""
if_true
end_cmd
end_if
compare_str "SYSOP"
if_true
setstr "1"
end_if
mail_send
end_cmd

cmdkey J
msg_select_area
end_cmd

cmdkey Y
msg_your_scan_all
end_cmd

cmdkey P
msg_post
end_cmd

cmdkey #
print "\r\nEnter the number of the sub-board to change to.\r\n"
end_cmd

cmdkey /#
print "\r\nEnter the number of the message group to change to.\r\n"
end_cmd

# fall through
print "\r\nUnrecognized command."
compare_ars expert
if_true
print " Hit '?' for a menu."
end_if
crlf
end_cmd

############################### E-mail Section ################################

:e-mail
cmd_home
compare_user_misc UM_expert
if_false
menu E-MAIL
end_if
async
print "\r\nE-mail: "
getcmd ?SRFNUKQ\r
logkey

cmdkey ?
compare_user_misc UM_expert
if_true
menu E-MAIL
end_if
end_cmd

cmdkey S
print "\r\nE-mail (User name or number): "
getname 25
compare_str ""
if_true
end_cmd
end_if
compare_str "SYSOP"
if_true
setstr "1"
end_if
mail_send
end_cmd

cmdkey U
print "\r\nE-mail (User name or number): "
getname 25
compare_str ""
if_true
end_cmd
end_if
compare_str "SYSOP"
if_true
setstr "1"
end_if
mail_send_file
end_cmd

cmdkey R
mail_read
end_cmd

cmdkey F
setstr "1"
mail_send_feedback
end_cmd

cmdkey N
no_yes "\r\nAttach a file"
if_true
mail_send_netmail
else
mail_send_netfile
end_if
end_cmd

cmdkey K
mail_read_sent
end_cmd

cmdkey Q
cmd_pop
return
end_cmd

cmd_pop
return

############################ Main Info Section ###############################

:main_info
cmd_home
compare_user_misc UM_expert
if_false
menu MAININFO
end_if
async
print "\r\nInfo: "
getcmd ?QISVY\r
logkey

cmdkey ?
compare_user_misc UM_expert
if_true
menu MAININFO
end_if
end_cmd

cmdkey I
info_system
end_cmd

cmdkey S
info_subboard
end_cmd

cmdkey Y
info_user
end_cmd

cmdkey V
info_version
end_cmd

cmdkey Q
cmd_pop
return
end_cmd

cmd_pop
return

########################### Main Config Section ##############################

:main_cfg

compare_user_misc UM_expert
if_false
menu MAINCFG
end_if
async
print "\r\nConfig: "
getcmd ?QNPIS\r
logkey

cmdkey ?
compare_user_misc UM_expert
if_true
menu MAINCFG
end_if
goto main_cfg
end_cmd

cmdkey N
msg_new_scan_cfg
return
end_cmd

cmdkey S
msg_your_scan_cfg
return
end_cmd

cmdkey P
# msg_ptrs_cfg
msg_post
return
end_cmd

cmdkey I
msg_ptrs_reinit
return
end_cmd

return


########################### File Transfer Section #############################

:file_transfers

compare_ars file_cmds=0
if_true
compare_user_misc UM_ask_nscan
if_true
yes_no "\r\n\r\nSearch all libraries for new files"
if_true
file_new_scan_all
end_if
end_if
end_if

cmd_home

compare_user_misc UM_expert
if_false
cls
menu eob\TRANSFER
end_if

# Update node status
node_action node_xfer
async

inc_file_cmds

# Display main Prompt
print "\r\nþ File þ "
#compare_ars exempt T
#if_true
# print "@TUSED@"
#else
# print "@TLEFT@"
# end_if
print " (@LN@) @LIB@ (@DN@) @DIR@: "

# Get key (with / extended commands allowed)
compare_user_misc UM_COLDKEYS
if_false
getkeye
else
getstrupr 60
endif

compare_ars RIP
if_true
getlines
end_if

# Do nothing for control keys and space
cmdkey ^@
end_cmd
cmdkey ^M
end_cmd
cmdkey ^S
end_cmd
cmdkey "
end_cmd

# Write command to log file
logkey_comma

# Hitting number changes current sub-board
cmdkey digit
compare_user_misc UM_COLDKEYS
if_false
ungetkey
end_if
file_get_dir_num
end_cmd

# Hitting /number changes current group
cmdkey edigit
compare_user_misc UM_COLDKEYS
if_false
ungetkey
else
shift_str 1
end_if
file_get_lib_num
end_cmd

# Show the key hit
compare_user_misc UM_COLDKEYS
if_false
printkey
endif

# Next directory
cmdkey >
file_directory_up
end_cmd
cmdkey ]
file_directory_up
end_cmd
cmdkey +
file_directory_up
end_cmd
cmdkey =
file_directory_up
end_cmd

# Previous directory
cmdkey <
file_directory_down
end_cmd
cmdkey [
file_directory_down
end_cmd
cmdkey -
file_directory_down
end_cmd

# Next library
cmdkey }
file_library_up
end_cmd

# Previous library
cmdkey {
file_library_down
end_cmd

# String commands start with a semicolon
cmdkey ;
compare_user_misc UM_COLDKEYS
if_true
shift_str 1
else
getstrupr 40
end_if
exec_bin str_cmds
end_cmd

cmdkey Q
cmd_pop
return
end_cmd

cmdkey /!
print "executing uploads.bat externally"
exec "start /m c:\sbbs\exec\upload.bat"
end_cmd

compare_user_misc UM_COLDKEYS
if_false
crlf
end_if
pause_reset

# Menu
cmdkey ?
compare_user_misc UM_expert
if_true
menu TRANSFER
end_if
end_cmd

# Sysop Menu
compare_ars SYSOP
if_true
cmdkey !
menu sysxfer
end_cmd
end_if

# Commands

cmdkey B
file_batch_section
end_cmd

cmdkey C
chat_section
end_cmd

cmdkey D
print "\r\nDownload File(s)\r\n"
file_download_batch
if_true
end_cmd
end_if
getfilespec
if_true
file_download
end_if
end_cmd

cmdkey /D
print "\r\nDownload File(s) from User(s)\r\n"
file_download_user
end_cmd

cmdkey E
print "\r\nList Extended File Information\r\n"
getfilespec
if_true
file_list_extended
end_if
end_cmd

#cmdkey F
# print "\r\nFind Text in File Descriptions (no wildcards)\r\n"
# file_find_text
# end_cmd

cmdkey F
file_find_text_all
end_cmd

cmdkey I
call file_info
end_cmd

cmdkey J
file_select_area
end_cmd

cmdkey L
setstr *.*
file_list
end_cmd

cmdkey /L
nodelist_all
end_cmd

cmdkey N
print "\r\nNew File Scan\r\n"
file_new_scan_all
#file_new_scan
end_cmd

cmdkey /N
file_new_scan_all
end_cmd

cmdkey G
file_download_batch
if_true
end_cmd
end_if
logoff
end_cmd

cmdkey /G
file_download_batch
if_true
end_cmd
end_if
logoff_fast
end_cmd

cmdkey R
print "\r\nRemove/Edit File(s)\r\n"
getfilespec
if_true
file_remove
end_if
end_cmd

cmdkey S
print "\r\nSearch for Filename(s)\r\n"
file_find_name
end_cmd

cmdkey /S
file_find_name_all
end_cmd

cmdkey T
file_temp_section
end_cmd

cmdkey U
print "\r\nUpload File\r\n"
chkfile "..\text\menu\upload.*"
if_true
menu upload
end_if
file_upload
end_cmd

cmdkey /U
print "\r\nUpload File to User\r\n"
file_upload_user
end_cmd

cmdkey V
print "\r\nView File(s)\r\n"
getfilespec
if_true
file_view
end_if
end_cmd

cmdkey Z
print "\r\nUpload File to Sysop\r\n"
file_upload_sysop
end_cmd

cmdkey *
file_show_directories
end_cmd

cmdkey /*
file_show_libraries
end_cmd

cmdkey &
:xfercfg
compare_user_misc UM_expert
if_false
menu XFERCFG
end_if
async
print "\r\nConfig: "
getcmd ?QBEP\r
logkey

cmdkey ?
compare_user_misc UM_expert
if_true
menu XFERCFG
end_if
goto xfercfg
end_cmd

cmdkey P
file_ptrs_cfg
end_cmd

cmdkey B
toggle_user_misc UM_BATCHFLAG
end_cmd

cmdkey E
toggle_user_misc UM_EXTDESC
end_cmd
end_cmd

cmdkey #
print "\r\nType the actual number, not the symbol.\r\n"
end_cmd

cmdkey /#
print "\r\nType the actual number, not the symbol.\r\n"
end_cmd

# fall through
print "\r\nUnrecognized command."
compare_user_misc UM_expert
if_true
print " Hit '?' for a menu."
end_if
crlf
end_cmd

# shouldn't hit next line
print "Problem in command shell you should probably hang up and call back." pause
goto main

############################ File Info Section ###############################

:file_info
cmd_home
compare_user_misc UM_expert
if_false
menu XFERINFO
end_if
async
print "\r\nInfo: "
getcmd ?TYDUQ\r
logkey

cmdkey ?
compare_user_misc UM_expert
if_true
menu XFERINFO
end_if
end_cmd

cmdkey T
info_xfer_policy
end_cmd

cmdkey Y
info_user
end_cmd

cmdkey D
info_directory
end_cmd

cmdkey U
userlist_dir
end_cmd

cmdkey Q
cmd_pop
return
end_cmd

cmd_pop
return

#end of DEFAULT.SRC


.Ä.¿Ä¿Â .Â. Â.Â..Ä.Ú ¿.-.
³ :³Ä:: : : ³ : ³ :³ ³À-.
`Ä'³_³ÁÙúÁú`\/'úÁú`Ä':_:`Ä'
+o edge of oblivion bbs
telnet://eob_bbs.thebbs.org
... 42? 7 and a half million years and all you can come up with is 42?!
--- MultiMail/MS-DOS v0.35
þ Synchronet þ ...edge of oblivion eob_bbs.thebbs.org

RE: command shell probs.
BY: -oblivious- to Finnigann on Fri Mar 06 2037 02:27 am

# Display main Prompt
print "|08[|14@GRP@|07]|08Ä|07(|11@SN@|07)|08-|08[|14@SUB@|07]\r\n" #compare_ars exempt T
#if_true
# print "Time Used: [@TUSED@] "
#else
print "Time Left: [@TLEFT@] "
end_if

The only thing that springs immediately to the eye is this snippet on or about line 409 (just after the start of the "Message Area").

Notice that there is an "end_if" for which the matching "if_true" has been commented out? This is likely to do unexpected things to the stack. Try changing this for a start.

Of course, this may be completely unrelated to your problem, but even so it would be a good idea to correct it...

---
þ Synchronet þ Vertrauen þ Home of Synchronet þ [vert/cvs/bbs].synchro.net

RE: command shell probs.
BY: Amcleod to -oblivious- on Mon Jan 29 2001 03:43 am

RE: command shell probs.
BY: -oblivious- to Finnigann on Fri Mar 06 2037 02:27 am

# Display main Prompt
print "|08[|14@GRP@|07]|08Ä|07(|11@SN@|07)|08-|08[|14@SUB@|07]\r\n" #compare_ars exempt T
#if_true
# print "Time Used: [@TUSED@] "
#else
print "Time Left: [@TLEFT@] "
end_if

The only thing that springs immediately to the eye is this snippet on or abo line 409 (just after the start of the "Message Area").

Notice that there is an "end_if" for which the matching "if_true" has been commented out? This is likely to do unexpected things to the stack. Try changing this for a start.

Of course, this may be completely unrelated to your problem, but even so it would be a good idea to correct it...

thanks for the feeback, will do... oh, i did figure out what the prob was..
i was missing cmd_home in one of my areas...i simplified it, made it more
like a batch file (ie: ":main;:msg,etc") and it works great now... i also
added some random menus, since now i've been programming baja games now.

---
þ Synchronet þ ...edge of oblivion eob_bbs.thebbs.org