Return to test1.c CVS log

Up to [Research Unix] / researchv10no / cmd / cfront / libstring

Annotation of researchv10no/cmd/cfront/libstring/test1.c, revision 1.1

1.1     ! root        1: // String test program.
        !             2: 
        !             3: #include "String.h"
        !             4: 
        !             5: String
        !             6: doubleCat(String a, String b)
        !             7: {
        !             8:        a.put(b);
        !             9:        return a + a;
        !            10: }
        !            11: 
        !            12: String
        !            13: substr ( String x, int start, int length )
        !            14: {
        !            15:        return x(start, length);
        !            16: }
        !            17: 
        !            18: main(int argc, char **argv)
        !            19: {
        !            20:        String  s = "Hello, ";
        !            21:        cout << doubleCat ( s, "world.\n" );
        !            22:        while ( argc-- ) {
        !            23:                String  x(*argv++);
        !            24:                for ( int i = 0; i <= length(x); i++ ) {
        !            25:                        cout << substr(x, 0, i) << "\t" <<
        !            26:                            substr(x, i, length(x) - i) << "\t";
        !            27:                        // split the expression to be kind to ccom
        !            28:                        cout << substr(x, 0, length(x) - i) << "\t" <<
        !            29:                            x(length(x) - i, i) <<  "\n";
        !            30:                }
        !            31:                cout << "\n";
        !            32:        }
        !            33: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.