1 |
/* |
/* |
2 |
* Copyright (C) 2002-2003 Jean-Charles Salzeber <jc@varspool.net> |
* Copyright (C) 2002-2003 Jean-Charles Salzeber <chupa@penggy.org> |
3 |
* |
* |
4 |
* This file is part of penggy. |
* This file is part of penggy. |
5 |
* |
* |
51 |
#include "modem/script.h" |
#include "modem/script.h" |
52 |
|
|
53 |
|
|
54 |
|
/* We're connected */ |
55 |
SCM |
SCM |
56 |
chat_success (void) |
chat_success (void) |
57 |
{ |
{ |
59 |
return SCM_BOOL_T; |
return SCM_BOOL_T; |
60 |
} |
} |
61 |
|
|
62 |
|
/* The script failed to connect */ |
63 |
SCM |
SCM |
64 |
chat_failure (void) |
chat_failure (void) |
65 |
{ |
{ |
67 |
return SCM_BOOL_F; |
return SCM_BOOL_F; |
68 |
} |
} |
69 |
|
|
70 |
|
/* Send a simple a plain text string */ |
71 |
SCM |
SCM |
72 |
chat_send (string) |
chat_send (string) |
73 |
SCM string; |
SCM string; |