-
-static void
-start_input_smobs ()
-{
- input_tag = scm_make_smob_type ("input", 0);
- scm_set_smob_mark (input_tag, mark_smob);
- scm_set_smob_free (input_tag, free_smob);
- scm_set_smob_print (input_tag, print_smob);
- scm_set_smob_equalp (input_tag, equal_smob);
-}
-
-SCM
-make_input (Input ip)
-{
- Input *nip = new Input (ip);
- SCM z;
-
- SCM_NEWSMOB (z, input_tag, nip);
- return z;
-}
-
-Input *
-unsmob_input (SCM s)
-{
- if (SCM_IMP (s))
- return 0;
- if (SCM_CAR (s) == (SCM)input_tag) // ugh.
- return (Input *) SCM_CDR (s);
- else
- return 0;
-}
-
-ADD_SCM_INIT_FUNC (input, start_input_smobs);
-