- android - 多次调用 OnPrimaryClipChangedListener
- android - 无法更新 RecyclerView 中的 TextView 字段
- android.database.CursorIndexOutOfBoundsException : Index 0 requested, 光标大小为 0
- android - 使用 AppCompat 时,我们是否需要明确指定其 UI 组件(Spinner、EditText)颜色
我是common lisp新手,在用iolib写server的时候,发现telnet到server,然后断开telnet,server throw
未知类型说明符:挂断
当我打印 backtrace 时,我发现它出现在执行 make-server-line-echoer 中的 read-line 时。我在那里使用 handler-case,但没有用。有帮助吗?
这是我的代码:
(ql:quickload 'iolib)
(defpackage :com.server.test
(:use :sockets :iomux :common-lisp))
(in-package :com.server.test)
(defvar *server-event-base* nil)
(defun make-server-line-echoer (socket)
(lambda (fd event exception)
(handler-case
(progn
(let ((line (read-line socket)))
(format t "Read ~A~%" line)
(format socket "~A~%" line)
(finish-output socket)))
(socket-connection-reset-error ()
(format t "Connection reset by peer~%")
(close socket))
(hangup ()
(format t "Client close connection on write~%")
(close socket))
(end-of-file ()
(format t "Client closed connection on read~%")
(close socket)))))
(defun make-server-listener-handler (socket)
(lambda (fd event exception)
(let ((client (accept-connection socket :wait t)))
(when client
(multiple-value-bind (who port)
(remote-name client)
(format t "Accept a client from ~A:~A~%" who port)
(set-io-handler *server-event-base*
(socket-os-fd client)
:read
(make-server-line-echoer
client)))))))
(defun run-server (&key port)
(setf *server-event-base* (make-instance 'event-base))
(let ((listener (make-socket :connect :passive
:address-family :internet
:type :stream
:ipv6 nil
:external-format '(:utf-8 :eol-style :crlf))))
(bind-address listener +ipv4-unspecified+ :port port :reuse-addr t)
(listen-on listener :backlog 5)
(format t "Listening on socket bound to: ~A:~A~%"
(local-host listener)
(local-port listener))
(set-io-handler *server-event-base*
(socket-os-fd listener)
:read
(make-server-listener-handler listener))
(handler-case
(event-dispatch *server-event-base*)
(socket-connection-reset-error ()
(format t "Connection reset by peer~%"))
(hangup ()
(format t "Client close connection on write~%"))
(end-of-file ()
(format t "Client closed connection on read~%")))
(format t "Close connection now~%")))
(run-server :port 3000)
最佳答案
您必须使用
iolib.streams
,因为hangup
条件是在该包中定义的。
关于lisp - 读行时未捕获带有挂断条件的 iolib,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/14439629/
我正在努力处理查询的 WHERE 部分。查询本身包含一个基于两个表中都存在的 ID 的 LEFT JOIN。但是,我要求 where 语句仅返回其中一列中存在的最大单个结果。目前我返回连接中的所有值,
我有这个代码来改变文件系统的大小。问题是,即使满足 if 条件,它也不会进入 if 条件,而我根本没有检查 if 条件。它直接进入 else 条件。 运行代码后的结果 post-install-ray
假设我有一个包含 2 列的 Excel 表格:单元格 A1 到 A10 中的日期和 B1 到 B10 中的值。 我想对五月日期的所有值求和。我有3种可能性: {=SUM((MONTH(A1:A10)=
伪代码: SELECT * FROM 'table' WHERE ('date' row.date 或 ,我们在Stack Overflow上找到一个类似的问题: https://stackove
我有下面这行代码做一个简单的查询 if ($this->fulfilled) $criteria->addCondition('fulfilled ' . (($this->fulfilled
如果在数据库中找到用户输入的键,我将尝试显示“表”中的数据。目前我已将其设置为让数据库检查 key 是否存在,如下所示: //Select all from table if a key entry
关闭。此题需要details or clarity 。目前不接受答案。 想要改进这个问题吗?通过 editing this post 添加详细信息并澄清问题. 已关闭 5 年前。 Improve th
在MYSQL中可以吗 一共有三个表 任务(task_id、task_status、...) tasks_assigned_to(ta_id、task_id、user_id) task_suggeste
我想先根据用户的状态然后根据用户名来排序我的 sql 请求。该状态由 user_type 列设置: 1=活跃,2=不活跃,3=创始人。 我会使用此请求来执行此操作,但它不起作用,因为我想在“活跃”成员
下面两个函数中最专业的代码风格是什么? 如果函数变得更复杂和更大,例如有 20 个检查怎么办? 注意:每次检查后我都需要做一些事情,所以我不能将所有内容连接到一个 if 语句中,例如: if (veh
我在 C# 项目中使用 EntityFramework 6.1.3 和 SQL Server。我有两个查询,基本上应该执行相同的操作。 1. Exams.GroupBy(x=>x.SubjectID)
我试图在 case when 语句中放入两个条件,但我在 postgresql 中遇到语法错误 case when condition 1 and condition 2 then X else Y
我正在构建一个连接多个表的查询,一个表 prodRecipe 将包含某些行的数据,但不是全部,但是 tmp_inv1 将包含所有行的计数信息。问题是,tmp_inv1.count 取决于某个项目是否在
我有一个涉及 couples of rows which have a less-than-2-hours time-difference 的查询(~0.08333 天): SELECT mt1.*,
我有一个包含许多这样的 OR 条件的代码(工作正常)来检查其中一个值是否为空,然后我们抛出一条错误消息(所有这些都必须填写) } elsif ( !$params{'account'}
我有一个名为 spGetOrders 的存储过程,它接受一些参数:@startdate 和 @enddate。这将查询“订单”表。表中的一列称为“ClosedDate”。如果订单尚未关闭,则此列将保留
在代码中,注释部分是我需要解决的问题...有没有办法在 LINQ 中编写这样的查询?我需要这个,因为我需要根据状态进行排序。 var result = ( from contact in d
我正在尝试创建一个允许省略参数的存储过程,但如果提供了参数,则进行 AND 操作: CREATE PROCEDURE MyProcedure @LastName Varchar(30)
我正在寻找一种方法来过滤我的主机文件中的新 IP 地址。我创建了一个脚本,每次我用来自矩阵企业管理器的数据调用它时都会更新我的主机文件。它工作正常。但是我必须找到一个解决方案,只允许更新 10.XX.
所以我正在做一种 slider ,当它完全向下时隐藏向下按钮,反之亦然,当向上按钮隐藏时,我遇到了问题。 var amount = $('slide').attr('number'); $('span
我是一名优秀的程序员,十分优秀!