World: r3wp

I was processing a Chinese text file using REBOL. The text file was 
in the Big5 Encoding, which is the de facto encoding we use in Taiwan. 
A Big5 character needs two bytes, so I used strings whose length 
is 2 to present Big5 characters. 


Something weird happened. After a while, I realized that REBOL treated 
two different characters as they were the same character.


Chinese-char1: to-string #{A4 68} ; Big5 Char for "Educated Person"
Chinese-char2: to-string #{A4 48} ; Big5 Char for "Human"

if Chinese-char1 = Chinese-char2 [
    print "This cannot not be happening..."
]
How would I fix my REBOL scrip? Thank you.

>> strict-equal? probe to-string join #{a4} #{68} probe to-string 
join #{a4} #{48}
¤h
¤H
== false

Sqlab, thank you.

= is case insensitive, but that only works with latin1. you should 
use binary!, not string!, to avoid any problems.

Is there any way that I could detect whether the Num Lock or the 
Caps Lock is on?

Not in Core ;-) and I from using Gabriele's keycode onle-line displayer 


view layout [box feel [engage: func [f a e] [switch a [up [focus 
f] key [print mold e/key]]]]]


It looks as though Rebol doesn't provide an event when Caps Lock 
is pressed or released.

I read here : http://www.rebol.org/cgi-bin/cgiwrap/rebol/ml-topic-index.r?i=k

It is possible to get keycodes(at least under Windows) even in Rebol/Core:

system-awake: func [port /local msg][
	msg: pick port 1
	print [
		switch msg/2 reduce [
			WM_KEYDOWN ["key down"]
			WM_KEYUP ["key up"]
		]
		"keycode:" msg/3
		"char:" mold to-char msg/3
	]
	return false
]

WM_KEYDOWN: 256
WM_KEYUP: 257

system/ports/system: open [scheme: 'system]
system/ports/system/awake: :system-awake

set-modes system/ports/system compose/deep [winmsg: [(WM_KEYDOWN) 
(WM_KEYUP)]]
append system/ports/wait-list system/ports/system

wait []

as you can see it is possible to catch also KEYUP events in Windows. 
What a pity system port has a bug under View so it works only when 
console window is activated.

Thanks for the enlightenment, Cyphre

Cyphre - so why not to fix that system port bug?! That would be nice, 
as old (pre R3) SDK could have fixed that bug

I have already posted the bug into RAMBO so it depends on Carl's 
decission now.

will system port exist in R3, or it will be done in other way?

You need to ask Carl, but I think system port should be in R3 too.

Can somebody explain to me, how does FIND work in file! ?

>> path: %/disk/drawer/
== %/disk/drawer/
>> file: %/disk/drawer/file
== %/disk/drawer/file
>> find/match file path
== %file
>> find/match file %/disk
== %/drawer/file
>> find/match file %/disk/
== %drawer/file
>> find/match file %disk/
== none
>> find/match file %drawer
== none


It seems to work only if the searched string stars on begining of 
file!

That's right, the /MATCH refinement causes exact matching to occur 
from the position you specify (eg. the start). I was a bit confused 
by this at first too. What you probably want is the /ANY refinement, 
which switches on wildcards. So use /ANY instead of /MATCH and you'll 
be alright.

There's nothing special about FIND's treatment of FILE! datatype 
here. It's just another any-string!

I'm using /MATCH because I want to strip part of path. I'll probably 
make parse rule for it :/

Ah.. maybe you want FIND/ANY/TAIL

or just FIND/TAIL

Anton great, that's exatly it!

Cyphre, where is this documented?

You can also use the API to get the current keyboard state, whether 
or not you trap the key yourself. And, yes, if we ever get system 
ports working under View, it will be nice; for file drops alone it 
would be great.

About the numLock and capsLock, the problem is solved. In ActionScript, 
there are "flash.ui.Keyboard.numLock" and "flash.ui.Keyboard.capsLock". 
I am programming my GUI using ActionScript and my engine using REBOL. 
And ActionScript and REBOL talk to each other through sockets.

Cool.

Maxim: AFAIK the only info about system port I know is here:
http://www.rebol.com/docs/changes.html#section-5.10and 
and also Gregg's script at rebol.org:

http://www.rebol.org/cgi-bin/cgiwrap/rebol/view-script.r?script=sys-port-drag-accept.r

my god... how can such a big feature pass by virtually unused...

I didnt even know about the system port being something we could 
program.

I was asking and ranting about being able to accept OS events ... 
and IIRC no one droped this on me !

Max, you're always ranting maybe!? ;-P (joking)

hehhee

I'm the Canadian Pekr  ;-)

what? hehe :-)

I wan't my x-mas present NOW! .... oh, wrong channel... ;o)

hahaha

maxim lol :)))

More info on the abilities of system port would be great - till then 
ill experiment with it to see just what its range is under windows..

If Carl is still writing learner docs, perhaps he could finally document 
the system port.

Under Windows, you can trap pretty much any WM IIRC, but you can't 
do it from a View window, which is the big limitation. Still useful 
for some things though.

Eh ?

the system port can't be used for drag and drop and View faces?

Nope.

At least I could never get it to work.

Hope this is rectified in r3

what's the fastest way to sort a directory of files chronologically?

This needs 'foreach-file from rebol.org

>> include %foreach-file.r
>> out: copy [] ff: func [file][repend out [file modified? file]]
>> foreach-file %./ :ff

== [%./!/basics_wide_desktop_computer_system.xml.ttx 21-Jun-2006/16:05+1:00 
%./!/basi
cs_wide_hard_disk_drive.xml.ttx 21-Jun-2006/8:...
>> sort/skip/compare out 2 2

== [%./ft/wavs/balloon.wav 23-Aug-2001/13:00+1:00 %./ft/wavs/down.wav 
23-Aug-2001/13:
00+1:00 %./ft/wavs/error.wav 23-Aug-2001/13:00...

thanks

Hmmm, has anyone looked at my FILE-LIST script on REBOL.org? If so, 
would it make sense to add an option to sort the results, or an option 
to have extra data returned (e.g. attrs or date-time) along with 
the file names themselves?

; version 1
my-face: make face [
    my-data: none
]
make-my-face: func [ extra-data ] [
    make my-face [ 
        my-data: extra-data 
    ]
]
; end of version 1

; version 2
my-face: make face [
    my-data: none
    new: func [ extra-data ] [
        make my-face [ 
            my-data: extra-data 
        ] 
    ]
]
; end of version 2


Quesion: I have a lot of my-face objects ( 1,000,000+ ) in an appication. 
Which version is better? Will the version 2 take more memory since 
the "new" is a object method instead of a function?