 |
| Utilitaire pratique | |
| PierreCh | 13-Oct-2014/18:56:23+2:00 |
| Bonjour, Je profite de la bonne nouvelle pour vous soumettre un petit utilitaire qui me simplifie énormément la vie depuis hier que je l'ai écrit. Il guette, à intervalles réguliers, le contenu du presse-papiers, et, si ce dernier a changé, il l'évalue. Voilà le code: run_clipboard_rebol_code: does [ ;Un utilitaire pour faire tourner automatiquement le code ; Rebol surligné dans un vi quelconque et, de ce fait, dans ;le presse-papiers. timewait: .2 code_before: copy "" err: copy [] write clipboard:// "" forever [ code: copy read clipboard:// if code != code_before [ print "début" code_before: copy code print "========== Code from clipboard: ==========" print code print "======== code evaluation output: =========" if error? try [ do load code ] [ ;err: disarm :err print reform [ "### code not valid ###" ;err/id err/where err/arg1 ;print probe disarm err ;"######################" ] ] print "==========================================^/" ] wait timewait ] ] Voilà. C'est tout bête, ça a probablement déjà été inventé, mais ça me rend de fiers services! à+ Pierre (je précise, si jamais rebelBB devait encore me qualifier de nonne...) | |
| PierreCh | 13-Oct-2014/19:45:18+2:00 |
J'avais oublié de faire un peu de ménage dans mon petit code: voilà qui est dépoussiéré:run_clipboard_rebol_code: does [ ;Un utilitaire pour faire tourner automatiquement le code ; Rebol copié dans le presse-papiers. timewait: .2 code_before: copy "" err: copy [] write clipboard:// "" forever [ code: copy read clipboard:// if code != code_before [ print "début" code_before: copy code print "========== Code from clipboard: ==========" print code print "======== code evaluation output: =========" if error? try [ do load code ] [ print reform [ "### code not valid ###" ] ] print "==========================================^/" ] wait timewait ] ] | |
|
Login required to Post. | |