1% ===================================================================
    2% File 'logicmoo_util_strings.pl'
    3% Purpose: Common Logicmoo library Functions for Strings
    4% Maintainers: Douglas Miles/Annie Ogborn/Kino Coursey
    5% Contact: $Author: logicmoo@gmail.com;
    6% Version: 'logicmoo_util_strings.pl' 1.0.0
    7% Revision:  $Revision: 1.7 $
    8% Revised At:   $Date: 2021/07/11 21:57:28 $
    9% ===================================================================
   10
   11% File: /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/util/logicmoo_util_strings.pl
   12
   13:- module(logicmoo_util_strings,
   14          [ addSpaceBeforeSym/2,
   15            all_upper_atom/1,
   16            isSlot/1,
   17            any_to_atom/2,
   18            any_to_string/2,
   19            any_to_string1/2,
   20            any_to_string_or_var/2,
   21            append_ci/3,
   22            append_ci0/3,
   23            any_to_charlist/2,
   24            as_atom/2,
   25            as_nc_str/2,
   26            atomSplit/2,
   27            atomSplit/3,
   28            get_text_restore_pred/2,
   29            atomSplit2_unused/3,
   30            atomSplitEasy_unused/2,
   31            atom_contains/2,
   32            atom_subst/4,
   33            atomic_concat/4,
   34            atomic_list_concat_catch/3,
   35            atomic_list_concat_safe/2,
   36            atomic_list_concat_safe/3,
   37            atomsSameCI/2,
   38            atoms_of/2,
   39            both_empty/2,
   40            breaked_codes/2,
   41            camelSplitters/1,
   42            capitalized/1,
   43            catch_read_term_from_atom/3,
   44            char_type_this/2,
   45            clean_codes/2,
   46            clean_out_atom/2,
   47            concat_atom_safe/2,
   48            concat_atom_safe/3,
   49            convert_members/3,
   50            convert_to_string/2,
   51            convert_to_cycString/2,
   52            convert_to_s_string/2,
   53            convert_to_sel_string/5,
   54            is_s_string/1,
   55            delistify_single_element/2,
   56            ctype_continue/3,
   57            ctype_switch/2,
   58            ctype_switcher/1,
   59            destringify/2,
   60            dehyphenize_const/2,
   61            divide_list/3,
   62            either_empty/2,
   63            either_starts_with_icase/2,
   64            empty_str/1,
   65            empty_string/1,
   66            ends_with_icase/2,
   67            equals_icase/2,
   68            escapeCodes/4,
   69            escapeString/2,
   70            first_char_to_lower/2,
   71            first_char_to_upper/2,
   72            hide_char_type/1,
   73            interleave/3,
   74            isWhitespace/1,
   75            is_charlist/1,
   76            is_codelist/1,
   77            is_ending/1,
   78            is_ftString2/1,
   79            is_simple_split/1,
   80            list_replace/4,
   81            longest_string/3,
   82            ltrim/2,
   83            map_tree_to_list/3,
   84          must_assign/1,
   85          must_assign/2,
   86          any_to_codelist/2,
   87            member_ci/2,
   88            merge_vars/3,
   89            must_nonvar/1,
   90            noCaseChange/1,
   91            non_empty/1,
   92            ommitable/1,
   93            quoteAtomString/2,
   94            read_stream_to_arglist/2,
   95            rejoined/3,
   96            remove_predupes/2,
   97            replace_in_string/3,
   98            replace_in_string/4,
   99            replace_in_string/5,
  100            replace_periods/2,
  101            replace_periods_string_list/2,
  102            sort_by_strlen/2,
  103            starts_or_ends_with_icase/2,
  104            convert_to_string_list/2,
  105            convert_to_atoms_list/2,
  106
  107            starts_with_icase/2,
  108            str_contains_all/2,
  109            str_contains_all0/2,
  110            stringToCodelist/2,
  111            stringToCodelist2/2,
  112            stringToList/2,
  113            string_ci/2,
  114            string_dedupe/2,
  115            string_equal_ci/2,
  116            string_equal_ci0/2,
  117            string_equal_ci1/2,
  118            string_to_atom_safe/2,
  119            text_to_string_safe/2,
  120            toCamelcase/2,
  121            toCase/3,
  122            toCaseSplit/4,
  123            toLowercase/2,
  124            toPropercase/2,
  125            toUppercase/2,
  126            to_case_breaks/2,
  127            to_case_break_atoms/2,
  128            to_case_breaks/5,
  129            to_first_break/2,
  130            to_first_break/5,
  131            to_first_break_w/6,
  132            to_list_of_sents/2,
  133            to_titlecase/2,
  134            to_word_list/2,
  135            unused_to_word_list_0/2,
  136            unused_to_word_list_2/2,
  137            trim/2,
  138            trim2/2,
  139            unCamelcase/2,
  140            unquoteAtom/2,
  141            vars_to_ucase/2,
  142            vars_to_ucase_0/2
  143          ]).

  149% autoloading user:portray_clause_pi/2 from /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/util/logicmoo_util_first
  150:- multifile
  151        double_quotes_was_strings/1,
  152        %string_predicate/1,
  153        to_string_hook/3.  154:- meta_predicate
  155        map_tree_to_list(2, ?, ?),
  156        toCase(2, ?, ?),
  157        toCaseSplit(?, 2, ?, ?).  158:- module_transparent % (module_transparent) :-
  159        addSpaceBeforeSym/2,
  160        all_upper_atom/1,
  161        any_to_atom/2,
  162        any_to_string/2,
  163        any_to_string1/2,
  164        any_to_string_or_var/2,
  165        append_ci/3,
  166        append_ci0/3,
  167        as_atom/2,
  168        as_nc_str/2,
  169        atomSplit/2,
  170        atomSplit/3,
  171        atomSplit2_unused/3,
  172        atomSplitEasy_unused/2,
  173        atom_contains/2,
  174        atom_subst/4,
  175        atomic_concat/4,
  176        atomic_list_concat_catch/3,
  177        atomic_list_concat_safe/2,
  178        atomic_list_concat_safe/3,
  179        atomsSameCI/2,
  180        atoms_of/2,
  181        both_empty/2,
  182        breaked_codes/2,
  183        camelSplitters/1,
  184        capitalized/1,
  185        catch_read_term_from_atom/3,
  186        char_type_this/2,
  187        clean_codes/2,
  188        clean_out_atom/2,
  189        concat_atom_safe/2,
  190        concat_atom_safe/3,
  191        convert_to_string/2,
  192        ctype_continue/3,
  193        ctype_switch/2,
  194        ctype_switcher/1,
  195        destringify/2,
  196        divide_list/3,
  197        double_quotes_was_strings/1,
  198        either_empty/2,
  199        either_starts_with_icase/2,
  200        empty_str/1,
  201        empty_string/1,
  202        ends_with_icase/2,
  203        equals_icase/2,
  204        escapeCodes/4,
  205        escapeString/2,
  206        first_char_to_lower/2,
  207        first_char_to_upper/2,
  208        hide_char_type/1,
  209        interleave/3,
  210        isWhitespace/1,
  211        is_charlist/1,
  212        is_codelist/1,
  213        is_ending/1,
  214        is_ftString2/1,
  215        is_simple_split/1,
  216        list_replace/4,
  217        longest_string/3,
  218        ltrim/2,
  219        member_ci/2,
  220        merge_vars/3,
  221        must_nonvar/1,
  222        noCaseChange/1,
  223        non_empty/1,
  224        ommitable/1,
  225        quoteAtomString/2,
  226        read_stream_to_arglist/2,
  227        rejoined/3,
  228        remove_predupes/2,
  229        replace_in_string/4,
  230        replace_in_string/5,
  231        replace_periods/2,
  232        replace_periods_string_list/2,
  233        sort_by_strlen/2,
  234        splt_words/3,
  235        splt_words_0/3,
  236        splt_words_0_atom/3,
  237        starts_or_ends_with_icase/2,
  238        starts_with_icase/2,
  239        str_contains_all/2,
  240        str_contains_all0/2,
  241        stringToCodelist/2,
  242        stringToCodelist2/2,
  243        stringToList/2,
  244        string_ci/2,
  245        string_dedupe/2,
  246        string_equal_ci/2,
  247        string_equal_ci0/2,
  248        string_equal_ci1/2,
  249        string_to_atom_safe/2,
  250        text_to_string_safe/2,
  251        toCamelcase/2,
  252        toLowercase/2,
  253        toPropercase/2,
  254        toUppercase/2,
  255        to_case_breaks/2,
  256        to_case_breaks/5,
  257        to_first_break/2,
  258        to_first_break/5,
  259        to_first_break_w/6,
  260        to_list_of_sents/2,
  261        to_string_hook/3,
  262        to_titlecase/2,
  263        to_word_list/2,
  264        unused_to_word_list_0/2,
  265        unused_to_word_list_2/2,
  266        trim/2,
  267        trim2/2,
  268        unCamelcase/2,
  269        unquoteAtom/2,
  270        vars_to_ucase/2,
  271        vars_to_ucase_0/2.  272
  273:- dynamic % (dynamic) :-
  274
  275        double_quotes_was_strings/1,
  276        to_string_hook/3.  277
  278
  279%:- user:use_module(library('file_scope')).
  280
  281
  282:- meta_predicate toCase(2,?,?).  283:- meta_predicate toCaseSplit(?,2,?,?).  284
  285:- set_module(class(library)).  286:- autoload(library(memfile),[memory_file_to_atom/2,atom_to_memory_file/2,open_memory_file/3]).  287
  288% % % OFF :- system:use_module(library(apply)).
  289% % % OFF :- system:use_module(library(check)).
  290% % % OFF :- system:use_module(library(must_sanity)).
  291% % % OFF :- use_module(library(check),[check:string_predicate/1]).
  292
  293% this is a backwards compatablity block for SWI-Prolog 6.6.6
  294:- multifile(double_quotes_was_strings/1).  295:- dynamic(double_quotes_was_strings/1).  296:- current_prolog_flag(double_quotes,WAS),asserta(double_quotes_was_strings(WAS)).  297:- retract(double_quotes_was_strings(WAS)),set_prolog_flag(double_quotes,WAS).  298:- current_prolog_flag(double_quotes,WAS),asserta(double_quotes_was_strings(WAS)).  299:- set_prolog_flag(double_quotes,string).  300
  301% :-import(must/1).
  302
  303
  304atom_concat_or_rtrace(X,Y,Z):- tracing->atom_concat(X,Y,Z);catch(atom_concat(X,Y,Z),_,break).
  305:- export(atom_concat_or_rtrace/3).  306%:- reexport(library(logicmoo/pretty_clauses)).
  307
  308get_text_restore_pred(Text,any_to_string):- string(Text),!.
  309get_text_restore_pred(Text, any_to_atom):- atom(Text),!.
  310get_text_restore_pred(Text,any_to_charlist):- is_charlist(Text),!.
  311get_text_restore_pred(Text,any_to_codelist):- is_codelist(Text),!.
  312get_text_restore_pred(Text,any_to_codelist):- Text==[],!.
  313get_text_restore_pred(_,any_to_string).
  314
  315%=

 any_to_string(?Atom, ?String) is semidet

