home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ckscripts / shortcircuit < prev    next >
Text File  |  2020-01-01  |  990b  |  42 lines
  1. ; From: Dat Thuc Nguyen
  2. ; Newsgroups: comp.protocols.kermit.misc
  3. ; Subject: Short-Circuit Macro Execution
  4. ; Date: Thu, 25 May 2000 18:12:11 EDT
  5. ; URL: http://www.smalltickle.com
  6. ; 
  7. ; SHORT-CIRCUIT MACRO EXECUTION
  8. ;
  9. ; The following macros offer the capability to execute a sequence of
  10. ; macros with short-circuit effect as in the C language.
  11. ;
  12. ; Usage Examples:
  13. ;
  14. ; C-Kermit> define do_this { return 1 }
  15. ; C-Kermit> define and_this { return 2 }
  16. ; C-Kermit> define and_that { return -1 }
  17. ; C-Kermit> define and_this_also { return 3 }
  18. ;
  19. ; C-Kermit> AND do_this and_this and_that and_this_also
  20. ;
  21. ; C-Kermit> define or_this { return -1 }
  22. ; C-Kermit> define or_that { return -2}
  23. ; C-Kermit> define or_that_also { return 3}
  24. ;
  25. ; C-Kermit> OR  do_this or_this or_that or_that_also
  26.  
  27. define AND {
  28.     local \%i
  29.     for \%i 1 \v(argc)-1 1 {
  30.         if < \fexecute(\&_[\%i]) 0 break
  31.     }
  32. }
  33.  
  34. define OR {
  35.     local \%i
  36.     for \%i 1 \v(argc)-1 1 {
  37.         if > \fexecute(\&_[\%i]) 0 break
  38.     }
  39. }
  40.  
  41. ; End
  42.