Ignore:
Timestamp:
May 6, 2011, 12:47:14 AM (11 years ago)
Author:
Sam Hocevar
Message:

data: remove \r and trailing spaces and tabs from all Lisp sources.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/data-mac/lisp/gates.lsp

    r102 r582  
    2727          ("aistate"    ai_state)
    2828          )
    29   (states "art/misc.spe" 
     29  (states "art/misc.spe"
    3030          (stopped "0_delay")
    3131          (on_state "1_delay")))
     
    3535  (funs (ai_fun or_ai)
    3636        (draw_fun dev_draw))
    37   (states "art/misc.spe" 
     37  (states "art/misc.spe"
    3838          (stopped "0_or_gate")
    3939          (on_state "1_or_gate")))
    40          
     40
    4141(def_char GATE_AND
    4242  (funs (ai_fun and_ai)
    4343        (draw_fun dev_draw))
    44   (states "art/misc.spe" 
     44  (states "art/misc.spe"
    4545          (stopped "0_and_gate")
    4646          (on_state "1_and_gate")))
    47          
    48          
     47
     48
    4949(def_char GATE_NOT
    5050  (funs (ai_fun not_ai)
    5151        (draw_fun dev_draw))
    52   (states "art/misc.spe" 
     52  (states "art/misc.spe"
    5353          (stopped "0_not_gate")
    5454          (on_state "1_not_gate")))
    5555
    56          
     56
    5757(def_char GATE_XOR
    5858  (funs (ai_fun xor_ai)
    5959        (draw_fun dev_draw))
    60   (states "art/misc.spe" 
     60  (states "art/misc.spe"
    6161          (stopped "0_xor_gate")
    6262          (on_state "1_xor_gate")))
     
    7272          (on_state "1_pulse")))
    7373
    74          
     74
    7575(def_char INDICATOR
    7676  (funs (ai_fun indicator_ai))
    77   (states "art/misc.spe" 
     77  (states "art/misc.spe"
    7878          (stopped "0_indicator")
    7979          (on_state "1_indicator")))
    80        
     80
    8181(defun indicator_ai ()
    8282  (if (> (total_objects) 0)
     
    111111        (or_check (- last_object 1))
    112112      T)))
    113  
     113
    114114(defun or_ai ()
    115115  (if (or_check (- (total_objects) 1))
     
    121121      (set_aistate 0))) T)
    122122
    123        
     123
    124124(defun and_check (last_object)
    125125  (if (< last_object 0)
     
    128128        nil
    129129      (and_check (- last_object 1)))))
    130    
    131  
     130
     131
    132132(defun and_ai ()
    133133  (if (and_check (- (total_objects) 1))
Note: See TracChangeset for help on using the changeset viewer.