Any Converted To String.

  321any_to_string(Atom,String):-   any_to_string1(Atom,StringS),!,StringS=String.
  322% any_to_string(Atom,String):- with_err_to_pred(nop, (must(any_to_string1(Atom,StringS)),!,must(StringS=String))),!.
  323
  324maybe_keep_postion(Stream,Goal):-
  325  setup_call_cleanup(
  326    stream_property(Stream,position(Pos)),
  327    Goal,
  328    (stream_property(Stream,reposition(true))->set_stream_position(Stream,Pos);true)).
  329
  330%=

 any_to_string1(?Atom, ?String) is semidet

Any Converted To String Secondary Helper.

  336any_to_string1(Atom,String):- atomic(Atom),is_stream(Stream),
  337 stream_property(Stream,reposition(true)),!,
  338 maybe_keep_postion(Stream,read_stream_to_codes(Stream,Codes)),!,any_to_string1(Codes,String).
  339any_to_string1(Atom,String):- atomic(Atom),is_stream(Stream), maybe_keep_postion(Stream,read_stream_to_codes(Stream,Codes)),!,any_to_string1(Codes,String).
  340any_to_string1(Atom,String):- var(Atom),show_call((term_string(Atom,String))),!.
  341any_to_string1(Atom,String):- var(Atom),!,=(Atom,String).
  342any_to_string1(Atom,String):- string(Atom),!,Atom=String.
  343any_to_string1(Atom,String):- is_s_string(Atom),!,convert_to_string(Atom,String).
  344%any_to_string1(_,_):- stack_depth(X),X>2000,!,sanity(fail),fail.
  345any_to_string1(s(Atom),String):- !, any_to_string1(Atom,String).
  346% any_to_string1(Atom,String):- is_string(Atom),!,text_to_string(String).
  347
  348any_to_string1(Atom,String):- number(Atom),!,number_string(Atom,String).
  349any_to_string1(Atom,String):- atomic(Atom),!,convert_to_string(Atom,String),!.
  350any_to_string1(Empty,""):- empty_str(Empty),!.
  351
  352any_to_string1(string(Atom),String):- !, any_to_string1(Atom,String).
  353any_to_string1(atom(Atom),String):- !, any_to_string1(Atom,String).
  354any_to_string1(text(Atom),String):- !, any_to_string1(Atom,String).
  355any_to_string1(fmt(Fmt,Args),String):-!,must(sformat(String,Fmt,Args)).
  356any_to_string1(txtFormatFn(Fmt,Args),String):-!,must(sformat(String,Fmt,Args)).
  357% any_to_string1([Atom],String):-  !, any_to_string1(Atom,String).
  358any_to_string1(List,String):- text_to_string_safe(List,String),!.
  359any_to_string1(List,String):- is_list(List),!,must_maplist(any_to_string1,List,StringList),
  360    must(atomics_to_string(StringList, ' ', String)),!.
  361any_to_string1(List,String):- on_x_debug(format(string(String),'~w',[List])).
  362
  363
  364/*
  365any_to_string1(Term,String):- show_call(on_x_debug(term_string(Term,String))).
  366any_to_string1(List,String):- on_x_debug(format(string(String),'~p',[List])).
  367any_to_string1(List,String):- format(string(String),'~q',[List]).
  368*/
  369/*
  370list_to_atomics_list0(Var,A):-var(Var),!,any_to_string(Var,A),!.
  371list_to_atomics_list0([E|EnglishF],[A|EnglishA]):-
  372   any_to_string(E,A),
  373   list_to_atomics_list0(EnglishF,EnglishA),!.
  374list_to_atomics_list0([],[]):-!.
  375*/
  376
  377maplist_atom_string(M,O):- notrace(catch(maplist(any_to_string,M,O),_,fail)).
  378
  379text_to_uq_atom(A,InOut):- (atom_concat('"',R,A),atom_concat(Sub,'"',R))->Sub=InOut;A=InOut.
  380
  381will_mws(Wff0):- atomic(Wff0),atom_length(Wff0,L),L>2,atom_contains(Wff0,' ').
  382
  383is_s_string(I):-compound(I),functor(I,s,_),!.
  384
  385:- thread_local(t_l:no_cycstrings/0).  386
  387convert_to_cycString(I,O):- t_l:no_cycstrings,!,any_to_string(I,O).
  388%convert_to_cycString(I,O):- is_s_string(I),!,O=I.
  389convert_to_cycString(I,O):- convert_to_string_list(I,M),delistify_single_element(M,O).
  390
  391
  392convert_to_s_string(I,O):- convert_to_sel_string(fail,=,sl,I,O).
  393
  394/*
  395   "Hi there"
  396   s("Hi",there).
  397   s('Hi',there).
  398   s(['Hi',there]).
  399
  400
  401   convert_to_sel_string(=,a,=,"Hi there",O).
  402   [hi,there]
  403   convert_to_sel_string(=,a,=,["Hi"],O).
  404
  405   convert_to_sel_string(fail,=,s,"Hi there",O).
  406
  407   s(hi).
  408   s([hi]).
  409
  410   s(hi,there).
  411   s([hi,there]).
  412
  413
  414*/
  415
  416convert_to_sel_string(_,_,_,I,O):- notrace(is_ftVar(I)),!,O=I.
  417convert_to_sel_string(S,a,L,I,O):- !, quietly(must((convert_to_atoms_list(I,M),must_maplist(any_to_atom,M,MM),to_sel_string(S,a,L,MM,O)))),!.
  418convert_to_sel_string(S,s,L,I,O):- !, quietly(must((convert_to_string_list(I,M),must_maplist(any_to_string,M,MM),to_sel_string(S,s,L,MM,O)))),!.
  419convert_to_sel_string(S,E,L,I,O):- quietly((convert_to_atoms_list(I,SL),must_maplist(E,SL,M),to_sel_string(S,E,L,M,O))),!.
  420
  421
  422to_sel_1e_string(sf,M,s(O)):-!,M=O.
  423to_sel_1e_string(l,M,[O]):-!,M=O.
  424to_sel_1e_string(sl,M,s([O])):-!,M=O.
  425to_sel_1e_string(=,M,O):-!,M=O.
  426to_sel_1e_string(U,M,O):- must(call(call,U,M,O)).
  427
  428to_sel_string(S,a,_,[],O):- !,to_sel_1e_string(S,'',O),!.
  429to_sel_string(S,s,_,[],O):- !,to_sel_1e_string(S,"",O),!.
  430to_sel_string(S,_,_,[],O):- S\==fail,!, M=[], to_sel_1e_string(S,M,O).
  431to_sel_string(S,_,_,[M],O):- S\==fail,!, to_sel_1e_string(S,M,O).
  432to_sel_string(_,_,sf,M,O):-!,must((O=..[s|M])).
  433to_sel_string(_,_,l,M,O):- !,M=O.
  434to_sel_string(_,_,sl,M,s(O)):- !,M=O.
  435to_sel_string(_,_,L,M,O):- must(call(call,L,M,O)).
  436
  437
  438convert_to_string(I,O):- string(I),!,O=I.
  439convert_to_string(I,O):- catch((convert_to_atoms_list(I,M),joined_string(M,O)),_,fail),!.
  440convert_to_string(I,O):- sformat(O,'~w',[I]).
  441
  442
  443convert_to_string_list(I,O):-string(I),(atom_contains(I,'\n');atom_contains(I,'*')),!,O=[I].
  444convert_to_string_list(I,O):-convert_to_atoms_list(I,M),maplist_atom_string(M,O),!.
  445
  446convert_to_atoms_list(A,B):- is_ftVar(A),!,A=B.
  447convert_to_atoms_list(I,O):- is_s_string(I),I=..[s,E|M],!,must_maplist(convert_to_string,[E|M],O),!.
  448convert_to_atoms_list([A|AA],B):- []==AA,!,convert_to_atoms_list(A,B),!.
  449convert_to_atoms_list(A,B):- convert_to_string_m(A,M),!,listify(M,B),!.
  450convert_to_atoms_list(A,B):- listify(A,B),nop(dmsg(convert_to_atoms_list(A,B))),!.
  451
  452convert_to_string_m([A|AA],O):- []==AA,!,convert_to_string_m(A,B),break_string(B,O),!.
  453convert_to_string_m(A,O):- catch(text_to_string(A,M),_,fail),!,break_string(M,O),!.
  454convert_to_string_m(A,O):- is_list(A),catch(atomics_to_string(A," ",B),_,fail),!,break_string(B,O),!.
  455convert_to_string_m(A,B):- catch(atom_length(A,L),_,fail),convert_to_atoms_by_len(A,L,B),!.
  456convert_to_string_m(A,B):- break_string(A,B),!.
  457convert_to_string_m(M,M).
  458
  459% >-  do_renames(textCached([']'], [txt, s(a,b,c)]),O).
  460
  461
  462break_string(A,O):- is_ftVar(A),!,A=O.
  463break_string(A,O):- is_list(A),!,A=O.
  464break_string(A,O):- atomic(A),catch(atomics_to_string(O," ",A),_,fail),!.
  465break_string(A,O):- atomic(A),catch(atomic_list_concat(O," ",A),_,fail),!.
  466break_string(A,O):- catch(atom_length(A,L),_,fail),convert_to_atoms_by_len(A,L,O),!.
  467break_string(A,O):- listify(A,O),!.
  468
  469joined_string(A,O):- is_ftVar(A),!,A=O.
  470joined_string(A,O):- string(A),!,A=O.
  471joined_string(A,O):- atomic(A),!,A=O.
  472joined_string(I,O):- is_s_string(I),I=..[s,E|M],!,joined_string([E|M],B),O=s(B),!.
  473joined_string(A,O):- sanity(is_list(A)),catch(atomics_to_string(A," ",O),_,fail),!.
  474joined_string(A,O):- sanity(is_list(A)),catch(atomic_list_concat(A," ",O),_,fail),!.
  475
  476
  477is_upcased(U):- \+ downcase_atom(U,U), upcase_atom(U,U).
  478
  479
  480is_guid_text(A):-atom_length(A,36),atomic_list_concat(List,'-',A),List=[L8,_,_,_,L12],atom_length(L8,8),atom_length(L12,12),!.
  481
  482convert_to_atoms_by_len(_,0,['']):-!.
  483convert_to_atoms_by_len(A,L,[A]):- L<3,!.
  484convert_to_atoms_by_len(A,36,[B]):- is_guid_text(A),string_to_atom(A,B),!.
  485convert_to_atoms_by_len(A,L,B):- tokenize_atom(A,T),!,convert_to_atoms_by_len(A,L,T,B).
  486
  487convert_to_atoms_by_len(A,_,[],[A]):-!.
  488convert_to_atoms_by_len(_,_,[A],[A]):-!.
  489% convert_to_atoms_by_len(A,L,B,B):- L>3, \+ atom_contains(A,' '), \+ atom_contains(A,"'"),!.
  490convert_to_atoms_by_len(_,_,List,M):-convert_to_atoms_list_list(List,M).
  491
  492% convert_to_atoms_list_list(T,P)
  493convert_to_atoms_list_list([],[]):-!.
  494convert_to_atoms_list_list([T,J,P|List],B):-arg(_,v('_','-'),J),is_upcased(T),is_upcased(P),atomic_list_concat([T,P],J,TP),!,convert_to_atoms_list_list([TP|List],B).
  495convert_to_atoms_list_list(['\'',T|List],B):-member(T,['t','s','m','re','ll','d','ve']),atom_concat('\'',T,TP),!,convert_to_atoms_list_list([TP|List],B).
  496convert_to_atoms_list_list([T,P|List],B):-member(T,['#','~','#$']),atom_concat(T,P,TP),!,convert_to_atoms_list_list([TP|List],B).
  497convert_to_atoms_list_list([P|List],[P|BList]):-convert_to_atoms_list_list(List,BList).
  498convert_to_atoms_list_list([P|List],[P|BList]):-convert_to_atoms_list_list(List,BList).
  499
  500delistify_single_element([M],M):-sanity(nonvar(M)),!.
  501delistify_single_element(M,M).
  502
  503
  504
  505dehyphenize_const(PM,PMO):- atom(PM), atomic_list_concat(List,'-',PM),dehyphenize_const(PM,List,PMO),!.
  506
  507% \\000
  508%dehyphenize_const(PM,List,PMO):- tokenize_atom(PM,[_,T1|Toks]),member(E,[T1|Toks]),number(E),E<0,!,atomic_list_concat(List,'_',PMO),!.
  509dehyphenize_const(P,[P],P):-!.
  510dehyphenize_const(_,[P,F|List],PMO):-must_maplist(toPropercase_hyphenize_number,[F|List],ListO),atomic_list_concat([P|ListO],PMO),!.
  511
  512toPropercase_hyphenize_number('','_').
  513toPropercase_hyphenize_number(N,O):-sub_atom(N, 0, 1, _, S),char_type(S,digit),!,atom_concat('_',N,O).
  514toPropercase_hyphenize_number(I,O):- string_codes(I,[C|Odes]),to_upper(C,U),atom_codes(O,[U|Odes]).
  515
  516local_sanity_test:- sanity(dehyphenize_const('a-b','aB')).
  517local_sanity_test:- must(dehyphenize_const('a-2b','a_2b')).
  518local_sanity_test:- must(dehyphenize_const('uitype-ProductDescriptionTemplate','uitypeProductDescriptionTemplate')).
  519
  520%=

 string_to_atom_safe(?ISO, ?LISTO) is semidet

