Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

SET FUNCTION <n> TO 'a;b' #213

Open
alcz opened this issue Sep 23, 2020 · 0 comments
Open

SET FUNCTION <n> TO 'a;b' #213

alcz opened this issue Sep 23, 2020 · 0 comments

Comments

@alcz
Copy link
Contributor

alcz commented Sep 23, 2020

SET FUNCTION <n> TO that contained ';' characters were translated to <Enter> in Harbour 3.0 (Clipper compatible behaviour)

#include "inkey.ch"
MEMVAR GetList
PROCEDURE Main
   LOCAL a := "  ", b := "  "
   hb_gtReload( "TRM" )
   SET FUNCTION 5 TO "a;b;"
   hb_keyPut( K_F5 )
   @ 1, 1 GET a
   @ 2, 1 GET b
   READ

In current Harbour 3.2 it just inserts those ';' semicolons. You can spot the difference in playground too.

https://os.allcom.pl/hb/3.2/#!eJw1jUELgjAAhe_7FY91MYjAwEsSJDolck6WdpVNR47EDs1D_z5FvL3vPT7ezo7tMHUG1I5v8zu2PSWc8WckkRmX268jpRQxS2rJwJUdCYBcxFEOhfMFFKAH6C0ua6-bl5Nm-KjOA60kp9gv_YNVSOsirm6iQIBKgKpQh5szv5eT83Bv0mAVrvAP8JHNnlr5tLFeWLIoIX9pJi9y

https://os.allcom.pl/hb/3.0/#!eJw1jU0LgkAYhO_7K4a3i0EEBl6SINFVIr_Y1q6yq5KS2KH10L9PM2_zzPAwm26o-rFuQN3wbD77qiWW8OTuCUSNibu3YbnIfB4UgiNR3cAYgDjzvRgKxxMIoB30Gn9zq8uHEU3_UrUFkiIhbOf-xiXCIvXlJUvhQGYg5WqX_s70n4_GwrUMnUU4w97BRjR5auHDynpmwb2AfQGX6C-G

I'll take a look at this one later if nobody knows the cause.

@alcz alcz changed the title SET FUNCTION 5 TO "a;b SET FUNCTION <n> TO 'a;b Sep 23, 2020
@alcz alcz changed the title SET FUNCTION <n> TO 'a;b SET FUNCTION <n> TO 'a;b' Sep 23, 2020
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

1 participant