将注释字符串转换为Sicstus-Prog中的ASCII字符列表



目前,我正在研究sicstus3和sicstus4之间的比较,但是我遇到的一个问题是sicstus4不会咨询任何情况,即注释字符串具有马车控件或选项卡字符等,如下所示。<<<<<<<<<。/p>

下面给出的示例案例。它有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字符列表。

布局字符以外的布局字符实际上不能在引用的原子或双引号列表中发生。这是ISO标准的要求,自3.9.0以自调用 --iso调用sicstus 3以来,已在sicstus中完全实现。由于仅支持Sicstus 4 ISO语法。

您需要相应地插入nt。所以而不是

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

现在写

log('Response:ntyes').

或,为了更好地使用延续逃脱顺序:

log('Response:n
tyes').

请注意,使用文字标签和文字新线是非常有问题的。在打印输出中,您看不到它们!想想'A nB'不会显示尾随空间或尾巴。

但是还有许多其他情况,例如:制作程序文本的屏幕截图,使用3270终端模拟器制作程序文本的照片并复制输出。过去,打孔卡。读取文件时的文本模式(最初是由打孔卡激励的)。类似的参数适用于来自打字机的制表符,并具有手动设置的选项卡。

然后在上面,因此很难输入选项卡。浏览器拒绝键入它(非常明智),如果您复制它,则将其呈现为空格。


如果我愿意,还有另一个问题。宁愿编写 flatten_case的名称 CC_6。

最新更新