String Converted To Atom Safely Paying Attention To Corner Cases.

  526string_to_atom_safe(ISO,LISTO):-LISTO==[],!,string_to_atom(ISO,'').
  527string_to_atom_safe(ISO,LISTO):- string_to_atom(ISO,LISTO).
  528
  529/*
  530string_chars(S,C):-atom_chars(S,C).
  531text_to_string(T,S):- string_to_atom(S,T).
  532string_upper(M,U):-toUppercase(M,U).
  533string_lower(M,U):-toLowercase(M,U).
  534*/
  535
  536% :- ensure_loaded(logicmoo_util_bugger).
  537:- meta_predicate map_tree_to_list(2,?,*).  538
  539
  540% = :- meta_predicate(camelSplitters(+)).
  541
  542% = :- meta_predicate(to_string_hook(-,-,+)).
  543:- multifile(to_string_hook/3).  544:- dynamic(to_string_hook/3).  545
  546
  547%=

 camelSplitters(?V) is semidet

Camel Splitters.

  553camelSplitters(V):-arg(_,v(' ','-','_',':' /*,'mt','doom','Mt','Doom'*/ ),V).
  554
  555
  556
  557%=

 concat_atom_safe(?I, ?O) is semidet

Concat Atom Safely Paying Attention To Corner Cases.

  563concat_atom_safe(I,O):-concat_atom_safe(I,'',O).
  564
  565
  566%=

 concat_atom_safe(?A, ?B, ?C) is semidet

