File: comp.mac

package info (click to toggle)
linpac 0.16pre3-3
  • links: PTS
  • area: main
  • in suites: woody
  • size: 2,328 kB
  • ctags: 2,582
  • sloc: cpp: 16,514; sh: 7,991; ansic: 4,061; makefile: 211; 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