0

目前我正在研究 SICStus3 和 SICStus4 之间的比较,但我遇到了一个问题,即 SICStus4 不会参考注释字符串具有回车控件或制表符等的任何情况,如下所示。

下面给出的示例案例。它有 3 个带逗号分隔符的参数。

case('pr_ua_sfochi',"
Response:
answer(amount(2370.09,usd),[[01AUG06SFO UA CHI Q9.30 1085.58FUA2SFS UA SFO Q9.30 1085.58FUA2SFS NUC2189.76END ROE1.0 XT USD 180.33 ZPSFOCHI 164.23US6.60ZP5.00AY XF4.50SFO4.5]],amount(2189.76,usd),amount(2189.76,usd),amount(180.33,usd),[[fua2sfs,fua2sfs]],amount(6.6,usd),amount(4.5,usd),amount(0.0,usd),amount(18.6,usd),lasttktdate([20061002]),lastdateafterres(200712282]),[[fic_ticketinfo(fare(fua2sfs),fic([]),nvb([]),nva([]),tktiss([]),penalty([]),tktendorsement([]),tourinfo([]),infomsgs([])),fic_ticketinfo(fare(fua2sfs),fic([]),nvb([]),nva([]),tktiss([]),penalty([]),tktendorsement([]),tourinfo([]),infomsgs([]))]],<>,<>,cat35(cat35info([])))
.
02/20/2006 17:05:10 Transaction 35 served by static.static.server1 (usclsefat002:7551) running E*Fare version $Name: build-2006-02-19-1900 $

",price(pnr(
        user('atl','1y',<>,<>,dept(<>,'0005300'),<>,<>,<>),
        [
                passenger(adt,1,[ptconly(n)])
        ],
        [

segment(1,sfo,chi,'ua','<>','100',20140901,0800,f,20140901,2100,'737',res(20140628,1316),hk,pf2(n,[],[],n),<>,flags(no,no,no,no,no,no,no,no,no)),

segment(2,chi,sfo,'ua','<>','101',20140906,1000,f,20140906,1400,'737',res(20140628,1316),hk,pf2(n,[],[],n),<>,flags(no,no,no,no,no,no,no,no,no))
        ]),[
                rebook(n),
                ticket(20140301,131659),
                dbaccess(20140301,131659),
                platingcarrier('ua'),
                tax_exempt([]),
                trapparm("trap:ffil"),
                city(y)
        ])).

以下谓词将在上述情况下删除评论部分。

flatten-cases :-
        getmessage(M1),
        write_flattened_case(M1),
        flatten-cases.
flatten-cases.
write_flattened_case(M1):-
        M1 = case(Case,_Comment,Entry),!,
        M2 = case(Case,Entry),
        writeq(M2),write('.'),nl.
getmessage(M) :-
        read(M),
        !,
        M \== end_of_file.
:- flatten-cases.

现在我的要求是将注释字符串转换为 ASCII 字符列表。

4

1 回答 1

2

常规空格以外的布局字符不能按字面意思出现在带引号的原子或双引号列表中。这是 ISO 标准的要求,自 3.9.0 起在 SICStus 中完全实现,并使用选项调用 SICStus 3 --iso。由于 SICStus 4 仅支持 ISO 语法。

您需要相应地\n插入\t。所以而不是

log('Response:
    yes').     % BAD!

现在写

log('Response:\n\tyes').

或者,为了使其更易读,请使用连续转义序列:

log('Response:\n\
\tyes').

请注意,使用文字制表符和文字换行符是很成问题的。在打印输出中您看不到它们!想想'A \nB'哪个不会显示尾随空格或尾随制表符。

但是还有很多其他的情况,比如:程序文本的截图,程序文本的照片,使用3270终端仿真器和复制输出。过去,打卡。读取文件时的文本模式(最初是由穿孔卡片驱动的)。类似的论点也适用于来自带有手动可设置制表位的打字机的制表机。

然后在 SO 上输入 TAB 非常困难。浏览器拒绝输入它(非常明智),如果你把它复制进去,你就会把它呈现为空格。


如果我这样做,还有另一个问题。名字flatten-case应该写flatten_case

于 2016-06-21T10:35:57.527 回答