Concat Atom Safely Paying Attention To Corner Cases.

  572concat_atom_safe(A,B,C):- atom(C),!,atomic_list_concat_safe(A,B,C).
  573concat_atom_safe(A,B,C):- atomic_list_concat_safe(A,B,C).
  574
  575concat_atom_safe([],_,O):-nonvar(O),!,O==''.
  576concat_atom_safe(L,_,''):-nonvar(L),!,L==[].
  577concat_atom_safe(A,B,C):-concat_atom(A,B,C).
  578
  579%================================================================
  580% Atom / String functions
  581%================================================================
  582
  583%=

 atomsSameCI(?Name1, ?Name1) is semidet

Atoms Same Class For Internal Interface.

  589atomsSameCI(Name1,Name1):-!.
  590atomsSameCI(Name1,Name2):-atom(Name1),atom(Name2),downcase_atom(Name1,D1),downcase_atom(Name2,D2),!,D1=D2.
  591
  592
  593%=

 clean_codes(?X, ?Y) is semidet

Clean Codes.

  599clean_codes(X,Y):-trim(X,Y),!.  % actually cyc:trim/2
  600clean_codes(X,X).
  601
  602%clean_out_atom(X,Y):-atomSplit(X,C),delete(C,'',O),concat_atom_safe(C,' ',Y).
  603
  604%=

 clean_out_atom(?X, ?Y) is semidet

