File: comp.mac

package info (click to toggle)
linpac 0.16stable-0.1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 2,752 kB
  • ctags: 2,821
  • sloc: cpp: 17,146; sh: 6,959; ansic: 4,279; makefile: 223; perl: 101
file content (26 lines) | stat: -rw-r--r-- 431 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
:macro comp
;; Switch huffman compression on/off
if (%R == 1) result %(compress)

set CMD %(upcase %1)
if "%CMD" == "ON"
    if (%(compress) == "OFF") echo "//COMP 1"
    flush
    compress on
else 
if "%CMD" == "OFF"
    if (%(compress) == "ON") echo "//COMP 0"
    flush
    compress off
else 
if "%CMD" == "1"
    compress on
else 
if "%CMD" == "0" 
    compress off
else
    result "Usage: comp on|off"
endif
endif
endif
endif