Try /Catch / End em Harbour

[dotNET-man]

Itamar,
Estou testando a compilação em Harbrou o aplicativo xHarbour. Ao compilar dá erro no try / catch / end. Após vasculhar o Harbour descobri que não tem esse comando. No lugar usa o begin sequence. Diante disso inclui xHb.lib e mesmo assim o erro continua. Teria que substituir toda a ocorrencia do primeiro pelo último?
Agradeço desde já.
Sérgio

Nota da Moderação (Sygecom): Conforme a regra numero 12(Doze) do fórum, não é permitido mensagens direcionada a um unico membro. Você pode esta revisando as regras no link abaixo:
viewtopic.php?f=40&t=2002

[sygecom]

Olá Sérgio,
Isso é facil de resolver, basta colocar as linhas abaixo no inicio do seu .PRG:

Código: Selecionar todos

   #xcommand TRY              => bError := errorBlock( {|oErr| break( oErr ) } ) ;;
                                 BEGIN SEQUENCE
   #xcommand CATCH [<!oErr!>] => errorBlock( bError ) ;;
                                 RECOVER [USING <oErr>] <-oErr-> ;;
                                 errorBlock( bError )

[dotNET-man]

Obrigado Leonardo.
E switch / case, existe no Harbour? Se não como faço a substituição? Você sabe se os desenvolvedores Harbour têm intenção de colocar TRY /CATCH E SWITCH /CASE?
Sérgio

[sygecom]

Olá Sergio,
Não faço idéia se vão ou não implantar isso, nesse caso teria que entrar em contato com o grupo de desenvolvimento do Harbour.