Return to tostr.ccc CVS log

Up to [local] / OpenXM / src / k097 / lib

Annotation of OpenXM/src/k097/lib/tostr.ccc, Revision 1.1

1.1     ! maekawa     1: /* lib/tostr.ccc :  to generate sm1-package tostr.sm1 */
        !             2: /* The contents of this file is moved to slib.ccc.
        !             3:    The name of the function is changed to ToString. */
        !             4: sm1(" 0 @@@.indexMode ");  /* C-like notation of matrix. a[0], ... */
        !             5:
        !             6: def tostr2(p) {
        !             7:   local n,ans,i;
        !             8:   ans = [ ];
        !             9:   if (IsArray(p)) {
        !            10:     n = Length(p);
        !            11:     ans = Append(ans,"[ ");
        !            12:     for (i=0; i<n; i++) {
        !            13:       ans = Append(ans,tostr2(p[i]));
        !            14:       if (i != n-1) {
        !            15:         ans = Append(ans," , ");
        !            16:       }
        !            17:     }
        !            18:     ans = Append(ans," ] ");
        !            19:   } else {
        !            20:     ans = [ sm1(p," (dollar) dc ") ];
        !            21:     /* Println(ans);   */
        !            22:   }
        !            23:   return(AddString(ans));
        !            24: }
        !            25:
        !            26: def IsArray(p) {
        !            27:   sm1(p," isArray /FunctionValue set  ");
        !            28: }
        !            29:
        !            30:
        !            31: /* Println(tostr2([1,[2,3,4]])); */