home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ckscripts / lispops < prev    next >
Encoding:
Text File  |  2020-01-01  |  2.2 KB  |  96 lines
  1. ; From: Dat Thuc Nguyen
  2. ; Newsgroups: comp.protocols.kermit.misc
  3. ; Subject: LISP-Like Operations in Kermit
  4. ; Date: Wed, 24 May 2000 23:18:01 EDT
  5. ; URL: http://www.smalltickle.com
  6. ; 
  7. ; SIMPLE MATH
  8. ;
  9. ; The following macros mimic LISP syntax for some basic math operations
  10. ; in C-Kermit.  They save typing and make code readable a`la LISP.
  11. ;
  12. ; Usage Examples:
  13. ;
  14. ; C-Kermit> = VAR1 0            ; define VAR1 and assign it the value 0
  15. ; C-Kermit> += VAR1 3           ; equivalent VAR1 += 3 in C
  16. ; C-Kermit> = VAR2 4            ; define VAR2 and assign it the value 4
  17. ; C-Kermit> -= VAR2 2           ; equivalent VAR2 -= 2 in C
  18. ; C-Kermit> *= VAR1 VAR2        ; equivalent VAR1 *= VAR2 in C
  19. ; C-Kermit> /= VAR1 2           ; equivalent VAR1 /= 2 in C
  20. ; C-Kermit> * VAR1 9            ; equivalent VAR1 * 9 in C
  21. ; C-Kermit> / VAR1 VAR2         ; equivalent VAR1 / VAR2 in C
  22.  
  23. def - {
  24.         local \%t
  25.         if numeric \%2 assign \%t \%2
  26.         else assign \%t \m(\%2)
  27.         eval \%t \m(\%1) - \%t
  28.         echo \%t
  29. }
  30.  
  31. def + {
  32.         local \%t
  33.         if numeric \%2 assign \%t \%2
  34.         else assign \%t \m(\%2)
  35.         eval \%t \m(\%1) + \%t
  36.         echo \%t
  37. }
  38.  
  39. def = {
  40.         local \%t
  41.         if numeric \%2 assign \%t \%2
  42.         else assign \%t \m(\%2)
  43.         _assign \%1 \%t
  44.         echo \m(\%1)
  45. }
  46.  
  47. def += {
  48.         local \%t
  49.         if numeric \%2 assign \%t \%2
  50.         else assign \%t \m(\%2)
  51.         _eval \%1 \m(\%1) + \%t
  52.         echo \m(\%1)
  53. }
  54.  
  55. def -= {
  56.         local \%t
  57.         if numeric \%2 assign \%t \%2
  58.         else assign \%t \m(\%2)
  59.         _eval \%1 \m(\%1) - \%t
  60.         echo \m(\%1)
  61. }
  62.  
  63. def *= {
  64.         local \%t
  65.         if numeric \%2 assign \%t \%2
  66.         else assign \%t \m(\%2)
  67.         _eval \%1 \m(\%1) * \%t
  68.         echo \m(\%1)
  69. }
  70.  
  71. def /= {
  72.         local \%t
  73.         if numeric \%2 assign \%t \%2
  74.         else assign \%t \m(\%2)
  75.         _eval \%1 \m(\%1) / \%t
  76.         echo \m(\%1)
  77. }
  78.  
  79. def * {
  80.         local \%t
  81.         if numeric \%2 assign \%t \%2
  82.         else assign \%t \m(\%2)
  83.         eval \%t \m(\%1) * \%t
  84.         echo \%t
  85. }
  86.  
  87. def / {
  88.         local \%t
  89.         if numeric \%2 assign \%t \%2
  90.         else assign \%t \m(\%2)
  91.         _eval \%1 \m(\%1) / \%t
  92.         echo \%t
  93. }
  94.  
  95. ; End
  96.