Clean Out Atom.

  610clean_out_atom(X,Y):-atom_codes(X,C),clean_codes(C,D),!,atom_codes(X,D),!,Y=X.
  611
  612%%atomSplit(A,B):-token_stream_of(A,AA),findall(B0,arg(1,AA,B),B).
  613
  614
  615%=

 all_upper_atom(?X) is semidet

All Upper Atom.

  621all_upper_atom(X):-toUppercase(X,N),!,N=X.
  622
  623
  624%=

 atom_contains(?F, ?X) is semidet

Atom Contains.

  631atom_contains(F,X):- atomic(F),F\==[],on_x_debug(sub_string(F,_,_,_,X)).
  632% atom_contains(F0,C0):- must((any_to_atom(F0,F),!,any_to_atom(C0,C))),!,sub_string(F,_,_,_,C).

 any_to_atom(?A, ?A) is semidet

Any Converted To Atom.

  641any_to_atom(Any,A):- any_to_string(Any,T), format(atom(A),'~w',[T]).
  642% any_to_atom(A,A):- any_to_string(A,T), format(atom(A),'~w',[T]).
  643
  644
  645%=

 any_to_string_or_var(?StringO, ?String) is semidet

Any Converted To String Or Variable.

  651any_to_string_or_var(StringO,String):- notrace(((var(StringO);var(String)),!,String=StringO)),!.
  652any_to_string_or_var(StringO,String):- notrace((any_to_string(StringO,StringOS1),any_to_string(String,StringOS2),!,StringOS1=StringOS2)).
  653
  654
  655%=

 atomic_list_concat_safe(?List, ?StringO) is semidet

Atomic List Concat Safely Paying Attention To Corner Cases.

  661atomic_list_concat_safe(List,V):- (V=='';V==""),!,List=[].
  662atomic_list_concat_safe(List,StringO):- ground(List),!,atomics_to_string(List,String),any_to_string_or_var(StringO,String),!.
  663atomic_list_concat_safe([Atom,A2|Bonus],V):-atomic(Atom),atomic(A2),string_or_atom_concat(Atom,A2,A3),!,atomic_list_concat_safe([A3|Bonus],V),!.
  664atomic_list_concat_safe([Atom|Bonus],V):-atomic(Atom),atomic(V),string_or_atom_concat(Atom,NV,V),!,atomic_list_concat_safe(Bonus,NV),!.
  665atomic_list_concat_safe([D1,Atom|Bonus],V):-var(D1),atomic(Atom),sub_string_or_atom(V, NBefore, _Len, _NumAfter, Atom),
  666      sub_string_or_atom(V, 0, NBefore, _, D1), atomic_list_concat_safe([D1,Atom|Bonus],V),!.
  667atomic_list_concat_safe([V],V):-!.
  668
  669string_or_atom_concat(A,B,C):- \+ string(A),\+ string(B),\+ string(C),!, atom_concat(A,B,C).
  670string_or_atom_concat(A,B,C):- string_concat(A,B,C).
  671
  672sub_string_or_atom(V, NBefore, Len, NumAfter, Atom):- (atom(V);atom(Atom)),!,sub_atom(V, NBefore, Len, NumAfter, Atom).
  673sub_string_or_atom(V, NBefore, Len, NumAfter, Atom):- assertion(string(V);string(Atom)),sub_string(V, NBefore, Len, NumAfter, Atom).
  674
  675
  676%=

 atomic_list_concat_safe(?List, ?Sep, ?StringO) is semidet

