学习Common Lisp(使用GNU CLISP 2.43)..所以可能是一个noob错误.示例是'x和y之间的'打印素数'
(defun is-prime (n)
(if (< n 2) (return-from is-prime NIL))
(do ((i 2 (1+ i)))
((= i n) T)
(if (= (mod n i) 0)
(return NIL))))
(defun next-prime-after (n)
(do ((i (1+ n) (1+ i)))
((is-prime i) i)))
(defmacro do-primes-v2 ((var start end) &body body)
`(do ((,var (if (is-prime ,start)
,start
(next-prime-after ,start))
(next-prime-after ,var)))
((> ,var ,end))
,@body))
(defmacro do-primes-v3 ((var start end) &body body)
(let ((loop-start (gensym))
(loop-end (gensym)))
`(do ((,loop-start ,start)
(,loop-end …Run Code Online (Sandbox Code Playgroud) 我在通过事件点击发布事件时遇到了棘手的问题。我在 kCGHIDEventTap 上点击 NSSystemDefined,然后用新的事件替换该事件。我遇到的问题是,根据我发布事件的方式,它只能被某些应用程序看到。我的测试应用程序是 Opera、Firefox、Quicksilver 和 Xcode。以下是我在事件点击回调中尝试过的不同技术,以及结果。我期待每个应用程序的操作(“正确响应”);“系统提示音”表示没有绑定到那个键的系统声音。
创建一个新事件,并从回调中返回它。Opera:无响应/系统提示音,Firefox:无响应/系统提示音,Quicksilver:正确响应,Xcode:无响应/系统提示音
创建一个新事件,使用 CGEventPost 发布到 kCGSessionEventTap,返回 null。Opera:无响应/系统提示音,Firefox:无响应/系统提示音,Quicksilver:正确响应,Xcode:无响应/系统提示音
创建一个新事件,使用 CGEventPost 发布到 kCGAnnotatedSessionEventTap,返回 null。Opera:正确响应,Firefox:正确响应,Quicksilver:无响应/系统提示音,Xcode:无响应/系统提示音
创建一个新事件,使用 CGEventTapPostEvent 发布,返回 null。Opera:无响应/系统提示音,Firefox:无响应/系统提示音,Quicksilver:正确响应,Xcode:无响应/系统提示音
创建一个新事件,使用 CGEventPost 发布到 kCGSessionEventTap,并返回新事件。Opera:无响应/系统提示音,Firefox:无响应/系统提示音,Quicksilver:正确响应,Xcode:无响应/系统提示音
创建一个新事件,使用 CGEventPost 发布到 kCGAnnotatedSessionEventTap,并返回新事件。Opera:正确响应和系统哔声,Firefox:正确响应和系统哔声,Quicksilver:正确响应和系统哔声,Xcode:无响应/双系统哔声
创建一个新事件,使用 CGEventTapPostEvent 发布,并返回新事件。Opera:无响应/系统提示音,Firefox:无响应/系统提示音,Quicksilver:正确响应,Xcode:无响应/系统提示音
(6) 是最好的,但用户抱怨正确响应时系统会发出额外的哔哔声,我猜这来自事件的双重发布。我不确定其他组合可以尝试,或者其他地方可以看。任何人都可以提供任何指导吗?有什么方法可以同时从我的回调中返回事件并发布到带注释的水龙头而不同时执行这两项操作?
抱歉问了这么长的问题;我一直在做很多实验。
提前致谢
更新:这是我用来创建事件点击的代码:
CFMachPortRef eventTap;
eventTap = CGEventTapCreate(kCGHIDEventTap, kCGHeadInsertEventTap, 0,CGEventMaskBit(NX_SYSDEFINED) | (1 << kCGEventKeyDown) | (1 << kCGEventKeyUp), myCGEventCallback, (void *)hidEventQueue);
Run Code Online (Sandbox Code Playgroud) events macos-carbon core-graphics quartz-graphics cgeventtap
任何人都可以指向我定义Active Directory中LDAP过滤字符串的最大允许长度的资源吗?
我如何生成一个必须在两个其他给定日期之间的随机日期?
函数的签名应该是这样的:
random_date("1/1/2008 1:30 PM", "1/1/2009 4:50 AM", 0.34)
^ ^ ^
date generated has date generated has a random number
to be after this to be before this
Run Code Online (Sandbox Code Playgroud)
并会返回如下日期: 2/4/2008 7:20 PM
看过NInject如何做到这一点,AutoFac可以做到这一点我试图弄清楚如何使用Castle Windsor将依赖注入MVC ActionFilters
目前我正在使用一个丑陋的静态IoC助手类来解析构造函数代码中的依赖关系,如下所示:
public class MyFilterAttribute : ActionFilterAttribute
{
private readonly IUserRepository _userRepository;
public MyFilterAttribute() : this(IoC.Resolve<IUserRepository>()) { }
public MyFilterAttribute(IUserRepository userRepository)
{
_userRepository = userRepository;
}
}
Run Code Online (Sandbox Code Playgroud)
我想从我的过滤器中删除静态反模式IoC的东西.
任何暗示我将如何与温莎城堡一起做这件事?
不,改变DI框架不是一种选择.
我在一家小型单一产品的客户公司工作,该公司正在向一家产品,多客户公司过渡.尽管我们只有一个客户,但我们有不同的项目,交付日期不同,但是对于每个项目,我们都能够提供最新的月度发布,我们已将其保存在单独的代码分支中,以防我们'必须为该特定版本提供错误修复.
最近,我们收购了许多新客户并出现了一个新问题:总部通常会解决(不破坏功能)许多不同的客户特定问题,并不是所有客户都希望所有的变化,而是宁愿选择樱桃 - 修复和功能.
您是否有过这种情况的经验,以及如何在不受测试和工作超负荷的情况下处理它(我们的每月发布测试需要大约3天的计算机时间)?和版本控制明智,你如何管理(我猜cvs最终将要去......)?
我们在Windows Server 2003上托管WCF Web服务.该服务器只有2个内部IP.我们希望从外部公开服务.这是通过将外部IP映射到服务的防火墙完成的.
因此,我需要修改服务以显示内部链接的外部IP.这不是问题,因为它只能在外部使用.
更改IIS中的主机标头值会从IIS发出"错误请求(无效主机名)"响应.我还在web.config中的端点条目中添加了一个"地址"值...但它只是指向内部机器名称.有任何想法吗?
编辑:我可以验证IIS7具有完全相同的行为.地址不起作用.不同的主机名给出了无效的主机名错误.有没有办法提出不同的(虚构的)IP?:/
EDIT2:
<system.serviceModel>
<bindings>
<basicHttpBinding>
<binding name="BasicAnonymous">
<security mode="None"/>
</binding>
</basicHttpBinding>
</bindings>
<behaviors>
<serviceBehaviors>
<behavior name="Extended">
<serviceMetadata httpGetEnabled="true"/>
<dataContractSerializer maxItemsInObjectGraph="2147483646"/>
</behavior>
</serviceBehaviors>
</behaviors>
<diagnostics>
<messageLogging logEntireMessage="true" logMalformedMessages="false" logMessagesAtServiceLevel="false" logMessagesAtTransportLevel="true" maxMessagesToLog="3000"/>
</diagnostics>
<services>
<service behaviorConfiguration="Extended" name="AnCWCFWebService.ProductInfoProvider">
<endpoint address="" binding="basicHttpBinding" name="ASMX" bindingConfiguration="BasicAnonymous" contract="AnCWCFWebService.Interfaces.IProductInfoProvider"/>
</service>
</services>
</system.serviceModel>
Run Code Online (Sandbox Code Playgroud) asp.net-mvc ×1
cgeventtap ×1
cocoa-touch ×1
common-lisp ×1
datetime ×1
delphi ×1
events ×1
gtk2hs ×1
haskell ×1
iis-6 ×1
ldap ×1
lisp ×1
macos-carbon ×1
networking ×1
python ×1
random ×1
sha ×1
wcf ×1
wcf-binding ×1
wxhaskell ×1