home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archimedes / araaaahlp.txt < prev    next >
Internet Message Format  |  2020-01-01  |  8KB
  1. From: "Andrew Brooks" <arb@computing.lancaster.ac.uk>
  2. Date: Sun Sep 20 15:10:45 BST 1992
  3. Subjects: RISC OS Kermit
  4.  
  5. All of the files are Text files with the exception of kermit (obtained
  6. by uudecoding arkerm.uue) which is of type Absolute.  aruudec.bas is a
  7. uudecoder written in BASIC.
  8.  
  9. Please note that files have been renamed and MUST be changed back to their
  10. original names for use on the Archimedes.  A unix script to do this is
  11. supplied in araaaa.sh.  After this has been done the BASIC program settypes
  12. will restore the original file types and dates.
  13.  
  14. The original release notes are arkerm.ann arkerm.bwr
  15.  
  16. Note that the name of startup script is kermrc_cmd, not kermit.ini
  17.  
  18. Below are the differences between Arthur kermit sources and RISC OS sources.
  19. The main problem is the lack of an arthur.h file with Desktop C.  A replacement
  20. is supplied in the h directory.  Note that you cannot use the original arthur.h
  21. if you still have it as the functions it defines are not present in the Clib
  22. stubs or RISC_OSLib library.  The replacement defines the arthur functions
  23. needed for kermit in terms of the RISC OS equivalents.  The main differences
  24. are: different os_file (etc.) functions and data structures, and a different
  25. swi function.  I am not sure of the semantics of the arthur swi function,
  26. so my replacement may corrupt return registers that the arthur version did not.
  27. It seems to work for me, anyway...
  28.  
  29. Main changes to the source code:
  30. Added extra ANSI checks for function declarations, to get past stricter
  31. compiler checks.
  32. Fixed bug in buffer.c (wrong variable names)
  33. Fixed bug in ckuus2.c (no line continuation characters, osword changed)
  34. Fixed bug in ckcker.h (missing a ~ character and an apostrophe)
  35.  
  36. diffs follow:
  37.  
  38. Only in arthur: 00contents
  39. Only in arthur: araaa.aaa
  40. Only in arthur: arkerm.ann
  41. Only in arthur: arkerm.bwr
  42. Only in arthur: aruudec.bas
  43. Only in arthur: makescr
  44. Only in arthur: objs
  45.  
  46. Only in riscos: Makefile
  47. Only in riscos: Readme
  48. Only in riscos: kermit
  49. Only in riscos: o
  50. Only in riscos/h: arthur
  51. Only in riscos: settypes
  52.  
  53. -------------------------------------------------------------------------------
  54.  
  55. diff +recursive arthur/c/buffer riscos/c/buffer
  56. 5c5
  57. < #include <arthur.h>
  58. ---
  59. > #include "arthur.h"
  60. 27,28c27,28
  61. < static char *headout = rsbufinn;
  62. < static char *tailout = rsbufinn;
  63. ---
  64. > static char *headout = rsbufout;
  65. > static char *tailout = rsbufout;
  66.  
  67. -------------------------------------------------------------------------------
  68.  
  69. diff +recursive arthur/c/ckacom riscos/c/ckacom
  70. 30c30
  71. < #include <arthur.h>
  72. ---
  73. > #include "arthur.h"
  74. 70a71
  75. > #undef vdu
  76.  
  77. -------------------------------------------------------------------------------
  78.  
  79. diff +recursive arthur/c/ckafio riscos/c/ckafio
  80. 281c281,287
  81. < zchout(n,c) int n; char c; {
  82. ---
  83. > zchout(
  84. > #ifdef ANSI
  85. > int n, char c)
  86. > #else
  87. > n,c) int n; char c;
  88. > #endif
  89. > {
  90.  
  91. -------------------------------------------------------------------------------
  92.  
  93. diff +recursive arthur/c/ckamis riscos/c/ckamis
  94. 19c19
  95. < #include <arthur.h>
  96. ---
  97. > #include "arthur.h"
  98.  
  99. -------------------------------------------------------------------------------
  100.  
  101. diff +recursive arthur/c/ckatio riscos/c/ckatio
  102. 346c346,352
  103. < ttoc(c) char c; {
  104. ---
  105. > ttoc(
  106. > #ifdef ANSI
  107. > char c)
  108. > #else
  109. > c) char c;
  110. > #endif
  111. > {
  112. 473c479,485
  113. < concb(esc) char esc; {
  114. ---
  115. > concb(
  116. > #ifdef ANSI
  117. > char esc)
  118. > #else
  119. > esc) char esc;
  120. > #endif
  121. > {
  122. 498c510,516
  123. < conbin(esc) char esc; {
  124. ---
  125. > conbin(
  126. > #ifdef ANSI
  127. > char esc)
  128. > #else
  129. > esc) char esc;
  130. > #endif
  131. > {
  132. 538c556,562
  133. < conoc(c) char c; {
  134. ---
  135. > conoc(
  136. > #ifdef ANSI
  137. > char c)
  138. > #else
  139. > c) char c;
  140. > #endif
  141. > {
  142.  
  143. -------------------------------------------------------------------------------
  144.  
  145. diff +recursive arthur/c/ckaus3 riscos/c/ckaus3
  146. 576c576,582
  147. < rfilop(s,t) char *s, t; {
  148. ---
  149. > rfilop(
  150. > #ifdef ANSI
  151. > char *s, char t)
  152. > #else
  153. > s,t) char *s, t;
  154. > #endif
  155. > {
  156. 599c605,611
  157. < screen(f,c,n,s) int f; long n; char c; char *s; {
  158. ---
  159. > screen(
  160. > #ifdef ANSI
  161. > int f, char c, long n, char *s)
  162. > #else
  163. > f,c,n,s) int f; long n; char c; char *s;
  164. > #endif
  165. > {
  166.  
  167. -------------------------------------------------------------------------------
  168.  
  169. diff +recursive arthur/c/ckausr riscos/c/ckausr
  170. 90c90
  171. < #include <arthur.h>
  172. ---
  173. > #include "arthur.h"
  174. 131,133c131,133
  175. < extern int doarg( char );
  176. < extern int docmd( int );
  177. < extern void shopar( void );
  178. ---
  179. > /*extern*/ int doarg( char );
  180. > /*extern*/ int docmd( int );
  181. > /*extern*/ void shopar( void );
  182. 230c230,236
  183. < doarg(x) char x; {
  184. ---
  185. > doarg(
  186. > #ifdef ANSI
  187. > char x)
  188. > #else
  189. > x) char x;
  190. > #endif
  191. > {
  192. 736c742,748
  193. < setgen(type,arg1,arg2,arg3) char type, *arg1, *arg2, *arg3; {
  194. ---
  195. > setgen(
  196. > #ifdef ANSI
  197. > char type, char *arg1, char *arg2, char *arg3)
  198. > #else
  199. > type,arg1,arg2,arg3) char type, *arg1, *arg2, *arg3;
  200. > #endif
  201. > {
  202.  
  203. -------------------------------------------------------------------------------
  204.  
  205. diff +recursive arthur/c/ckcfn2 riscos/c/ckcfn2
  206. 172c172,178
  207. < dopar (ch) char ch; {
  208. ---
  209. > dopar (
  210. > #ifdef ANSI
  211. > char ch)
  212. > #else
  213. > ch) char ch;
  214. > #endif
  215. > {
  216.  
  217. -------------------------------------------------------------------------------
  218.  
  219. diff +recursive arthur/c/ckuus2 riscos/c/ckuus2
  220. 177,178c177,178
  221. < "                                                                  backspace,                                                                                    space,                                           
  222. <                                        '?',                                                                               linefeed,                                                                               
  223. ---
  224. > "                                                                  backspace,                                                                                    space,                                           \
  225. >                                        '?',                                                                               linefeed,                                                                               \
  226. 181c181
  227. < "uucp systems, sent strings are followed by                                                                                   unless they end with ...............................................................
  228. ---
  229. > "uucp systems, sent strings are followed by                                                                                   unless they end with ...............................................................\
  230.  
  231. -------------------------------------------------------------------------------
  232.  
  233. diff +recursive arthur/c/plib riscos/c/plib
  234. 9c9
  235. < #include <arthur.h>
  236. ---
  237. > #include "arthur.h"
  238. 169c169,173
  239. < SWriteByte( stream, ch )
  240. ---
  241. > SWriteByte( 
  242. > #ifdef ANSI
  243. > int stream, char ch)
  244. > #else
  245. > stream, ch )
  246. 171a176
  247. > #endif
  248. 239c244,248
  249. < XSWriteByte( stream, ch )
  250. ---
  251. > XSWriteByte(
  252. > #ifdef ANSI
  253. > int stream, char ch)
  254. > #else
  255. > stream, ch )
  256. 241a251
  257. > #endif
  258. 939d948
  259. < error *ret;
  260. 942c951
  261. <     if( (ret = osword( 0x0e, time )) != NULL )
  262. ---
  263. >     if( (ret_val = osword( 0x0e, (int*)time )) != NULL )
  264. 944c953
  265. <         fprintf(stderr,"%s (%d)\n",ret->errmess,ret->errnum);
  266. ---
  267. >         fprintf(stderr,"%s (%d)\n",ret_val->errmess,ret_val->errnum);
  268. 959d967
  269. < 
  270. 962c970
  271. <     if( (ret_val = osword( 0x0e, time )) != NULL )
  272. ---
  273. >     if( (ret_val = osword( 0x0e, (int*)time )) != NULL )
  274.  
  275. -------------------------------------------------------------------------------
  276.  
  277. diff +recursive arthur/h/ckcker riscos/h/ckcker
  278. 30c30
  279. < #define MYRPTQ     '            /* Repeat count prefix I will use */
  280. ---
  281. > #define MYRPTQ     '~'            /* Repeat count prefix I will use */
  282.