Atomic List Concat Safely Paying Attention To Corner Cases.

  682atomic_list_concat_safe(List,Sep,StringO):- (Sep==[];Sep=='';Sep==""),!,atomic_list_concat_safe(List,StringO).
  683atomic_list_concat_safe(List,_,V):- (V=='';V==""),!,List=[].
  684atomic_list_concat_safe(List,_,V):- List==[],!,any_to_string_or_var('',V).
  685atomic_list_concat_safe(List,Sep,Str):- ground(Sep:Str), !, atomic_list_concat(List1,Sep,Str),!,maplist(any_to_string_or_var,List,List1).
  686atomic_list_concat_safe(List,Sep,StringO):- ground(List:Sep),!,atomics_to_string(List,Sep,String),any_to_string_or_var(StringO,String).
  687%atomic_list_concat_safe(List,Sep,V):- maplist(unify_atomics,['',''],List).
  688atomic_list_concat_safe([Atom,A2|Bonus],Sep,V):-atomic(Atom),atomic(A2),atomic_list_concat_safe([Atom,Sep,A2],A3),atomic_list_concat_safe([A3|Bonus],Sep,V),!.
  689atomic_list_concat_safe([Atom|Bonus],Sep,V):-   atomic(Atom),atomic(V),atomic_list_concat_safe([Atom,Sep,NV],V),!,atomic_list_concat_safe(Bonus,NV).
  690atomic_list_concat_safe([D1,PostAtom|Bonus],Sep,V):-var(D1),atomic(V),atomic(Sep),
  691  string_concat(Sep,PostAtom,Atom),
  692  % We calc D1
  693  sub_string(V, NBefore, _Len, NumAfter, Atom),sub_string(V, 0, NBefore, _, D1O),
  694  sub_string(V,_,NumAfter,0,NewV),atomic_list_concat_safe(Bonus,Sep,NewV),!,
  695  any_to_string_or_var(D1,D1O).
  696atomic_list_concat_safe([D1|Bonus],AtomSep,V):-var(D1),atomic(AtomSep),
  697  % We calc D1
  698  sub_string(V, NBefore, _Len, NumAfter, AtomSep),sub_string(V, 0, NBefore, _, D1O),!,
  699  sub_string(V,_,NumAfter,0,NewV),atomic_list_concat_safe(Bonus,AtomSep,NewV),!,
  700  any_to_string_or_var(D1,D1O).
  701atomic_list_concat_safe([V],_Sep,V):-!.
  702
  703
  704
  705
  706
  707
  708% convert any ftTerm to 'atom' string
  709
  710%=

 convert_to_string(?I, ?ISO) is semidet

Convert Converted To String.

  716/*
  717convert_to_string(I,ISO):-
  718                logicmoo_util_first:term_to_string(I,IS),!,
  719		string_to_list(IS,LIST),!,
  720		list_replace(LIST,92,[92,92],LISTM),
  721		list_replace(LISTM,34,[92,34],LISTO),!,
  722		text_to_string(LISTO,ISO). % string_to_atom_safe(ISO,LISTO),!.
  723*/
  724
  725%=

 list_replace(?List, ?Char, ?Replace, ?NewList) is semidet

List Replace.

  731list_replace(List,Char,Replace,NewList):-
  732	append(Left,[Char|Right],List),
  733	append(Left,Replace,NewLeft),
  734	list_replace(Right,Char,Replace,NewRight),
  735	append(NewLeft,NewRight,NewList),!.
  736list_replace(List,_Char,_Replace,List):-!.
  737
  738
  739% :- export(atomic_concat/3).
  740
  741%=

 atomic_concat(?A, ?B, ?C, ?Out) is semidet

Atomic Concat.

  747atomic_concat(A,B,C,Out):-atomic_list_concat_safe([A,B,C],Out).
  748
  749% :-atomic_list_concat_safe([A,'/',C],'','foo/bar/baz').
  750% ===========================================================
  751% CASE CHANGE
  752% ===========================================================
  753
  754isSlot(V):- is_ftVar(V).
  755
  756
  757%=

 noCaseChange(?VAR) is semidet

No Case Change.

  763noCaseChange(VAR):- is_ftVar(VAR),!.
  764% noCaseChange(VAR):- if_defined(isSlot(VAR)),!.
  765noCaseChange([]):-!.
  766noCaseChange(MiXed):-number(MiXed),!.
  767noCaseChange(MiXed):-atom(MiXed),atom_concat('#$',_,MiXed),!.
  768noCaseChange(c(_)):-!.
  769
  770
  771%=

 first_char_to_upper(?CX, ?Y) is semidet

First Char Converted To Upper.

  777first_char_to_upper(CX,Y):- name(CX,[S|SS]),char_type(S,to_lower(NA)),name(NA,[N]),name(Y,[N|SS]),!.
  778
  779%=

 first_char_to_lower(?CX, ?Y) is semidet

First Char Converted To Lower.

  785first_char_to_lower(CX,Y):- name(CX,[S|SS]),char_type(S,to_upper(NA)),name(NA,[N]),name(Y,[N|SS]),!.
  786
  787%=

 to_titlecase(?CX, ?Y) is semidet

Converted To Titlecase.

  793to_titlecase(CX,Y):- sub_string(CX,1,_,0,Z),string_lower(Z,L), name(CX,[S|_]),char_type(S,to_lower(NA)),atom_concat(NA,L,Y),!.
  794to_titlecase('',''):-!.
  795to_titlecase(CX,Y):- first_char_to_upper(CX,Y).
  796
  797
  798%=

 text_to_string_safe(?Expr, ?Forms) is semidet

Text Converted To String Safely Paying Attention To Corner Cases.

  804text_to_string_safe(Expr,Forms):- notrace(on_x_fail(text_to_string(Expr,Forms))).
  805
  806
  807
  808%=

 toLowercase(?I, ?O) is semidet

Converted To Lowercase.

  814toLowercase(I,O):-integer(I),!,to_lower(I,O).
  815toLowercase(I,O):-toCase(downcase_atom,I,O).
  816
  817
  818%=

 toUppercase(?I, ?O) is semidet

Converted To Uppercase.

  824toUppercase(I,O):-integer(I),!,to_upper(I,O).
  825toUppercase(I,O):-toCase(upcase_atom,I,O).
  826
  827
  828%=

 toCamelcase(?I, ?O) is semidet

Converted To Camelcase.

  834toCamelcase(I,O):-toCaseSplit('',first_char_to_upper,I,O).
  835
  836
  837%=

 unCamelcase(?I, ?O) is semidet

Un Camelcase.

  844%unCamelcase(I,O):- \+ string(I),any_to_string(I,S),
  845%unCamelcase(I,O):- upcase_atom(I,O),downcase_atom(I,O),!.
  846unCamelcase(I,O):-toCaseSplit('_',first_char_to_lower,I,O).
  847
  848
  849%=

 toPropercase(?I, ?O) is semidet

Converted To Propercase.

  855toPropercase(I,O):-toCaseSplit(_Same,to_titlecase,I,O).
  856
  857
  858
  859%=

 toCase(:PRED2Pred, ?MiXed, ?MiXed) is semidet

