将注释字符串转换为sicstus-prolog中的ASCII字符列表

当前我正在处理SICStus3和SICStus4之间的比较，但是我得到了一个问题，即SICStus4不会咨询任何注释字符串具有运输控件或制表符等的情况下面给出。将注释字符串转换为sicstus-prolog中的ASCII字符列表

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

来源

2016-06-21 Ayyappa Boligala

您使用的是什么版本的SICStus 3？ – false

SP4中没有SP3兼容解析器，因此上述内容无法通过任何内置功能读入SP4。一个想法是使用SP3解析它，然后以SP4能够理解的方式从SP3写出它。使用类似'read（X），write_canonical（X），write（'。'），nl'。（PS。上面的代码定义了一个带有两个参数的谓词'-''，你可能想将其命名为'flatten_cases'） –

3.12.10版本被使用 SICStus 3.12.10patch1（x86-linux-glibc2.3 ）：Tue Nov 10 10:39:10 CET 2009 Licensed to eds.com | ？ - –

除了常规空间以外的布局字符不能在引用原子或双引号列表中逐字地出现。这是ISO标准的一项要求，自SICStus 3.9.0调用SICStus 3以及选项--iso以来，已在SICStus中完全实施。由于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-21 10:35:57 false

SICStus 3.12.10patch1 （x86-linux-glibc2.3）：..我们在序言中是否有内置的函数来将字符串转换为ASCII字符列表。 –

@AyyappaBoligala：不清楚字符串对你意味着什么。 – false

将注释字符串转换为sicstus-prolog中的ASCII字符列表

回答

相关问题