/*
- * Hack -- assist "main-acn.c" XXX XXX XXX
+ * Hack -- assist "main-acn.c"
*/
#ifdef ACORN
# define O_RDONLY 0
#endif
/*
- * Hack -- force definitions -- see fd_lock() XXX XXX XXX
+ * Hack -- force definitions -- see fd_lock()
*/
#ifndef F_UNLCK
# define F_UNLCK 0
*
* Note that all "index" values must be "lowercase letters", while
* all "digits" must be "digits". Control characters can be made
- * from any legal characters. XXX XXX XXX
+ * from any legal characters.
*/
-#ifdef VM
-# define A2I(X) alphatoindex(X)
-# define I2A(X) indextoalpha(X)
-# define D2I(X) ((X) - '0')
-# define I2D(X) ((X) + '0')
-# define KTRL(X) ((X) & 0x1F)
-# define ESCAPE '\033'
-#else
-# define A2I(X) ((X) - 'a')
-# define I2A(X) ((X) + 'a')
-# define D2I(X) ((X) - '0')
-# define I2D(X) ((X) + '0')
-# define KTRL(X) ((X) & 0x1F)
-# define ESCAPE '\033'
-#endif
+#define A2I(X) ((X) - 'a')
+#define I2A(X) ((char)(X) + 'a')
+#define D2I(X) ((X) - '0')
+#define I2D(X) ((X) + '0')
+#define KTRL(X) ((X) & 0x1F)
+#define ESCAPE '\033'
/*
* Refer to the member at offset of structure