Converted To Case.

  865toCase(_Pred,MiXed,MiXed):-noCaseChange(MiXed),!.
  866toCase(_Pred,95,45):-!.
  867toCase(_Pred,N,N):-integer(N),!.
  868toCase( Pred,MiXed,CASED):-atom(MiXed),!,call(Pred,MiXed,CASED),!.
  869toCase( Pred,D3,DD3):- text_to_string_safe(D3,S),!,string_to_atom(S,A3),toCase(Pred,A3,DD3).
  870toCase( Pred,D3,DD3):- is_list(D3),catch(atomic_list_concat(D3,' ',Str),_,fail),maplist(toCase( Pred),Str,DD3),!.
  871toCase( Pred,D3,DD3):- is_list(D3),!,must_maplist(toCase( Pred),D3,DD3).
  872toCase( Pred,MiXed,CASED):-compound(MiXed),MiXed=..MList,
  873  must_maplist(toCase(Pred),MList,UList),!,
  874  CASED=..UList.
  875
  876
  877
  878
  879%=

 toCaseSplit(?UPARAM1, :PRED2VALUE2, ?MiXed, ?MiXed) is semidet

Converted To Case Split.

  885toCaseSplit(_,_,[Empty],[]):-nonvar(Empty), (empty_str(Empty);camelSplitters(Empty)),!.
  886toCaseSplit(_,_,Empty,''):- (empty_str(Empty);camelSplitters(Empty)),!.
  887
  888toCaseSplit(_,_,MiXed,MiXed):-noCaseChange(MiXed),!.
  889toCaseSplit(Rejoin,Pred,D3,DD3):-atom(D3),!,
  890  ((camelSplitters(V),concat_atom([L,I|ST],V,D3))->
  891   (maplist(Pred,[L,I|ST],LIST2),rejoined(Rejoin,V,VV),concat_atom(LIST2,VV,DD3));
  892   toCase(Pred,D3,DD3)).
  893toCaseSplit(Rejoin,Pred,D3,DD3):-text_to_string_safe(D3,S),!,string_to_atom(S,A3),toCaseSplit(Rejoin,Pred,A3,DD3).
  894toCaseSplit(Rejoin,Pred,LI,OUT):-is_list(LI),!,maplist(toCaseSplit(Rejoin,Pred),LI,LO),ignore(VV=Rejoin),ignore(VV=''),concat_atom(LO,VV,OUT).
  895toCaseSplit(Rejoin,Pred,[CX|Y],[D3|YY]):-!,toCaseSplit(Rejoin,Pred,CX,D3),toCaseSplit(Rejoin,Pred,Y,YY).
  896toCaseSplit(_     ,Pred,MiXed,UPPER):-must((compound(MiXed),MiXed=..MList,
  897  %toCaseSplit(' ',Pred,MList,UList),!,
  898  maplist(toCaseSplit(' ',Pred),MList,UList),!,
  899  UPPER=..UList)).
  900
  901
  902%=

 rejoined(?Rejoin, ?V, ?VV) is semidet

Rejoined.

  908rejoined(Rejoin,V,VV):-ignore(Rejoin=VV),ignore(V=VV),!.
  909
  910
  911
  912%=

 empty_str(?E) is semidet

Empty Str.

  918empty_str(E):-nonvar(E),memberchk(E,[``,"",'']).
  919
  920
  921
  922% ===========================================================
  923% CHECK CASE
  924% ===========================================================
  925:- export(capitalized/1).  926
  927
  928%=

 capitalized(?Type) is semidet

Capitalized.

  934capitalized(Type):- string_codes(Type,[S|_]),char_type(S,upper),must(char_type(S,alpha)).
  935
  936% ===========================================================
  937% BREAKING ON CASE CHANGE
  938% ===========================================================
  939:- export(to_case_breaks/2).  940
  941%=

 to_case_breaks(?Text, ?New) is semidet

Converted To Case Breaks.

  947to_case_breaks(Text,New):- string_codes(Text,[C|Codes]), char_type_this(C,WillBe),!,
  948  to_case_breaks(Codes,WillBe,[C],WillBe,New).
  949
  950to_case_break_atoms(I,O):- any_to_atom(I,A),to_case_breaks(A,M),maplist(arg(1),M,L),maplist(any_to_atom,L,O).
  951
  952%=

 char_type_this(?C, ?Lower) is semidet

Char Type This.

  958char_type_this(C,Lower):- notrace((ctype_switcher(Lower),char_type(C,Lower))),!.
  959
  960
  961%=

 ctype_switcher(?VALUE1) is semidet

Ctype Switcher.

ctype_switcher(digit).

  968ctype_switcher(punct).
  969ctype_switcher(digit).
  970ctype_switcher(white).
  971ctype_switcher(lower).
  972ctype_switcher(upper).
  973
  974
  975%=

 breaked_codes(?S, ?C0) is semidet

Breaked Codes.

  981breaked_codes(S,C):- notrace(nonvar(S)),notrace(catch((number_codes(_,C),string_codes(S,C)),_,fail)),!.
  982breaked_codes(S,C0):- notrace(nonvar(S)),on_x_fail(write_to_codes(S,C)),!,C=C0.
  983breaked_codes(S,C):-
  984 (string_codes(S,C)->true;
  985    (atom_codes(S,C)->true;
  986       string_equal_ci(S,C))),!.
  987
  988
  989%=

 ctype_continue(?X, ?X) is semidet

Ctype Continue.

  995ctype_continue([_],upper,lower).
  996ctype_continue(_ ,X,X):-ctype_switcher(X).
  997
  998
  999%=

 ctype_switch(?T1, ?T2) is semidet

Ctype Switch.

 1005ctype_switch(upper,upper).
 1006ctype_switch(T1,T2):-ctype_switcher(T1),ctype_switcher(T2),T1\=T2.
 1007
 1008
 1009
 1010%=

 hide_char_type(?VALUE1) is semidet

Hide Char Type.

hide_char_type(white).

 1017hide_char_type(red).
 1018%hide_char_type(punct).
 1019
 1020% to_case_breaks(+Codes,+SoFarC,+Lower,List)
 1021
 1022%=

 to_case_breaks(:TermC___Codes, ?WillBe, ?SoFar, ?Upper, ?OUT) is semidet

