Red Hat Linux
Click URL instructions:
Right-click on ad, choose "Copy Link", then paste here →
(This may not be possible with some types of ads)
You seem to have CSS turned off.
Please don't fill out this field.
Briefly describe the problem (required):
Please provide the ad click URL, if possible:
Sun Oct 15 15:24:26 PDT 2006 Duncan Coutts <duncan@...>
* Find out if signals are so called "action signals".
(I've never written any perl code before. I feel dirty.)
hunk ./tools/apiGen/Api.hs 21
-import Maybe (catMaybes)
+import Maybe (catMaybes, isJust)
hunk ./tools/apiGen/Api.hs 23
+import List (find)
hunk ./tools/apiGen/Api.hs 133
+ signal_action :: Bool,
hunk ./tools/apiGen/Api.hs 505
- ("cname", Xml.AttValue cname):when)
+ ("cname", Xml.AttValue cname):remainder)
hunk ./tools/apiGen/Api.hs 512
- signal_when = case when of
-  -> ""
- [("when", Xml.AttValue when)] -> Xml.verbatim when,
+ signal_when = head [ Xml.verbatim when
+ | ("when", Xml.AttValue when) <- remainder ] ++ "",
+ signal_action = isJust $ find ((== "action") . fst) remainder,
hunk ./tools/apiGen/gapi2xml.pl 947
+ $sig_elem->setAttribute('action', 'true') if ($spec =~ /_ACTION/);