home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1994 June / NEBULA_SE.ISO / SourceCode / Tutorial / Cookbook / 39.Archiving / DefaultMgr.m < prev    next >
Encoding:
Text File  |  1993-01-19  |  1.5 KB  |  67 lines
  1.  
  2. /* Generated by Interface Builder */
  3.  
  4. #import "DefaultMgr.h"
  5. #import <stdio.h>
  6. #import "strings.h"
  7. #import <appkit/Form.h>
  8.  
  9. @implementation DefaultMgr
  10.  
  11. - setFloatForm:anObject
  12. {
  13.     floatForm = anObject;
  14.     return self;
  15. }
  16.  
  17. - setStringForm:anObject
  18. {
  19.     stringForm = anObject;
  20.     return self;
  21. }
  22.  
  23. - setIntegerForm:anObject
  24. {
  25.     integerForm = anObject;
  26.     return self;
  27. }
  28.  
  29. - writeDefaults:sender
  30. {
  31. NXTypedStream *tStream;
  32.     myFloat = [floatForm floatValueAt:0];
  33.     myInt = [integerForm intValueAt:0];
  34.     printf("b %s\n", myString);
  35.     strcpy(myString, [stringForm stringValueAt:0]);
  36.     printf("a %s\n", myString);
  37.     tStream = NXOpenTypedStreamForFile("typedStream", NX_WRITEONLY);
  38.     if (tStream) {
  39.         // NXWriteTypes(tStream, "if[100c]", &myInt, &myFloat, myString);
  40.         // NXWriteTypes(tStream, "if[100c]", &myInt, &myFloat, &myString);
  41.         NXWriteTypes(tStream, "if", &myInt, &myFloat);
  42.         NXWriteArray(tStream, "c", 100, myString);
  43.         NXCloseTypedStream(tStream);
  44.     } else {
  45.         printf("No typed stream\n");
  46.     }
  47.     return self;
  48. }
  49.  
  50. - readDefaults:sender
  51. {
  52. NXTypedStream *tStream;
  53.     tStream = NXOpenTypedStreamForFile("typedStream", NX_READONLY);
  54.     // NXReadTypes(tStream, "if[100c]", &myInt, &myFloat, myString);
  55.     // NXReadTypes(tStream, "if[100c]", &myInt, &myFloat, &myString);
  56.     NXReadTypes(tStream, "if", &myInt, &myFloat);
  57.     NXReadArray(tStream, "c", 100, myString);
  58.     [integerForm setIntValue:myInt];
  59.     [floatForm setFloatValue:myFloat];
  60.     [stringForm setStringValue:myString];
  61.     NXCloseTypedStream(tStream);
  62.     return self;
  63. }
  64.  
  65.  
  66. @end
  67.