Converted To Case Breaks.

 1028to_case_breaks([C2|Codes],_,[C],WillBe,[xti(Left,WillBe)|New]):- C2\==C, WillBe==punct, !, text_to_string([C],Left),to_case_breaks([C2|Codes],New).
 1029to_case_breaks([      ],_WillBe,   [],_,     []):-!.
 1030to_case_breaks([       ],WillBe,SoFar,_NewType,[xti(Left,WillBe)]):-breaked_codes(Left,SoFar),!.
 1031to_case_breaks([C|Codes],WillBe,SoFar,Upper,New):- ctype_continue(SoFar,Upper,Lower),
 1032      char_type_this(C,Lower),append(SoFar,[C],SoFarC),!,
 1033      to_case_breaks(Codes,WillBe,SoFarC,Lower,New).
 1034
 1035to_case_breaks(C___Codes,WillBe,SoFar,Upper,OUT):- is_list(OUT),OUT=[xti(Left,WillBe),xti(New,RType)],!,
 1036  to_first_break_w(C___Codes,SoFar,Upper,Left,New,RType).
 1037
 1038
 1039to_case_breaks([C|Codes],WillBe,SoFar,Upper,OUT):- ctype_switch(Upper,Digit), char_type_this(C,Digit),!,
 1040  breaked_codes(Left,SoFar), to_case_breaks(Codes,Digit,[C],Digit,New),!,
 1041  (hide_char_type(WillBe)->OUT=New;OUT=[xti(Left,WillBe)|New]).
 1042
 1043to_case_breaks([C|Codes],WillBe,SoFar,Upper,New):- append(SoFar,[C],SoFarC),to_case_breaks(Codes,WillBe,SoFarC,Upper,New).
 1044
 1045:- export(to_first_break/2). 1046
 1047%=

 to_first_break(?Text, ?Left) is semidet

Converted To First Break.

 1053to_first_break(Text,Left):-to_first_break(Text,_LeftType,Left,_Right,_NextType).
 1054:- export(to_first_break/5). 1055
 1056%=

 to_first_break(?Text, ?LType, ?Left, ?Right, ?RType) is semidet

Converted To First Break.

 1062to_first_break(Text,LType,Left,Right,RType):- string_codes(Text,[C|Codes]), char_type_this(C,LType),!,
 1063           to_first_break_w(Codes,[C],LType,Left,Right,RType).
 1064to_first_break(Text,LType,Left,Right,RType):- string_codes(Text,[C|Codes]), !,to_first_break_w(Codes,[C],LType,Left,Right,RType).
 1065
 1066
 1067%=

 to_first_break_w(:TermARG1, ?SoFar, ?Some, ?Left, ?VALUE5, ?VALUE6) is semidet

Converted To First Break W.

 1073to_first_break_w([],       []   ,empty,'',[],empty):-!.
 1074to_first_break_w([],       SoFar,_Some,Left,[],empty):-breaked_codes(Left,SoFar),!.
 1075to_first_break_w([C|Codes],SoFar,Upper,Left,Rest,RType):- ctype_continue(SoFar,Upper,Lower), char_type_this(C,Lower),append(SoFar,[C],SoFarC),!,to_first_break_w(Codes,SoFarC,Lower,Left,Rest,RType).
 1076to_first_break_w([C|Codes],SoFar,Lower,Left,Rest,Upper):- ctype_switch(Lower,Upper), char_type_this(C,Upper), breaked_codes(Left,SoFar),!,breaked_codes(Rest,[C|Codes]).
 1077to_first_break_w([C|Codes],SoFar,Lower,Left,Rest,RType):- append(SoFar,[C],SoFarC),to_first_break_w(Codes,SoFarC,Lower,Left,Rest,RType).
 1078
 1079% ===========================================================
 1080% Quote-Unquote
 1081% ===========================================================
 1082
 1083
 1084%=

 quoteAtomString(?QU, ?QU) is semidet

Quote Atom String.

 1090quoteAtomString([34|T],Out):-name(Out,[34|T]),!.
 1091quoteAtomString([H|T],Out):-!,append([34,H|T],[34],Quote),name(Out,Quote).
 1092quoteAtomString(QU,QU):-concat_atom_safe(['"'|_],QU),!.
 1093quoteAtomString(UQ,QU):-concat_atom_safe(['"',UQ,'"'],QU),!.
 1094
 1095
 1096%=

 unquoteAtom(?Atom, ?New) is semidet

Unquote Atom.

 1102unquoteAtom(Atom,New):-concat_atom_safe(LIST,'"',Atom),concat_atom_safe(LIST,'',New),!.
 1103
 1104% ===========================================================
 1105% string/chars/codes
 1106% ===========================================================
 1107
 1108
 1109%=

 is_charlist(:TermX) is semidet

If Is A Charlist.

 1115is_charlist(L):- ground(L), L\==[], is_list(L),!,maplist(is_charlist_char,L).
 1116
 1117:- export(is_charlist_char/1). 1118is_charlist_char(C):- atom(C), atom_length(C,1), name(C,[Code]),swish_render_codes_charset_code(_,Code).
 1119
 1120any_to_charlist(A,C):- is_charlist(A),!,A=C.
 1121any_to_charlist(A,C):- any_to_string(A,S),atom_chars(S,C).
 1122
 1123
 1124%=

 is_codelist(:TermA) is semidet

If Is A Codelist.

 1130is_codelist(L):- ground(L), L\==[], is_list(L),!,maplist(is_codelist_code,L).
 1131
 1132:- export(is_codelist_code/1). 1133is_codelist_code(H):- \+ integer(H),!,fail.
 1134is_codelist_code(H):- H<32,!,fail.
 1135is_codelist_code(H):- H>=128,!,fail.
 1136is_codelist_code(H):- integer(H), swish_render_codes_charset_code(_,H),!.
 1137
 1138swish_render_codes_charset_code(_,9).
 1139swish_render_codes_charset_code(_,10).
 1140swish_render_codes_charset_code(_,13).
 1141swish_render_codes_charset_code(_,27).
 1142swish_render_codes_charset_code(ascii, C) :-
 1143    between(32, 126, C).
 1144swish_render_codes_charset_code(iso_latin_1, C) :-
 1145    (   between(32, 126, C)
 1146    ;   between(160, 255, C)
 1147    ).
 1148
 1149
 1150
 1151any_to_codelist(A,C):- is_codelist(A),!,A=C.
 1152any_to_codelist(A,C):- any_to_string(A,S),atom_codes(S,C).
 1153
 1154%=

 is_ftString2(?X) is semidet

If Is A Format Type String Extended Helper.

 1160is_ftString2(X):- atom(X),!,atom_length(X,L),L>1,atom_concat('"',_,X),atom_concat(_,'"',X),!.
 1161is_ftString2(X):- var(X),!,fail.
 1162is_ftString2(string(_)):-!.
 1163is_ftString2("").
 1164is_ftString2(X):- string(X),!.
 1165is_ftString2(L):-is_charlist(L),!.
 1166is_ftString2(L):-is_codelist(L),!.
 1167
 1168
 1169
 1170%=