File: multi

package info (click to toggle)
epic 3.004-17.1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 5,192 kB
  • ctags: 3,197
  • sloc: ansic: 40,843; makefile: 530; sh: 129; perl: 17
file content (23 lines) | stat: -rw-r--r-- 391 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
#
# Multi Script (C) 1993
# Meant to replace the Multi C program
# $contime() already replaces multi(3)
#
# Written by Jeremy Nelson (nelson@cs.uwp.edu)

alias do_varcase {
	@ blah = []
	fec ($*) x
	{
		if (rand(10) >= 5)
		{
			@ blah #= toupper($x)
		}
		{
			@ blah #= tolower($x)
		}
	}
	return $blah
}
alias varcase eval / $do_varcase($*)
alias varcasemsg eval /msg $0 $do_varcase($1-)