Changeset 4019


Ignore:
Timestamp:
Oct 31, 2008, 7:19:23 PM (12 years ago)
Author:
orlov
Message:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/java/refal/refal/plus/Serialize.rf

    r4016 r4019  
    1111$public $func CloseOutputStream s.objectStream = ;
    1212$native CloseOutputStream = "void java.io.ObjectOutputStream.close ()";
     13
     14$public $func ResetOutputStream s.objectStream = ;
     15$native ResetOutputStream = "void java.io.ObjectOutputStream.reset ()";
    1316
    1417$public $func Write s.objectStream s.box = ;
     
    3538      <ObjectOutputStream <FileOutputStream <ToWord v.outFile>>> :: s.out,
    3639      $iter, {
    37         <Write s.out <Box <ReadCh s.in>>> = $fail;;
     40        <Write s.out <Box <ReadCh s.in>>>,
     41          <ResetOutputStream s.out>
     42          = $fail;
     43        <Write s.out <Box EOF>>;
    3844      } =
    3945      <CloseOutputStream s.out>;
     46//      <ObjectInputStream <FileInputStream <ToWord v.outFile>>> :: s.in,
     47//      $iter,
     48//      <Get <Read s.in>> :: e1,
     49//      <WriteLn e1>
     50//      e1 : EOF;
    4051    = <PrintLn "Usage: " <Arg 0> " INPUT-FILE OUTPUT-FILE">;
    4152  };
Note: See TracChangeset for help on using the changeset viewer.