Revision 33791

Date:
2008/12/11 04:53:19
Author:
chromatic
Revision Log:
[Rakudo] PDX.pm added a basic implementation of warn to Rakudo. This will need
revision when HLLCompiler and/or Rakudo supports a top-level exception handler.
Files:

Legend:

 
Added
 
Removed
 
Modified

  • trunk/languages/perl6/src/builtins/control.pir

     
    154 154
    155 155 .sub 'die' :multi(_)
    156 156 .param pmc list :slurpy
    157 .local pmc it
    158 157 .local string message
    159 158 .local pmc ex
    160 159
    … …  
    292 291 .return (res)
    293 292 .end
    294 293
    294 =item warn
    295 295
    296 =cut
    297
    298 .sub 'warn'
    299 .param pmc list :slurpy
    300 .local pmc it
    301 .local string message
    302
    303 message = list.'join'('')
    304 if message > '' goto have_message
    305 message = "Warning! Something's wrong\n"
    306 have_message:
    307 printerr message
    308 .return ()
    309 .end
    310
    311
    296 312 =back
    297 313
    298 314 =head1 TODO: Functions
    … …  
    311 327
    312 328 B<TODO>: Research the exception handling system.
    313 329
    330 =item warn
    314 331
    332 B<TODO>: Throw a resumable exception when Rakudo supports top-level exception
    333 handlers. Note that the default exception handler should print the message of
    334 this exception to standard error.
    335
    336
    315 337 =back
    316 338
    317 339 =cut