Updated examples to work with proposed API.

These examples won't yet work, but they will be good test-cases
for later.

Author: skx

examples/file-writing.mon

@@ -11,21 +11,17 @@
 // second argument:
 //
 let name = "/tmp/moi";
-let handle = file.open(name, "w");
-if ( handle < 0 ) {
-   puts("Failed to open ", name, " for writing\n");
-   exit(0);
-}
+let fh   = open(name, "w");
 
 //
 // Now we have a handle we can write (strings) to it:
-write(handle, "This is a test\n" );
-write(handle, string({ "Steve": "Kemp", "Age": 128}) + "\n");
+fh.write( "This is a test\n" );
+fh.write( string({ "Steve": "Kemp", "Age": 128}) + "\n" );
 
 //
 // And close it.
 //
-file.close( handle );
+fh.close();
 
 //
 // Show what we did.

examples/file.mon

@@ -6,27 +6,27 @@
 //
 
 
-let fd = file.open( "/etc/passwd" );
-if ( fd < 0 ) {
-   puts( "Failed to open file\n" );
-   exit(0);
-}
+let fh = open( "/etc/passwd" );
 
 // Count of lines
 let lines = 0;
 
 // Read a line
-let r = read(fd);
+let r = fh.read();
 
-// Loop while that is none-empty
-for( len(r) > 0  ) {
+// Loop while that is non-empty
+for( len(r) > 0 ) {
 
+     // Bump the line-count
      lines++;
-     puts( "\tRead: ", r);
+
+     // strip newlines / space, and show the output
+     r = r.trim()
+     puts( "Read: '", r, "'\n");
 
      // loop
-     r = read(fd);
+     r = fh.read();
 };
-file.close(fd);
+fh.close();
 
 puts( "Read:" , lines, " lines.\n" );

examples/wc.mon

@@ -4,16 +4,16 @@
 //
 //   Read 2572 characters
 //
-// That maches :)
+// That matches :)
 //
 //   $ wc -c /etc/passwd
 //   2572
 //
 
 // Open the file
 let path = "/etc/passwd";
-let handle = file.open(path);
-if ( handle < 0 ) {
+let fh = open(path);
+if ( ! fh ) {
    puts( "Failed to open file" )
    exit(0);
 }
@@ -22,7 +22,7 @@ if ( handle < 0 ) {
 let c = 0;
 
 // Read a line
-let r = read(handle);
+let r = fh.read();
 
 // Loop while that is none-empty
 for( len(r) > 0  ) {
@@ -31,8 +31,8 @@ for( len(r) > 0  ) {
    c += len(r);
 
    // Read the next one.
-   r = read(handle);
+   r = fh.read();
 }
 
 puts( "Read " , c, " characters from ", path , "\n" );
-file.close(handle);
+fh.close();

examples/wc2.mon

@@ -4,14 +4,13 @@
 //
 //   Read 47 lines
 //
-// That maches :)
+// That matches :)
 //
 //   $ wc -l /etc/passwd
 //   47 /etc/passwd
 //
 
 // Open the file
-let lines = file.lines( "/etc/passwd" );
-if ( lines ) {
-   puts( "Read ", len(lines), " lines\n" )
-}
+let fh = open( "/etc/passwd", "r" );
+lines = fh.lines();
+puts( "Read ", len(lines), " lines\n" );