home *** CD-ROM | disk | FTP | other *** search
/ Peanuts NeXT Software Archives / Peanuts-2.iso / Developer / languages / scheme / Schematik.README < prev   
Encoding:
Text File  |  1993-12-28  |  5.1 KB  |  152 lines
  1. This directory contains Schematik, a NeXT front-end for the Scheme
  2. programming language.  The Schematik.app file package also contains
  3. MIT Scheme (CScheme), which is the default back-end.  Schematik 1.1.5.2
  4. is packaged with a modified version of MIT Scheme, version 7.1.3.
  5.  
  6. Although the Schematik 1.1.5.2 executable (produced under NeXTstep
  7. 2.2) seems to run just fine under NeXTstep 3.0, the sources will not
  8. compile as-is under 3.0.  The following diffs will make the sources
  9. compile under 3.0, and the resulting executable seems to work the
  10. same.  However, the testing has not been very thorough.  A future
  11. release of the Schematik sources will hopefully be directly compilable
  12. under 3.0; in the meantime, you are welcome to try using these diffs.
  13.   -Max Hailperin <max@nic.gac.edu>, 3/10/93
  14.   (Thanks to Chris Kane for the diffs.)
  15. ====================
  16. diff -r Schematik_1.1.5.2/Schematik_main.m Schematik_1.1.5.2_for_3.0/Schematik_main.m
  17. 41a42
  18. > extern int errno;
  19. 45c46
  20. < char *stlchr(const char *, int);
  21. ---
  22. > char *stlchr(char *, int);
  23. diff -r Schematik_1.1.5.2/Agent.subproj/FindAgent.m Schematik_1.1.5.2_for_3.0/Agent.subproj/FindAgent.m
  24. 44c44
  25. < #import <mach.h>
  26. ---
  27. > #import <mach/mach.h>
  28. diff -r Schematik_1.1.5.2/Agent.subproj/HelpAgent.m Schematik_1.1.5.2_for_3.0/Agent.subproj/HelpAgent.m
  29. 46c46
  30. < #import <mach.h>
  31. ---
  32. > #import <mach/mach.h>
  33. 289c289
  34. < - initFrame:(NXRect *)aRect
  35. ---
  36. > - initFrame:(const NXRect *)aRect
  37. diff -r Schematik_1.1.5.2/Agent.subproj/InfoAgent.m Schematik_1.1.5.2_for_3.0/Agent.subproj/InfoAgent.m
  38. 40c40
  39. < #import <mach.h>
  40. ---
  41. > #import <mach/mach.h>
  42. diff -r Schematik_1.1.5.2/Agent.subproj/PrefAgent.m Schematik_1.1.5.2_for_3.0/Agent.subproj/PrefAgent.m
  43. 44c44
  44. < #import <appkit/defaults.h>
  45. ---
  46. > #import <defaults/defaults.h>
  47. 49c49
  48. < #import <mach.h>
  49. ---
  50. > #import <mach/mach.h>
  51. 316c316
  52. <     return (retval?:[NXApp loadNibSection:nibFile owner:owner withNames:NO fromZone:zone]);
  53. ---
  54. >     return (retval?retval:[NXApp loadNibSection:nibFile owner:owner withNames:NO fromZone:zone]);
  55. 361c361
  56. <     return (retval?:[[NXImage allocFromZone:zone] initFromSection:imageFile]);
  57. ---
  58. >     return (retval?retval:[[NXImage allocFromZone:zone] initFromSection:imageFile]);
  59. 366c366,367
  60. <     return ([stringTable valueForStringKey:key]?:(value?:key));
  61. ---
  62. >   const char *val=[stringTable valueForStringKey:key];
  63. >     return (val?val:(value?value:key));
  64. diff -r Schematik_1.1.5.2/Doc.subproj/DocText.m Schematik_1.1.5.2_for_3.0/Doc.subproj/DocText.m
  65. 50c50
  66. < #import <nextdev/keycodes.h>
  67. ---
  68. > #import <dev/m68k/keycodes.h>
  69. 52c52
  70. < #import <NXCType.h>
  71. ---
  72. > #import <appkit/NXCType.h>
  73. 125c125
  74. < - initFrame:(NXRect *)r
  75. ---
  76. > - initFrame:(const NXRect *)r
  77. 130c130
  78. < - initFrame:(NXRect *)r text:(const char *)text alignment:(int)mode
  79. ---
  80. > - initFrame:(const NXRect *)r text:(const char *)text alignment:(int)mode
  81. diff -r Schematik_1.1.5.2/Doc.subproj/DocWin.m Schematik_1.1.5.2_for_3.0/Doc.subproj/DocWin.m
  82. 45c45
  83. < #import <sys/malloc.h>
  84. ---
  85. > //#import <sys/malloc.h>
  86. 47,48c47,48
  87. < #import <mach.h>
  88. < #import <NXCType.h>
  89. ---
  90. > #import <mach/mach.h>
  91. > #import <appkit/NXCType.h>
  92. diff -r Schematik_1.1.5.2/Doc.subproj/InteractionWin.m Schematik_1.1.5.2_for_3.0/Doc.subproj/InteractionWin.m
  93. 43c43
  94. < #import <mach.h>
  95. ---
  96. > #import <mach/mach.h>
  97. diff -r Schematik_1.1.5.2/Graphics.subproj/GraphicsView.m Schematik_1.1.5.2_for_3.0/Graphics.subproj/GraphicsView.m
  98. 48,49c48,49
  99. < #import <defaults.h>
  100. < #import <mach.h>
  101. ---
  102. > #import <defaults/defaults.h>
  103. > #import <mach/mach.h>
  104. 127c127
  105. <     theWindow = [[Panel allocFromZone:[self zone]] initContent:frameRect style:NX_RESIZEBARSTYLE backing:NX_BUFFERED buttonMask:NX_RESIZEBUTTONMASK|NX_MINIATURIZEBUTTONMASK defer:NO];
  106. ---
  107. >     theWindow = [[Panel allocFromZone:[self zone]] initContent:frameRect style:NX_RESIZEBARSTYLE backing:NX_BUFFERED buttonMask:NX_MINIATURIZEBUTTONMASK defer:NO];
  108. 143c143
  109. < - drawSelf:(NXRect *)r :(int)rectCount
  110. ---
  111. > - drawSelf:(const NXRect *)r :(int)rectCount
  112. diff -r Schematik_1.1.5.2/Main.subproj/Main.m Schematik_1.1.5.2_for_3.0/Main.subproj/Main.m
  113. 59c59
  114. < #import <mach.h>
  115. ---
  116. > #import <mach/mach.h>
  117. 309c309
  118. < - (BOOL)app:sender openFile:(const char *)file type:(const char *)aType
  119. ---
  120. > - (int)app:sender openFile:(const char *)file type:(const char *)aType
  121. 316c316
  122. <       return NO;
  123. ---
  124. >       return 0;
  125. 321c321
  126. <     return YES;
  127. ---
  128. >     return 1;
  129. 361c361
  130. <       if (![appSpeaker extendPowerOffBy:600000 actual:&actual])
  131. ---
  132. >       if (![[Application workspace] extendPowerOffBy:600000])
  133. diff -r Schematik_1.1.5.2/Main.subproj/SchemeProtocol.m Schematik_1.1.5.2_for_3.0/Main.subproj/SchemeProtocol.m
  134. 46c46
  135. < #import <defaults.h>
  136. ---
  137. > #import <defaults/defaults.h>
  138. 49,50c49,50
  139. < #import <mach.h>
  140. < #import <NXCType.h> 
  141. ---
  142. > #import <mach/mach.h>
  143. > #import <appkit/NXCType.h> 
  144. 229a230,231
  145. >     char *host=NXGetDefaultValue([NXApp appName],"NXHost");
  146. >     char *ps=NXGetDefaultValue([NXApp appName],"NXPSName");
  147. 231c233
  148. <     sprintf(buffer,"%i\n%s\n%s\n",windowNum, (NXGetDefaultValue([NXApp appName],"NXHost")?:"\0"), (NXGetDefaultValue([NXApp appName],"NXPSName")?:"\0"));
  149. ---
  150. >     sprintf(buffer,"%i\n%s\n%s\n",windowNum, (host?host:"\0"), (ps?ps:"\0"));
  151.  
  152.