summaryrefslogtreecommitdiff
path: root/ace/Svc_Conf.y
diff options
context:
space:
mode:
Diffstat (limited to 'ace/Svc_Conf.y')
-rw-r--r--ace/Svc_Conf.y347
1 files changed, 0 insertions, 347 deletions
diff --git a/ace/Svc_Conf.y b/ace/Svc_Conf.y
deleted file mode 100644
index b75324a7c52..00000000000
--- a/ace/Svc_Conf.y
+++ /dev/null
@@ -1,347 +0,0 @@
-%{
-#define ACE_BUILD_DLL
-#include "ace/ARGV.h"
-#include "ace/Svc_Conf.h"
-#include "ace/Module.h"
-#include "ace/Stream.h"
-
-static ACE_Module_Type *get_module (ACE_Static_Node *str_rec, ACE_Static_Node *svc_type);
-static ACE_Module_Type *get_module (ACE_Static_Node *str_rec, const char *svc_name);
-
-#define YYDEBUG_LEXER_TEXT (yytext[yyleng] = '\0', yytext)
-// Force the pretty debugging code to compile.
-#define YYDEBUG 1
-
-// Efficient memory allocation technique.
-ACE_Obstack *ace_obstack;
-
-%}
-%token ACE_DYNAMIC ACE_STATIC ACE_SUSPEND ACE_RESUME ACE_REMOVE ACE_USTREAM
-%token ACE_MODULE_T ACE_STREAM_T ACE_SVC_OBJ_T ACE_ACTIVE ACE_INACTIVE
-%token ACE_PATHNAME ACE_IDENT ACE_STRING
-%token ACE_LPAREN ACE_RPAREN ACE_LBRACE ACE_RBRACE ACE_STAR ACE_COLON
-
-%start svc_config_entries
-
-%type <ident_> ACE_IDENT ACE_STRING ACE_PATHNAME pathname parameters_opt
-%type <type_> type status
-%type <parse_node_> dynamic static suspend resume remove module_list stream
-%type <parse_node_> stream_modules module svc_config_entry
-%type <ACE_Static_Node_> stream_ops
-%type <svc_record_> svc_location
-%type <location_node_> svc_initializer
-
-%%
-
-svc_config_entries
- : svc_config_entries svc_config_entry
- {
- $2->apply (); delete $2; ace_obstack->release ();
- }
- | svc_config_entries error
- {
- ace_obstack->release ();
- }
- | /* EMPTY */
- ;
-
-svc_config_entry
- : dynamic
- | static
- | suspend
- | resume
- | remove
- | stream
- ;
-
-dynamic
- : ACE_DYNAMIC svc_location parameters_opt
- {
- $$ = new ACE_Dynamic_Node ($2, $3);
- }
- ;
-
-static
- : ACE_STATIC ACE_IDENT parameters_opt
- {
- $$ = new ACE_Static_Node ($2, $3);
- }
- ;
-
-suspend
- : ACE_SUSPEND ACE_IDENT
- {
- $$ = new ACE_Suspend_Node ($2);
- }
- ;
-
-resume
- : ACE_RESUME ACE_IDENT
- {
- $$ = new ACE_Resume_Node ($2);
- }
- ;
-
-remove
- : ACE_REMOVE ACE_IDENT
- {
- $$ = new ACE_Remove_Node ($2);
- }
- ;
-
-stream
- : ACE_USTREAM stream_ops stream_modules
- {
- $$ = new ACE_Stream_Node ($2, $3);
- }
- | ACE_USTREAM ACE_IDENT { $<ACE_Static_Node_>$ = new ACE_Static_Node ($2); } stream_modules
- {
- $$ = new ACE_Dummy_Node ($<ACE_Static_Node_>3, $4);
- }
- ;
-
-stream_ops
- : dynamic
- {
- }
- | static
- {
- }
- ;
-
-stream_modules
- : ACE_LBRACE
- {
- // Initialize left context...
- $<ACE_Static_Node_>$ = $<ACE_Static_Node_>0;
- }
- module_list ACE_RBRACE
- {
- $$ = $3;
- }
- | /* EMPTY */ { $$ = 0; }
- ;
-
-module_list
- : module_list module { $2->link ($1); $$ = $2; }
- | /* EMPTY */ { $$ = 0; }
- ;
-
-module
- : dynamic
- {
- ACE_ARGV args ($<ACE_Static_Node_>1->parameters ());
- ACE_Module_Type *mt = get_module ($<ACE_Static_Node_>-1, $<ACE_Static_Node_>1);
-
- if (::strcmp ($<ACE_Static_Node_>1->name (),
- ((MT_Module *) mt->object ())->name ()) != 0)
- ACE_ERROR ((LM_ERROR, "warning, service name %s is different from Module name %s\n",
- $<ACE_Static_Node_>1->name (), ((MT_Module *) mt->object ())->name ()));
-
- if (mt->init (args.argc (), args.argv ()) == -1
- || ((ACE_Stream_Type *) ($<ACE_Static_Node_>-1)->record ()->type ())->push (mt) == -1)
- {
- ACE_ERROR ((LM_ERROR, "dynamic initialization failed for Module %s\n",
- $<ACE_Static_Node_>1->name ()));
- yyerrno++;
- }
- }
- | static
- {
- ACE_Module_Type *mt = get_module ($<ACE_Static_Node_>-1, $<ACE_Static_Node_>1->name ());
- if (::strcmp ($<ACE_Static_Node_>1->name (),
- ((MT_Module *) mt->object ())->name ()) != 0)
- ACE_ERROR ((LM_ERROR, "warning, service name %s is different from Module name %s\n",
- $<ACE_Static_Node_>1->name (), ((MT_Module *) mt->object ())->name ()));
- if (((ACE_Stream_Type *) ($<ACE_Static_Node_>-1)->record ()->type ())->push (mt) == -1)
- yyerrno++;
- }
- | suspend
- {
- ACE_Module_Type *mt = get_module ($<ACE_Static_Node_>-1, $<ACE_Static_Node_>1->name ());
- if (mt != 0)
- mt->suspend ();
- }
- | resume
- {
- ACE_Module_Type *mt = get_module ($<ACE_Static_Node_>-1, $<ACE_Static_Node_>1->name ());
- if (mt != 0)
- mt->resume ();
- }
- | remove
- {
- ACE_Module_Type *mt = get_module ($<ACE_Static_Node_>-1, $<ACE_Static_Node_>1->name ());
- if (mt != 0
- && ((ACE_Stream_Type *) ($<ACE_Static_Node_>-1)->record ()->type ())->remove (mt) == -1)
- {
- ACE_ERROR ((LM_ERROR, "cannot remove Module_Type %s from STREAM_Type %s\n",
- $<ACE_Static_Node_>1->name (), ($<ACE_Static_Node_>-1)->name ()));
- yyerrno++;
- }
- }
- ;
-
-svc_location
- : ACE_IDENT type svc_initializer status
- {
- unsigned int flags
- = ACE_Service_Type::DELETE_THIS | ($3->dispose () == 0 ? 0 : ACE_Service_Type::DELETE_OBJ);
- ACE_Service_Type *stp = ace_create_service_type ($1, $2, $3->symbol (), flags);
- $$ = new ACE_Service_Record ($1, stp, $3->handle (), $4);
- }
- ;
-
-status
- : ACE_ACTIVE
- {
- $$ = 1;
- }
- | ACE_INACTIVE
- {
- $$ = 0;
- }
- | /* EMPTY */
- {
- $$ = 1;
- }
- ;
-
-svc_initializer
- : pathname ACE_COLON ACE_IDENT
- {
- $$ = new ACE_Object_Node ($1, $3);
- }
- | pathname ACE_COLON ACE_IDENT ACE_LPAREN ACE_RPAREN
- {
- $$ = new ACE_Function_Node ($1, $3);
- }
- ;
-
-type
- : ACE_MODULE_T ACE_STAR
- {
- $$ = ACE_MODULE_T;
- }
- | ACE_SVC_OBJ_T ACE_STAR
- {
- $$ = ACE_SVC_OBJ_T;
- }
- | ACE_STREAM_T ACE_STAR
- {
- $$ = ACE_STREAM_T;
- }
- ;
-
-parameters_opt
- : ACE_STRING
- | /* EMPTY */ { $$ = 0; }
- ;
-
-pathname
- : ACE_PATHNAME
- | ACE_IDENT
- ;
-
-%%
-// Prints the error string to standard output. Cleans up the error
-// messages.
-
-void
-yyerror (char *s)
-{
- ACE_ERROR ((LM_ERROR, "[error %d] on line %d: %s\n",
- ++yyerrno, yylineno, s));
-}
-
-// Note that SRC_REC represents left context, which is the STREAM *
-// record.
-
-static ACE_Module_Type *
-get_module (ACE_Static_Node *str_rec, const char *svc_name)
-{
- const ACE_Service_Record *sr = str_rec->record ();
- const ACE_Service_Type *type = sr->type ();
- ACE_Stream_Type *st = sr == 0 ? 0 : (ACE_Stream_Type *) type;
- ACE_Module_Type *mt = st == 0 ? 0 : st->find (svc_name);
-
- if (sr == 0 || st == 0 || mt == 0)
- {
- ACE_ERROR ((LM_ERROR, "cannot locate Module_Type %s in STREAM_Type %s\n",
- svc_name, str_rec->name ()));
- yyerrno++;
- }
- return mt;
-}
-
-static ACE_Module_Type *
-get_module (ACE_Static_Node *str_rec, ACE_Static_Node *svc_type)
-{
- const ACE_Service_Record *sr = str_rec->record ();
- const ACE_Service_Type *type = sr->type ();
- ACE_Stream_Type *st = sr == 0 ? 0 : (ACE_Stream_Type *) type;
- const ACE_Service_Record *sv = svc_type->record ();
- type = sv->type ();
- ACE_Module_Type *mt = (ACE_Module_Type *) type;
-
- if (sr == 0 || st == 0 || mt == 0)
- {
- ACE_ERROR ((LM_ERROR, "cannot locate Module_Type %s or STREAM_Type %s\n",
- svc_type->name (), str_rec->name ()));
- yyerrno++;
- }
- return mt;
-}
-
-ACE_Service_Type *
-ace_create_service_type (const char *name,
- int type,
- const void *symbol,
- unsigned int flags)
-{
- ACE_Service_Type *stp = 0;
-
- // Note, the only place we need to put a case statement. This is
- // also the place where we'd put the RTTI tests, if the compiler
- // actually supported them!
-
- switch (type)
- {
- case ACE_SVC_OBJ_T:
- stp = new ACE_Service_Object_Type ((ACE_Service_Object *) symbol, name, flags);
- break;
- case ACE_MODULE_T:
- stp = new ACE_Module_Type ((MT_Module *) symbol, name, flags);
- break;
- case ACE_STREAM_T:
- stp = new ACE_Stream_Type ((MT_Stream *) symbol, name, flags);
- break;
- default:
- ACE_ERROR ((LM_ERROR, "unknown case\n"));
- yyerrno++;
- break;
- }
- return stp;
-}
-
-#if defined (DEBUGGING)
-// Current line number.
-int yylineno = 1;
-
-// Name given on the command-line to envoke the program.
-char *program_name;
-
-// Main driver program.
-
-int
-main (int argc, char *argv[])
-{
- yyin = stdin;
- ace_obstack = new ACE_Obstack;
-
- // Try to reopen any filename argument to use YYIN.
- if (argc > 1 && (yyin = freopen (argv[1], "r", stdin)) == 0)
- (void) ::fprintf (stderr, "usage: %s [file]\n", argv[0]), exit (1);
-
- return yyparse ();
-}
-#endif /* DEBUGGING */
View Lorry Controller Status