Commit b555126b authored by Niels Möller's avatar Niels Möller

Changed the magic word from CLASS: to GABA:

Rev: ChangeLog:1.49
Rev: doc/HACKING:1.9
Rev: src/Makefile.am.in:1.39
Rev: src/abstract_compress.c:1.3
Rev: src/abstract_compress.h:1.4
Rev: src/abstract_crypto.c:1.9
Rev: src/abstract_crypto.h:1.21
Rev: src/abstract_io.c:1.3
Rev: src/abstract_io.h:1.23
Rev: src/alist.c:1.17
Rev: src/alist.h:1.12
Rev: src/arcfour.c:1.4
Rev: src/blocking_write.c:1.12
Rev: src/blowfish.c:1.5
Rev: src/cascade.c:1.4
Rev: src/cbc.c:1.5
Rev: src/channel.c:1.29
Rev: src/channel.h:1.27
Rev: src/client.c:1.56
Rev: src/client_keyexchange.c:1.25
Rev: src/client_keyexchange.h:1.12
Rev: src/client_pty.c:1.3
Rev: src/client_userauth.c:1.15
Rev: src/command.c:1.7
Rev: src/command.h:1.9
Rev: src/compress.c:1.5
Rev: src/connection.c:1.27
Rev: src/connection.h:1.26
Rev: src/debug.c:1.26
Rev: src/des.c:1.8
Rev: src/encrypt.c:1.19
Rev: src/hmac.c:1.5
Rev: src/io.c:1.52
Rev: src/io.h:1.31
Rev: src/keyexchange.c:1.46
Rev: src/keyexchange.h:1.32
Rev: src/list.c:1.6
Rev: src/list.h:1.6
Rev: src/lsh.c:1.46
Rev: src/lsh_writekey.c:1.6
Rev: src/lshd.c:1.42
Rev: src/make_class:1.12
Rev: src/md5.c:1.3
Rev: src/pad.c:1.22
Rev: src/password.c:1.3
Rev: src/password.h:1.12
Rev: src/publickey_crypto.c:1.30
Rev: src/publickey_crypto.h:1.20
Rev: src/randomness.c:1.15
Rev: src/randomness.h:1.9
Rev: src/read_data.c:1.17
Rev: src/read_line.c:1.21
Rev: src/read_line.h:1.13
Rev: src/read_packet.c:1.33
Rev: src/read_scan.c:1.5
Rev: src/read_scan.h:1.5
Rev: src/reaper.c:1.11
Rev: src/reaper.h:1.6
Rev: src/resource.c:1.6
Rev: src/resource.h:1.6
Rev: src/server.c:1.49
Rev: src/server_keyexchange.c:1.25
Rev: src/server_password.c:1.16
Rev: src/server_pty.c:1.8
Rev: src/server_pty.h:1.6
Rev: src/server_userauth.c:1.9
Rev: src/service.c:1.14
Rev: src/service.h:1.13
Rev: src/sexp.c:1.14
Rev: src/sexp.h:1.15
Rev: src/sexp_streamed_parser.c:1.6
Rev: src/sexp_test.c:1.6
Rev: src/sha.c:1.3
Rev: src/ssh1_fallback.c:1.6
Rev: src/ssh1_fallback.h:1.4
Rev: src/tcpforward.c:1.4
Rev: src/tcpforward.h:1.2
Rev: src/twofish.c:1.3
Rev: src/userauth.c:1.3
Rev: src/userauth.h:1.10
Rev: src/write_buffer.c:1.16
Rev: src/write_buffer.h:1.15
Rev: src/zlib.c:1.17
parent 73da9c12
Fri Mar 12 02:00:53 1999 Niels Mller <nisse@lysator.liu.se>
* src/tcpforward.c (tcpforward-foo): Added a first test expression
for the compiler.
* src/make_class: Changed the magic tag. Now is "/* GABA:".
(process-expr): New function interfacing to compiler.scm.
(process-input, process-class): Splitted the process-class
function into several functions.
* src/command.c (gaba_apply, gaba_apply_S_1, gaba_apply_S_2): New
functions, to be called by automatically generated code.
(command_K, command_K_1) : Implemented the K combinator.
Thu Mar 11 18:07:25 1999 <nisse@idonex.se>
* src/bignum.c (bignum_next_prime): Fixed off-by-one overflow.
......
......@@ -36,7 +36,7 @@ debugging easier.
An example might make this clearer. The definition of a write handler,
taken from abstract_io.h:
/* CLASS:
/* GABA:
(class
(name abstract_write)
(vars
......@@ -46,7 +46,7 @@ taken from abstract_io.h:
#define A_WRITE(f, packet) ((f)->write((f), (packet)))
/* A handler that passes packets on to another handler */
/* CLASS:
/* GABA:
(class
(name abstract_write_pipe)
(super abstract_write)
......@@ -131,7 +131,7 @@ hundred lines long.
Classes are written inside C comments. For each definition the source
file contains a line
/* CLASS:
/* GABA:
followed by an s-expression. There are a few different kinds of
definitions. The most important is the class-expression, which looks
......
......@@ -143,7 +143,7 @@ MAINTAINERCLEANFILES += $(DEP_FILES)
# This is GNU make specific
%.x: % $(srcdir)/make_class
%.x: % $(srcdir)/make_class $(srcdir)/compiler.scm
$(SCHEME) -e main -s $(srcdir)/make_class <$< >$@T
test -s $@T && mv -f $@T $@
......
......@@ -26,6 +26,6 @@
#include "abstract_compress.h"
#define CLASS_DEFINE
#define GABA_DEFINE
#include "abstract_compress.h.x"
#undef CLASS_DEFINE
#undef GABA_DEFINE
......@@ -28,11 +28,11 @@
#include "lsh.h"
#define CLASS_DECLARE
#define GABA_DECLARE
#include "abstract_compress.h.x"
#undef CLASS_DECLARE
#undef GABA_DECLARE
/* CLASS:
/* GABA:
(class
(name compress_instance)
(vars
......@@ -46,7 +46,7 @@
#define COMPRESS_DEFLATE 0
#define COMPRESS_INFLATE 1
/* CLASS:
/* GABA:
(class
(name compress_algorithm)
(vars
......
......@@ -30,9 +30,9 @@
#include <assert.h>
#include <string.h>
#define CLASS_DEFINE
#define GABA_DEFINE
#include "abstract_crypto.h.x"
#undef CLASS_DEFINE
#undef GABA_DEFINE
#include "abstract_crypto.c.x"
......@@ -40,7 +40,7 @@
/* Inverts the encryption mode (needed for the EDE-operation of
* triple DES). */
/* CLASS:
/* GABA:
(class
(name crypto_inverted)
(super crypto_algorithm)
......
......@@ -34,11 +34,11 @@
#define mac_instance hash_instance
#define mac_size hash_size
#define CLASS_DECLARE
#define GABA_DECLARE
#include "abstract_crypto.h.x"
#undef CLASS_DECLARE
#undef GABA_DECLARE
/* CLASS:
/* GABA:
(class
(name crypto_instance)
(vars
......@@ -55,7 +55,7 @@
#define CRYPTO_ENCRYPT 0
#define CRYPTO_DECRYPT 1
/* CLASS:
/* GABA:
(class
(name crypto_algorithm)
(vars
......@@ -77,7 +77,7 @@
/* FIXME: Hashes could use non-virtual methods. */
/* CLASS:
/* GABA:
(class
(name hash_instance)
(vars
......@@ -96,7 +96,7 @@
#define HASH_COPY(instance) ((instance)->copy((instance)))
/* CLASS:
/* GABA:
(class
(name hash_algorithm)
(vars
......@@ -107,7 +107,7 @@
#define MAKE_HASH(h) ((h)->make_hash((h)))
/* CLASS:
/* GABA:
(class
(name mac_algorithm)
(vars
......@@ -118,7 +118,7 @@
#define MAKE_MAC(m, key) ((m)->make_mac((m), (key)))
/* CLASS:
/* GABA:
(class
(name signer)
(vars
......@@ -129,7 +129,7 @@
#define SIGN(signer, length, data) ((signer)->sign((signer), (length), (data)))
/* CLASS:
/* GABA:
(class
(name verifier)
(vars
......@@ -141,7 +141,7 @@
#define VERIFY(verifier, length, data, slength, sdata)\
((verifier)->verify((verifier), (length), (data), (slength), (sdata)))
/* CLASS:
/* GABA:
(class
(name signature_algorithm)
(vars
......
......@@ -25,6 +25,6 @@
#include "abstract_io.h"
#define CLASS_DEFINE
#define GABA_DEFINE
#include "abstract_io.h.x"
#undef CLASS_DEFINE
#undef GABA_DEFINE
......@@ -28,9 +28,9 @@
#include "lsh.h"
#define CLASS_DECLARE
#define GABA_DECLARE
#include "abstract_io.h.x"
#undef CLASS_DECLARE
#undef GABA_DECLARE
/* A read-function returning n means:
*
......@@ -42,7 +42,7 @@
#define A_FAIL -1
#define A_EOF -2
/* CLASS:
/* GABA:
(class
(name abstract_read)
(vars
......@@ -55,7 +55,7 @@
/* May store a new handler into *h. */
/* CLASS:
/* GABA:
(class
(name read_handler)
(vars
......@@ -64,7 +64,7 @@
#define READ_HANDLER(h, read) ((h)->handler(&(h), (read)))
/* CLASS:
/* GABA:
(class
(name abstract_write)
(vars
......@@ -74,7 +74,7 @@
#define A_WRITE(f, packet) ((f)->write((f), (packet)))
/* A handler that passes packets on to another handler */
/* CLASS:
/* GABA:
(class
(name abstract_write_pipe)
(super abstract_write)
......
......@@ -32,9 +32,9 @@
#include <assert.h>
#define CLASS_DEFINE
#define GABA_DEFINE
#include "alist.h.x"
#undef CLASS_DEFINE
#undef GABA_DEFINE
struct alist *alist_addv(struct alist *a, unsigned n, va_list args)
{
......@@ -90,7 +90,7 @@ static void do_linked_set(struct alist *c, int atom, void *value);
/* NOTE: For a linear alist, all keys must be non-negative and less
* than NUMBER_OF_ATOMS. */
/* CLASS:
/* GABA:
(class
(name alist_linear)
(super alist)
......@@ -159,7 +159,7 @@ struct alist *make_linear_alist(unsigned n, ...)
/* NOTE: A linked alist does not have any limit on the size of its keys. */
/* CLASS:
/* GABA:
(class
(name alist_linked)
(super alist)
......
......@@ -33,9 +33,9 @@
/* Forward declaration */
struct alist;
#define CLASS_DECLARE
#define GABA_DECLARE
#include "alist.h.x"
#undef CLASS_DECLARE
#undef GABA_DECLARE
/* Not supported anymore */
/* #define ALIST_USE_SIZE 0 */
......@@ -43,7 +43,7 @@ struct alist;
/* Abstract interface allows for multiple implementations ("real"
* alists, linear tables, hash tables */
/* CLASS:
/* GABA:
(meta
(name alist)
(methods
......@@ -51,7 +51,7 @@ struct alist;
"void (*set)(struct alist *self, int atom, void *value)"))
*/
/* CLASS:
/* GABA:
(class
(name alist)
(meta alist)
......
......@@ -30,7 +30,7 @@
#include "arcfour.c.x"
/* CLASS:
/* GABA:
(class
(name arcfour_instance)
(super crypto_instance)
......
......@@ -26,7 +26,7 @@
#include "io.h"
#include "xalloc.h"
/* CLASS:
/* GABA:
(class
(name blocking_write)
(super abstract_write)
......
......@@ -33,7 +33,7 @@
#include "blowfish.c.x"
/* Blowfish */
/* CLASS:
/* GABA:
(class
(name blowfish_instance)
(super crypto_instance)
......
......@@ -31,7 +31,7 @@
#include "cascade.c.x"
/* CLASS:
/* GABA:
(class
(name crypto_cascade_algorithm)
(super crypto_algorithm)
......@@ -39,7 +39,7 @@
(cascade object object_list)))
*/
/* CLASS:
/* GABA:
(class
(name crypto_cascade_instance)
(super crypto_instance)
......
......@@ -34,7 +34,7 @@
#include "memxor.h"
#endif
/* CLASS:
/* GABA:
(class
(name cbc_algorithm)
(super crypto_algorithm)
......@@ -42,7 +42,7 @@
(inner object crypto_algorithm)))
*/
/* CLASS:
/* GABA:
(class
(name cbc_instance)
(super crypto_instance)
......
......@@ -35,13 +35,13 @@
#include <assert.h>
#include <string.h>
#define CLASS_DEFINE
#define GABA_DEFINE
#include "channel.h.x"
#undef CLASS_DEFINE
#undef GABA_DEFINE
#include "channel.c.x"
/* CLASS:
/* GABA:
(class
(name connection_service)
(super ssh_service)
......@@ -57,7 +57,7 @@
(start object connection_startup)))
*/
/* CLASS:
/* GABA:
(class
(name global_request_handler)
(super packet_handler)
......@@ -65,7 +65,7 @@
(global_requests object alist)))
*/
/* CLASS:
/* GABA:
(class
(name channel_open_handler)
(super packet_handler)
......@@ -73,7 +73,7 @@
(channel_types object alist)))
*/
/* CLASS:
/* GABA:
(class
(name channel_open_response)
(super channel_open_callback)
......@@ -1184,7 +1184,7 @@ struct lsh_string *channel_transmit_extended(struct ssh_channel *channel,
}
/* Writing data to a channel */
/* CLASS:
/* GABA:
(class
(name channel_write)
(super abstract_write)
......@@ -1192,7 +1192,7 @@ struct lsh_string *channel_transmit_extended(struct ssh_channel *channel,
(channel object ssh_channel)))
*/
/* CLASS:
/* GABA:
(class
(name channel_write_extended)
(super channel_write)
......@@ -1254,7 +1254,7 @@ struct read_handler *make_channel_read_stderr(struct ssh_channel *channel)
SSH_EXTENDED_DATA_STDERR));
}
/* CLASS:
/* GABA:
(class
(name channel_close_callback)
(super close_callback)
......
......@@ -30,9 +30,9 @@
#include "parse.h"
#include "server_pty.h"
#define CLASS_DECLARE
#define GABA_DECLARE
#include "channel.h.x"
#undef CLASS_DECLARE
#undef GABA_DECLARE
/* Channels are indexed by local channel number in some array. This
* index is not stored in the channel struct. When sending messages on
......@@ -50,7 +50,7 @@
/* Means that we should send close when we have both sent and received EOF. */
#define CHANNEL_CLOSE_AT_EOF 0x10
/* CLASS:
/* GABA:
(class
(name ssh_channel)
(vars
......@@ -136,7 +136,7 @@
/* FIXME: Perhaps, this information is better kept in the connection
* object? */
/* CLASS:
/* GABA:
(class
(name channel_table)
(vars
......@@ -168,7 +168,7 @@
*/
/* SSH_MSG_GLOBAL_REQUEST */
/* CLASS:
/* GABA:
(class
(name global_request)
(vars
......@@ -183,7 +183,7 @@
/* Callback function, used to report success or failure for a
* requested channel open. */
/* CLASS:
/* GABA:
(class
(name channel_open_callback)
(vars
......@@ -214,7 +214,7 @@
#define CHANNEL_OPEN_CALLBACK(c, ch, e, m, a) \
(c)->response((c), (ch), (e), (m), (a))
/* CLASS:
/* GABA:
(class
(name channel_open)
(vars
......@@ -228,7 +228,7 @@
((o)->handler((o), (c), (d), (n)))
/* SSH_MSG_CHANNEL_REQUEST */
/* CLASS:
/* GABA:
(class
(name channel_request)
(vars
......@@ -242,7 +242,7 @@
#define CHANNEL_REQUEST(s, c, conn, w, a) \
((s)->handler((s), (c), (conn), (w), (a)))
/* CLASS:
/* GABA:
(class
(name connection_startup)
(vars
......
......@@ -53,7 +53,7 @@
#include "client.c.x"
/* Handle connection and initial handshaking. */
/* CLASS:
/* GABA:
(class
(name client_callback)
(super fd_callback)
......@@ -102,7 +102,7 @@ static int client_initiate(struct fd_callback **c,
NULL);
}
/* CLASS:
/* GABA:
(class
(name client_line_handler)
(super line_handler)
......@@ -226,7 +226,7 @@ struct close_callback *make_client_close_handler(void)
}
/* Start a service that the server has accepted (for instance ssh-userauth). */
/* CLASS:
/* GABA:
(class
(name accept_service_handler)
(super packet_handler)
......@@ -275,7 +275,7 @@ struct packet_handler *make_accept_service_handler(int service_name,
return &closure->super;
}
/* CLASS:
/* GABA:
(class
(name service_request)
(super ssh_service)
......@@ -308,7 +308,7 @@ struct ssh_service *request_service(int service_name,
return &closure->super;
}
/* CLASS:
/* GABA:
(class
(name request_info)
(vars
......@@ -327,7 +327,7 @@ struct ssh_service *request_service(int service_name,
#define REQUEST_RESULT(r, c, i) ((r)->result((r), (c), (i)))
/* Initiate and manage a session */
/* CLASS:
/* GABA:
(class
(name client_session)
(super ssh_channel)
......@@ -376,7 +376,7 @@ static int client_session_die(struct ssh_channel *c)
exit(EXIT_FAILURE);
}
/* CLASS:
/* GABA:
(class
(name exit_handler)
(super channel_request)
......@@ -693,7 +693,7 @@ static struct ssh_channel *make_client_session(struct io_fd *in,
return &self->super;
}
/* CLASS:
/* GABA:
(class
(name client_startup)
(super connection_startup)
......@@ -754,7 +754,7 @@ struct connection_startup *make_client_startup(struct io_fd *in,
}
/* FIXME: This should probably move to client_pty */
/* CLASS:
/* GABA:
(class
(name pty_request)
(super request_info)
......
......@@ -30,13 +30,13 @@
#include "werror.h"
#include "xalloc.h"
#define CLASS_DEFINE
#define GABA_DEFINE
#include "client_keyexchange.h.x"
#undef CLASS_DEFINE
#undef GABA_DEFINE
#include "client_keyexchange.c.x"
/* CLASS:
/* GABA:
(class
(name dh_client_exchange)
(super keyexchange_algorithm)
......@@ -46,7 +46,7 @@
*/
/* Handler for the kex_dh_reply message */
/* CLASS:
/* GABA:
(class
(name dh_client)
(super packet_handler)
......
......@@ -29,9 +29,9 @@
#include "keyexchange.h"
#include "publickey_crypto.h"
#define CLASS_DECLARE
#define GABA_DECLARE
#include "client_keyexchange.h.x"
#undef CLASS_DECLARE
#undef GABA_DECLARE
/* Maps a key blob to a signature verifier, using some signature
* algorithm and some method to determine the authenticity of the key.
......@@ -39,7 +39,7 @@
/* FIXME: This function needs the hostname we are connecting to. */
/* CLASS:
/* GABA:
(class
(name lookup_verifier)
(vars
......
......@@ -25,7 +25,7 @@
#warning client_pty.c is currently not used.
/* CLASS:
/* GABA:
(class
(name pty_request)
(super request_info)
......
......@@ -53,7 +53,7 @@ static struct packet_handler *make_banner_handler(void);
#include "client_userauth.c.x"
/* CLASS:
/* GABA:
(class
(name client_userauth)
(super ssh_service)
......@@ -67,7 +67,7 @@ static struct packet_handler *make_banner_handler(void);
))
*/
/* CLASS:
/* GABA:
(class
(name success_handler)
(super packet_handler)
......@@ -75,7 +75,7 @@ static struct packet_handler *make_banner_handler(void);
(service object ssh_service)))
*/
/* CLASS:
/* GABA:
(class
(name failure_handler)
(super packet_handler)
......
......@@ -27,13 +27,13 @@
#include "io.h"
#include "xalloc.h"
#define CLASS_DEFINE
#define GABA_DEFINE
#include "command.h.x"
#undef CLASS_DEFINE