1
1
openmpi/orte/util/hostfile/hostfile_lex.l

186 строки
6.9 KiB
Plaintext
Исходник Обычный вид История

%{ /* -*- C -*- */
/*
* Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
* University Research and Technology
* Corporation. All rights reserved.
* Copyright (c) 2004-2006 The University of Tennessee and The University
* of Tennessee Research Foundation. All rights
* reserved.
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
* University of Stuttgart. All rights reserved.
* Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/
#include "orte_config.h"
#include <stdio.h>
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#include "orte/util/hostfile/hostfile_lex.h"
/*
* local functions
*/
- Replace combinations of #if defined (c_plusplus) defined (__cplusplus) followed by extern "C" { and the closing counterpart by BEGIN_C_DECLS and END_C_DECLS. Notable exceptions are: - opal/include/opal_config_bottom.h: This is our generated code, that itself defines BEGIN_C_DECL and END_C_DECL - ompi/mpi/cxx/mpicxx.h: Here we do not include opal_config_bottom.h: - Belongs to external code: opal/mca/backtrace/darwin/MoreBacktrace/MoreDebugging/MoreBacktrace.c opal/mca/backtrace/darwin/MoreBacktrace/MoreDebugging/MoreBacktrace.h - opal/include/opal/prefetch.h: Has C++ specific macros that are protected: - Had #if ... } #endif _and_ END_C_DECLS (aka end up with 2x END_C_DECLS) ompi/mca/btl/openib/btl_openib.h - opal/event/event.h has #ifdef __cplusplus as BEGIN_C_DECLS... - opal/win32/ompi_process.h: had extern "C"\n {... opal/win32/ompi_process.h: dito - ompi/mca/btl/pcie/btl_pcie_lex.l: needed to add *_C_DECLS ompi/mpi/f90/test/align_c.c: dito - ompi/debuggers/msgq_interface.h: used #ifdef __cplusplus - ompi/mpi/f90/xml/common-C.xsl: Amend Tested on linux using --with-openib and --with-mx The following do not contain either opal_config.h, orte_config.h or ompi_config.h (but possibly other header files, that include one of the above): ompi/mca/bml/r2/bml_r2_ft.h ompi/mca/btl/gm/btl_gm_endpoint.h ompi/mca/btl/gm/btl_gm_proc.h ompi/mca/btl/mx/btl_mx_endpoint.h ompi/mca/btl/ofud/btl_ofud_endpoint.h ompi/mca/btl/ofud/btl_ofud_frag.h ompi/mca/btl/ofud/btl_ofud_proc.h ompi/mca/btl/openib/btl_openib_mca.h ompi/mca/btl/portals/btl_portals_endpoint.h ompi/mca/btl/portals/btl_portals_frag.h ompi/mca/btl/sctp/btl_sctp_endpoint.h ompi/mca/btl/sctp/btl_sctp_proc.h ompi/mca/btl/tcp/btl_tcp_endpoint.h ompi/mca/btl/tcp/btl_tcp_ft.h ompi/mca/btl/tcp/btl_tcp_proc.h ompi/mca/btl/template/btl_template_endpoint.h ompi/mca/btl/template/btl_template_proc.h ompi/mca/btl/udapl/btl_udapl_eager_rdma.h ompi/mca/btl/udapl/btl_udapl_endpoint.h ompi/mca/btl/udapl/btl_udapl_mca.h ompi/mca/btl/udapl/btl_udapl_proc.h ompi/mca/mtl/mx/mtl_mx_endpoint.h ompi/mca/mtl/mx/mtl_mx.h ompi/mca/mtl/psm/mtl_psm_endpoint.h ompi/mca/mtl/psm/mtl_psm.h ompi/mca/pml/cm/pml_cm_component.h ompi/mca/pml/csum/pml_csum_comm.h ompi/mca/pml/dr/pml_dr_comm.h ompi/mca/pml/dr/pml_dr_component.h ompi/mca/pml/dr/pml_dr_endpoint.h ompi/mca/pml/dr/pml_dr_recvfrag.h ompi/mca/pml/example/pml_example.h ompi/mca/pml/ob1/pml_ob1_comm.h ompi/mca/pml/ob1/pml_ob1_component.h ompi/mca/pml/ob1/pml_ob1_endpoint.h ompi/mca/pml/ob1/pml_ob1_rdmafrag.h ompi/mca/pml/ob1/pml_ob1_recvfrag.h ompi/mca/pml/v/pml_v_output.h opal/include/opal/prefetch.h opal/mca/timer/aix/timer_aix.h opal/util/qsort.h test/support/components.h This commit was SVN r21855. The following SVN revision numbers were found above: r2 --> open-mpi/ompi@58fdc188553052bc2e893ba28fb28fddbe78435a
2009-08-20 15:42:18 +04:00
BEGIN_C_DECLS
int orte_util_hostfile_wrap(void);
- Replace combinations of #if defined (c_plusplus) defined (__cplusplus) followed by extern "C" { and the closing counterpart by BEGIN_C_DECLS and END_C_DECLS. Notable exceptions are: - opal/include/opal_config_bottom.h: This is our generated code, that itself defines BEGIN_C_DECL and END_C_DECL - ompi/mpi/cxx/mpicxx.h: Here we do not include opal_config_bottom.h: - Belongs to external code: opal/mca/backtrace/darwin/MoreBacktrace/MoreDebugging/MoreBacktrace.c opal/mca/backtrace/darwin/MoreBacktrace/MoreDebugging/MoreBacktrace.h - opal/include/opal/prefetch.h: Has C++ specific macros that are protected: - Had #if ... } #endif _and_ END_C_DECLS (aka end up with 2x END_C_DECLS) ompi/mca/btl/openib/btl_openib.h - opal/event/event.h has #ifdef __cplusplus as BEGIN_C_DECLS... - opal/win32/ompi_process.h: had extern "C"\n {... opal/win32/ompi_process.h: dito - ompi/mca/btl/pcie/btl_pcie_lex.l: needed to add *_C_DECLS ompi/mpi/f90/test/align_c.c: dito - ompi/debuggers/msgq_interface.h: used #ifdef __cplusplus - ompi/mpi/f90/xml/common-C.xsl: Amend Tested on linux using --with-openib and --with-mx The following do not contain either opal_config.h, orte_config.h or ompi_config.h (but possibly other header files, that include one of the above): ompi/mca/bml/r2/bml_r2_ft.h ompi/mca/btl/gm/btl_gm_endpoint.h ompi/mca/btl/gm/btl_gm_proc.h ompi/mca/btl/mx/btl_mx_endpoint.h ompi/mca/btl/ofud/btl_ofud_endpoint.h ompi/mca/btl/ofud/btl_ofud_frag.h ompi/mca/btl/ofud/btl_ofud_proc.h ompi/mca/btl/openib/btl_openib_mca.h ompi/mca/btl/portals/btl_portals_endpoint.h ompi/mca/btl/portals/btl_portals_frag.h ompi/mca/btl/sctp/btl_sctp_endpoint.h ompi/mca/btl/sctp/btl_sctp_proc.h ompi/mca/btl/tcp/btl_tcp_endpoint.h ompi/mca/btl/tcp/btl_tcp_ft.h ompi/mca/btl/tcp/btl_tcp_proc.h ompi/mca/btl/template/btl_template_endpoint.h ompi/mca/btl/template/btl_template_proc.h ompi/mca/btl/udapl/btl_udapl_eager_rdma.h ompi/mca/btl/udapl/btl_udapl_endpoint.h ompi/mca/btl/udapl/btl_udapl_mca.h ompi/mca/btl/udapl/btl_udapl_proc.h ompi/mca/mtl/mx/mtl_mx_endpoint.h ompi/mca/mtl/mx/mtl_mx.h ompi/mca/mtl/psm/mtl_psm_endpoint.h ompi/mca/mtl/psm/mtl_psm.h ompi/mca/pml/cm/pml_cm_component.h ompi/mca/pml/csum/pml_csum_comm.h ompi/mca/pml/dr/pml_dr_comm.h ompi/mca/pml/dr/pml_dr_component.h ompi/mca/pml/dr/pml_dr_endpoint.h ompi/mca/pml/dr/pml_dr_recvfrag.h ompi/mca/pml/example/pml_example.h ompi/mca/pml/ob1/pml_ob1_comm.h ompi/mca/pml/ob1/pml_ob1_component.h ompi/mca/pml/ob1/pml_ob1_endpoint.h ompi/mca/pml/ob1/pml_ob1_rdmafrag.h ompi/mca/pml/ob1/pml_ob1_recvfrag.h ompi/mca/pml/v/pml_v_output.h opal/include/opal/prefetch.h opal/mca/timer/aix/timer_aix.h opal/util/qsort.h test/support/components.h This commit was SVN r21855. The following SVN revision numbers were found above: r2 --> open-mpi/ompi@58fdc188553052bc2e893ba28fb28fddbe78435a
2009-08-20 15:42:18 +04:00
END_C_DECLS
int orte_util_hostfile_wrap(void)
{
orte_util_hostfile_done = true;
return 1;
}
/*
* global variables
*/
int orte_util_hostfile_line=1;
orte_hostfile_value_t orte_util_hostfile_value;
bool orte_util_hostfile_done = false;
%}
WHITE [\f\t\v ]
%x comment
%%
{WHITE}*\n { orte_util_hostfile_line++;
return ORTE_HOSTFILE_NEWLINE; }
#.*\n { orte_util_hostfile_line++;
return ORTE_HOSTFILE_NEWLINE; }
"//".*\n { orte_util_hostfile_line++;
return ORTE_HOSTFILE_NEWLINE; }
"/*" { BEGIN(comment);
return ORTE_HOSTFILE_NEWLINE; }
<comment>[^*\n]* ; /* Eat up non '*'s */
<comment>"*"+[^*/\n]* ; /* Eat '*'s not followed by a '/' */
<comment>\n { orte_util_hostfile_line++;
return ORTE_HOSTFILE_NEWLINE; }
<comment>"*"+"/" { BEGIN(INITIAL); /* Done with Block Comment */
return ORTE_HOSTFILE_NEWLINE; }
\"[^\"]*\" { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_QUOTED_STRING; }
{WHITE}+ ; /* whitespace */
"=" { return ORTE_HOSTFILE_EQUAL; }
cpu { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_CPU; }
count { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_COUNT; }
slots { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_SLOTS; }
"slots-max" { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_SLOTS_MAX; }
slots_max { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_SLOTS_MAX; }
"max-slots" { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_SLOTS_MAX; }
max_slots { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_SLOTS_MAX; }
"cpu-max" { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_SLOTS_MAX; }
cpu_max { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_SLOTS_MAX; }
"max-cpu" { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_SLOTS_MAX; }
max_cpu { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_SLOTS_MAX; }
"count-max" { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_SLOTS_MAX; }
count_max { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_SLOTS_MAX; }
"max-count" { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_SLOTS_MAX; }
max_count { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_SLOTS_MAX; }
rank { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_RANK; }
slot { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_SLOT; }
username { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_USERNAME; }
"user-name" { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_USERNAME; }
"user_name" { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_USERNAME; }
boards { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_BOARDS; }
sockets { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_SOCKETS_PER_BOARD; }
sockets_per_board { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_SOCKETS_PER_BOARD; }
"sockets-per-board" { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_SOCKETS_PER_BOARD; }
cores { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_CORES_PER_SOCKET; }
cores_per_socket { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_CORES_PER_SOCKET; }
"cores-per-socket" { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_CORES_PER_SOCKET; }
cpu_set { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_CPU_SET; }
"cpu-set" { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_CPU_SET; }
\+n[0-9]+ { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_RELATIVE; }
\+[eE][\:][0-9]+ { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_RELATIVE; }
\+[eE] { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_RELATIVE; }
[0-9]+ { orte_util_hostfile_value.ival = atol(yytext);
return ORTE_HOSTFILE_INT; }
%{ /* First detect hosts as standard Strings (but without ".")
* then username@IPv4 or IPV4, then username@IPv6 or IPv6,
* followed by username@hostname or hostname
*/
%}
[A-za-z0-9_\-,:*@]* { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_STRING; }
([A-Za-z0-9][A-Za-z0-9_\-]*"@")?([0-9]{1,3}"."){3}[0-9]{1,3} {
orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_IPV4; }
([A-Za-z0-9][A-Za-z0-9_\-]*"@")?([A-Fa-f0-9]{0,4}":")+[":"]*([A-Fa-f0-9]{0,4}":")+[A-Fa-f0-9]{1,4} {
orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_IPV6; }
(\^?[A-Za-z0-9][A-Za-z0-9_\-]*"@")?[A-Za-z][A-Za-z0-9_\-\.]* {
orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_HOSTNAME; }
. { orte_util_hostfile_value.sval = yytext;
return ORTE_HOSTFILE_ERROR; }
%%