File: edit_topic

package info (click to toggle)
epic5 3.0.3-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 5,328 kB
  • sloc: ansic: 75,810; makefile: 648; ruby: 227; python: 215; sh: 78; perl: 13
file content (26 lines) | stat: -rw-r--r-- 452 bytes parent folder | download | duplicates (5) 
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
 
if (word(2 $loadinfo()) != [pf]) { load -pf $word(1 $loadinfo()); return; };

#
# Felony asked me for this, so here you go! =)
#
alias edit_topic
{
	^local thetopic;
	^stack push on 333;
	^stack push on 332;
	^stack push on 331;
	^on ^333 * #;
	^on ^332 * {
		bless;
		@ thetopic = [$2-];
	};
	^on ^331 * #;
	^topic;
	^wait;
	^parsekey erase_line;
	^xtype -literal /topic $thetopic;
	stack pop on 331;
	stack pop on 332;
	stack pop on 333;
};
#hop'y2k