drakx-backup-do-not-use - Mageia Installer and base platform for many utilities

diff options

author	Pascal Rigaux <pixel@mandriva.com>	2002-11-14 17:36:32 +0000
committer	Pascal Rigaux <pixel@mandriva.com>	2002-11-14 17:36:32 +0000
commit	78e8097c578fb334c7440a5459fdb7aecc827feb (patch)
tree	365a303dd0143c940451e55df0316b3aaf6c0a67 /perl-install/network
parent	0321ff25b57d94626c9a5c2d02fbdb5448474fc6 (diff)
download	drakx-backup-do-not-use-78e8097c578fb334c7440a5459fdb7aecc827feb.tar drakx-backup-do-not-use-78e8097c578fb334c7440a5459fdb7aecc827feb.tar.gz drakx-backup-do-not-use-78e8097c578fb334c7440a5459fdb7aecc827feb.tar.bz2 drakx-backup-do-not-use-78e8097c578fb334c7440a5459fdb7aecc827feb.tar.xz drakx-backup-do-not-use-78e8097c578fb334c7440a5459fdb7aecc827feb.zip

- add/remove spaces to make perl_checker happy

- remove redundant parentheses - add some parentheses for clarity

Diffstat (limited to 'perl-install/network')

-rw-r--r--

perl-install/network/network.pm

-rw-r--r--

perl-install/network/smb.pm

-rw-r--r--

perl-install/network/tools.pm

3 files changed, 6 insertions, 6 deletions

#ifndef DAVIS_SLANG_H_ #define DAVIS_SLANG_H_ /* -*- mode: C; mode: fold; -*- */ /* Copyright (c) 1992, 1999, 2001 John E. Davis * This file is part of the S-Lang library. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #define SLANG_VERSION 10404 #define SLANG_VERSION_STRING "1.4.4" /*{{{ System Dependent Macros and Typedefs */ #if defined(__WATCOMC__) && defined(DOS) # ifndef __MSDOS__ # define __MSDOS__ # endif # ifndef DOS386 # define DOS386 # endif # ifndef IBMPC_SYSTEM # define IBMPC_SYSTEM # endif #endif /* __watcomc__ */ #if defined(unix) || defined(__unix) # ifndef __unix__ # define __unix__ 1 # endif #endif #if !defined(__GO32__) # ifdef __unix__ # define REAL_UNIX_SYSTEM # endif #endif /* Set of the various defines for pc systems. This includes OS/2 */ #ifdef __GO32__ # ifndef __DJGPP__ # define __DJGPP__ 1 # endif # ifndef IBMPC_SYSTEM # define IBMPC_SYSTEM # endif #endif #ifdef __BORLANDC__ # ifndef IBMPC_SYSTEM # define IBMPC_SYSTEM # endif #endif #ifdef __MSDOS__ # ifndef IBMPC_SYSTEM # define IBMPC_SYSTEM # endif #endif #if defined(OS2) || defined(__os2__) # ifndef IBMPC_SYSTEM # define IBMPC_SYSTEM # endif # ifndef __os2__ # define __os2__ # endif #endif #if defined(__NT__) || defined(__MINGW32__) || defined(__CYGWIN32__) # ifndef IBMPC_SYSTEM # define IBMPC_SYSTEM # endif #endif #if defined(IBMPC_SYSTEM) || defined(VMS) # ifdef REAL_UNIX_SYSTEM # undef REAL_UNIX_SYSTEM # endif #endif #ifdef __cplusplus extern "C" { #endif #if 0 } #endif #include <stdio.h> #include <stdarg.h> #if defined(__STDC__) || defined(__BORLANDC__) || defined(__cplusplus) # include <stddef.h> /* for offsetof */ #endif /* ---------------------------- Generic Macros ----------------------------- */ /* __SC__ is defined for Symantec C++ DOS386 is defined for -mx memory model, 32 bit DOS extender. */ #if defined(__SC__) && !defined(DOS386) # include <dos.h> #endif #if defined(__BORLANDC__) # include <alloc.h> #endif #if defined (__cplusplus) || defined(__STDC__) || defined(IBMPC_SYSTEM) typedef void *VOID_STAR; #else typedef unsigned char *VOID_STAR; #endif typedef int (*FVOID_STAR)(void); #if defined(__MSDOS_) && defined(__BORLANDC__) # define SLFREE(buf) farfree((void far *)(buf)) # define SLMALLOC(x) farmalloc((unsigned long) (x)) # define SLREALLOC(buf, n) farrealloc((void far *) (buf), (unsigned long) (n)) # define SLCALLOC(n, m) farcalloc((unsigned long) (n), (unsigned long) (m)) #else # if defined(VMS) && !defined(__DECC) # define SLFREE VAXC$FREE_OPT # define SLMALLOC VAXC$MALLOC_OPT # define SLREALLOC VAXC$REALLOC_OPT # define SLCALLOC VAXC$CALLOC_OPT # else # define SLFREE(x) free((char *)(x)) # define SLMALLOC malloc # define SLREALLOC realloc # define SLCALLOC calloc # endif #endif extern char *SLdebug_malloc (unsigned long); extern char *SLdebug_calloc (unsigned long, unsigned long); extern char *SLdebug_realloc (char *, unsigned long); extern void SLdebug_free (char *); extern void SLmalloc_dump_statistics (void); extern char *SLstrcpy(register char *, register char *); extern int SLstrcmp(register char *, register char *); extern char *SLstrncpy(char *, register char *, register int); extern void SLmemset (char *, char, int); extern char *SLmemchr (register char *, register char, register int); extern char *SLmemcpy (char *, char *, int); extern int SLmemcmp (char *, char *, int); /*}}}*/ /*{{{ Interpreter Typedefs */ typedef struct _SLang_Name_Type { char *name; struct _SLang_Name_Type *next; char name_type; /* These values must be less than 0x10 because they map directly * to byte codes. See _slang.h. */ #define SLANG_LVARIABLE 0x01 #define SLANG_GVARIABLE 0x02 #define SLANG_IVARIABLE 0x03 /* intrinsic variables */ /* Note!!! For Macro MAKE_VARIABLE below to work, SLANG_IVARIABLE Must be 1 less than SLANG_RVARIABLE!!! */ #define SLANG_RVARIABLE 0x04 /* read only variable */ #define SLANG_INTRINSIC 0x05 #define SLANG_FUNCTION 0x06 #define SLANG_MATH_UNARY 0x07 #define SLANG_APP_UNARY 0x08 #define SLANG_ICONSTANT 0x09 #define SLANG_DCONSTANT 0x0A #define SLANG_PVARIABLE 0x0B /* private */ #define SLANG_PFUNCTION 0x0C /* private */ /* Rest of fields depend on name type */ } SLang_Name_Type; typedef struct { char *name; struct _SLang_Name_Type *next; /* this is for the hash table */ char name_type; FVOID_STAR i_fun; /* address of object */ /* Do not change this without modifying slang.c:execute_intrinsic_fun */ #define SLANG_MAX_INTRIN_ARGS 7 unsigned char arg_types [SLANG_MAX_INTRIN_ARGS]; unsigned char num_args; unsigned char return_type; } SLang_Intrin_Fun_Type; typedef struct { char *name; SLang_Name_Type *next; char name_type; VOID_STAR addr; unsigned char type; } SLang_Intrin_Var_Type; typedef struct { char *name; SLang_Name_Type *next; char name_type; int unary_op; } SLang_App_Unary_Type; typedef struct { char *name; SLang_Name_Type *next; char name_type; int unary_op; } SLang_Math_Unary_Type; typedef struct { char *name; SLang_Name_Type *next; char name_type; int i; } SLang_IConstant_Type; typedef struct { char *name; SLang_Name_Type *next; char name_type; double d; } SLang_DConstant_Type; typedef struct { char *field_name; unsigned int offset; unsigned char type; unsigned char read_only; } SLang_IStruct_Field_Type; extern int SLadd_intrin_fun_table (SLang_Intrin_Fun_Type *, char *); extern int SLadd_intrin_var_table (SLang_Intrin_Var_Type *, char *); extern int SLadd_app_unary_table (SLang_App_Unary_Type *, char *); extern int SLadd_math_unary_table (SLang_Math_Unary_Type *, char *); extern int SLadd_iconstant_table (SLang_IConstant_Type *, char *); extern int SLadd_dconstant_table (SLang_DConstant_Type *, char *); extern int SLadd_istruct_table (SLang_IStruct_Field_Type *, VOID_STAR, char *); typedef struct _SLang_NameSpace_Type SLang_NameSpace_Type; extern int SLns_add_intrin_fun_table (SLang_NameSpace_Type *, SLang_Intrin_Fun_Type *, char *); extern int SLns_add_intrin_var_table (SLang_NameSpace_Type *, SLang_Intrin_Var_Type *, char *); extern int SLns_add_app_unary_table (SLang_NameSpace_Type *, SLang_App_Unary_Type *, char *); extern int SLns_add_math_unary_table (SLang_NameSpace_Type *, SLang_Math_Unary_Type *, char *); extern int SLns_add_iconstant_table (SLang_NameSpace_Type *, SLang_IConstant_Type *, char *); extern int SLns_add_dconstant_table (SLang_NameSpace_Type *, SLang_DConstant_Type *, char *); extern int SLns_add_istruct_table (SLang_NameSpace_Type *, SLang_IStruct_Field_Type *, VOID_STAR, char *); extern SLang_NameSpace_Type *SLns_create_namespace (char *); extern void SLns_delete_namespace (SLang_NameSpace_Type *); typedef struct SLang_Load_Type { int type; VOID_STAR client_data; /* Pointer to data that client needs for loading */ int auto_declare_globals; /* if non-zero, undefined global variables are declared as static */ char *(*read)(struct SLang_Load_Type *); /* function to call to read next line from obj. */ unsigned int line_num; /* Number of lines read, used for error reporting */ int parse_level; /* 0 if at top level of parsing */ char *name; /* Name of this object, e.g., filename. This name should be unique because * it alone determines the name space for static objects associated with * the compilable unit. */ unsigned long reserved[4]; /* For future expansion */ } SLang_Load_Type; extern SLang_Load_Type *SLallocate_load_type (char *); extern void SLdeallocate_load_type (SLang_Load_Type *); /* Returns SLang_Error upon failure */ extern int SLang_load_object (SLang_Load_Type *); extern int (*SLang_Load_File_Hook)(char *); extern int (*SLang_Auto_Declare_Var_Hook) (char *); extern int SLang_generate_debug_info (int); #if defined(ultrix) && !defined(__GNUC__) # ifndef NO_PROTOTYPES # define NO_PROTOTYPES # endif #endif #ifndef NO_PROTOTYPES # define _PROTO(x) x #else # define _PROTO(x) () #endif typedef struct SL_OOBinary_Type { unsigned char data_type; /* partner type for binary op */ int (*binary_function)_PROTO((int, unsigned char, VOID_STAR, unsigned int, unsigned char, VOID_STAR, unsigned int, VOID_STAR)); int (*binary_result) _PROTO((int, unsigned char, unsigned char, unsigned char *)); struct SL_OOBinary_Type *next; } SL_OOBinary_Type; typedef struct _SL_Typecast_Type { unsigned char data_type; /* to_type */ int allow_implicit; int (*typecast)_PROTO((unsigned char, VOID_STAR, unsigned int, unsigned char, VOID_STAR)); struct _SL_Typecast_Type *next; } SL_Typecast_Type; typedef struct _SLang_Struct_Type SLang_Struct_Type; #if defined(SL_APP_WANTS_FOREACH) /* It is up to the application to define struct _SLang_Foreach_Context_Type */ typedef struct _SLang_Foreach_Context_Type SLang_Foreach_Context_Type; #else typedef int SLang_Foreach_Context_Type; #endif typedef struct { unsigned char cl_class_type; #define SLANG_CLASS_TYPE_MMT 0 #define SLANG_CLASS_TYPE_SCALAR 1 #define SLANG_CLASS_TYPE_VECTOR 2 #define SLANG_CLASS_TYPE_PTR 3 unsigned int cl_data_type; /* SLANG_INTEGER_TYPE, etc... */ char *cl_name; /* slstring type */ unsigned int cl_sizeof_type; VOID_STAR cl_transfer_buf; /* cl_sizeof_type bytes*/ /* Methods */ /* Most of the method functions are prototyped: * int method (unsigned char type, VOID_STAR addr); * Here, @type@ represents the type of object that the method is asked * to deal with. The second parameter @addr@ will contain the ADDRESS of * the object. For example, if type is SLANG_INT_TYPE, then @addr@ will * actually be int *. Similary, if type is SLANG_STRING_TYPE, * then @addr@ will contain the address of the string, i.e., char **. */ void (*cl_destroy)_PROTO((unsigned char, VOID_STAR)); /* Prototype: void destroy(unsigned type, VOID_STAR val) * Called to delete/free the object */ char *(*cl_string)_PROTO((unsigned char, VOID_STAR)); /* Prototype: char *to_string (unsigned char t, VOID_STAR p); * Here p is a pointer to the object for which a string representation * is to be returned. The returned pointer is to be a MALLOCED string. */ /* Prototype: void push(unsigned char type, VOID_STAR v); * Push a copy of the object of type @type@ at address @v@ onto the * stack. */ int (*cl_push)_PROTO((unsigned char, VOID_STAR)); /* Prototype: int pop(unsigned char type, VOID_STAR v); * Pops value from stack and assign it to object, whose address is @v@. */ int (*cl_pop)_PROTO((unsigned char, VOID_STAR)); int (*cl_unary_op_result_type)_PROTO((int, unsigned char, unsigned char *)); int (*cl_unary_op)_PROTO((int, unsigned char, VOID_STAR, unsigned int, VOID_STAR)); int (*cl_app_unary_op_result_type)_PROTO((int, unsigned char, unsigned char *)); int (*cl_app_unary_op)_PROTO((int, unsigned char, VOID_STAR, unsigned int, VOID_STAR)); /* If this function is non-NULL, it will be called for sin, cos, etc... */ #define SLMATH_SIN 1 #define SLMATH_COS 2 #define SLMATH_TAN 3 #define SLMATH_ATAN 4 #define SLMATH_ASIN 5 #define SLMATH_ACOS 6 #define SLMATH_EXP 7 #define SLMATH_LOG 8 #define SLMATH_SQRT 9 #define SLMATH_LOG10 10 #define SLMATH_REAL 11 #define SLMATH_IMAG 12 #define SLMATH_SINH 13 #define SLMATH_COSH 14 #define SLMATH_TANH 15 #define SLMATH_ATANH 16 #define SLMATH_ASINH 17 #define SLMATH_ACOSH 18 #define SLMATH_TODOUBLE 19 #define SLMATH_CONJ 20 int (*cl_math_op)_PROTO((int, unsigned char, VOID_STAR, unsigned int, VOID_STAR)); int (*cl_math_op_result_type)_PROTO((int, unsigned char, unsigned char *)); SL_OOBinary_Type *cl_binary_ops; SL_Typecast_Type *cl_typecast_funs; void (*cl_byte_code_destroy)_PROTO((unsigned char, VOID_STAR)); void (*cl_user_destroy_fun)_PROTO((unsigned char, VOID_STAR)); int (*cl_init_array_object)_PROTO((unsigned char, VOID_STAR)); int (*cl_datatype_deref)_PROTO((unsigned char)); SLang_Struct_Type *cl_struct_def; int (*cl_dereference) _PROTO((unsigned char, VOID_STAR)); int (*cl_acopy) (unsigned char, VOID_STAR, VOID_STAR); int (*cl_apop) _PROTO((unsigned char, VOID_STAR)); int (*cl_apush) _PROTO((unsigned char, VOID_STAR)); int (*cl_push_literal) _PROTO((unsigned char, VOID_STAR)); void (*cl_adestroy)_PROTO((unsigned char, VOID_STAR)); int (*cl_push_intrinsic)_PROTO((unsigned char, VOID_STAR)); int (*cl_void_typecast)_PROTO((unsigned char, VOID_STAR, unsigned int, unsigned char, VOID_STAR)); int (*cl_anytype_typecast)_PROTO((unsigned char, VOID_STAR, unsigned int, unsigned char, VOID_STAR)); /* Array access functions */ int (*cl_aput) (unsigned char, unsigned int); int (*cl_aget) (unsigned char, unsigned int); int (*cl_anew) (unsigned char, unsigned int); /* length method */ int (*cl_length) (unsigned char, VOID_STAR, unsigned int *); /* foreach */ SLang_Foreach_Context_Type *(*cl_foreach_open) (unsigned char, unsigned int); void (*cl_foreach_close) (unsigned char, SLang_Foreach_Context_Type *); int (*cl_foreach) (unsigned char, SLang_Foreach_Context_Type *); /* Structure access: get and put (assign to) fields */ int (*cl_sput) (unsigned char, char *); int (*cl_sget) (unsigned char, char *); /* File I/O */ int (*cl_fread) (unsigned char, FILE *, VOID_STAR, unsigned int, unsigned int *); int (*cl_fwrite) (unsigned char, FILE *, VOID_STAR, unsigned int, unsigned int *); int (*cl_fdread) (unsigned char, int, VOID_STAR, unsigned int, unsigned int *); int (*cl_fdwrite) (unsigned char, int, VOID_STAR, unsigned int, unsigned int *); int (*cl_to_bool) (unsigned char, int *); int (*cl_cmp)(unsigned char, VOID_STAR, VOID_STAR, int *); } SLang_Class_Type; /* These are the low-level functions for building push/pop methods. They * know nothing about memory management. For SLANG_CLASS_TYPE_MMT, use the * MMT push/pop functions instead. */ extern int SLclass_push_double_obj (unsigned char, double); extern int SLclass_push_float_obj (unsigned char, float); extern int SLclass_push_long_obj (unsigned char, long); extern int SLclass_push_int_obj (unsigned char, int); extern int SLclass_push_short_obj (unsigned char, short); extern int SLclass_push_char_obj (unsigned char, char); extern int SLclass_push_ptr_obj (unsigned char, VOID_STAR); extern int SLclass_pop_double_obj (unsigned char, double *); extern int SLclass_pop_float_obj (unsigned char, float *); extern int SLclass_pop_long_obj (unsigned char, long *); extern int SLclass_pop_int_obj (unsigned char, int *); extern int SLclass_pop_short_obj (unsigned char, short *); extern int SLclass_pop_char_obj (unsigned char, char *); extern int SLclass_pop_ptr_obj (unsigned char, VOID_STAR *); extern SLang_Class_Type *SLclass_allocate_class (char *); extern int SLclass_get_class_id (SLang_Class_Type *cl); extern int SLclass_create_synonym (char *, unsigned char); extern int SLclass_is_class_defined (unsigned char); extern int SLclass_register_class (SLang_Class_Type *, unsigned char, unsigned int, unsigned char); extern int SLclass_set_string_function (SLang_Class_Type *, char *(*)(unsigned char, VOID_STAR)); extern int SLclass_set_destroy_function (SLang_Class_Type *, void (*)(unsigned char, VOID_STAR)); extern int SLclass_set_push_function (SLang_Class_Type *, int (*)(unsigned char, VOID_STAR)); extern int SLclass_set_pop_function (SLang_Class_Type *, int (*)(unsigned char, VOID_STAR)); extern int SLclass_set_aget_function (SLang_Class_Type *, int (*)(unsigned char, unsigned int)); extern int SLclass_set_aput_function (SLang_Class_Type *, int (*)(unsigned char, unsigned int)); extern int SLclass_set_anew_function (SLang_Class_Type *, int (*)(unsigned char, unsigned int)); extern int SLclass_set_sget_function (SLang_Class_Type *, int (*)(unsigned char, char *)); extern int SLclass_set_sput_function (SLang_Class_Type *, int (*)(unsigned char, char *)); /* Typecast object on the stack to type p1. p2 and p3 should be set to 1 */ extern int SLclass_typecast (unsigned char, int, int); extern int SLclass_add_unary_op (unsigned char, int (*) (int, unsigned char, VOID_STAR, unsigned int, VOID_STAR), int (*) (int, unsigned char, unsigned char *)); extern int SLclass_add_app_unary_op (unsigned char, int (*) (int, unsigned char, VOID_STAR, unsigned int, VOID_STAR), int (*) (int, unsigned char, unsigned char *)); extern int SLclass_add_binary_op (unsigned char, unsigned char, int (*) (int, unsigned char, VOID_STAR, unsigned int, unsigned char, VOID_STAR, unsigned int, VOID_STAR), int (*) (int, unsigned char, unsigned char, unsigned char *)); extern int SLclass_add_math_op (unsigned char, int (*)(int, unsigned char, VOID_STAR, unsigned int, VOID_STAR), int (*)(int, unsigned char, unsigned char *)); extern int SLclass_add_typecast (unsigned char /* from */, unsigned char /* to */, int (*)_PROTO((unsigned char, VOID_STAR, unsigned int, unsigned char, VOID_STAR)), int /* allow implicit typecasts */ ); extern char *SLclass_get_datatype_name (unsigned char); extern double SLcomplex_abs (double *); extern double *SLcomplex_times (double *, double *, double *); extern double *SLcomplex_divide (double *, double *, double *); extern double *SLcomplex_sin (double *, double *); extern double *SLcomplex_cos (double *, double *); extern double *SLcomplex_tan (double *, double *); extern double *SLcomplex_asin (double *, double *); extern double *SLcomplex_acos (double *, double *); extern double *SLcomplex_atan (double *, double *); extern double *SLcomplex_exp (double *, double *); extern double *SLcomplex_log (double *, double *); extern double *SLcomplex_log10 (double *, double *); extern double *SLcomplex_sqrt (double *, double *); extern double *SLcomplex_sinh (double *, double *); extern double *SLcomplex_cosh (double *, double *); extern double *SLcomplex_tanh (double *, double *); extern double *SLcomplex_pow (double *, double *, double *); extern double SLmath_hypot (double x, double y); /* Not implemented yet */ extern double *SLcomplex_asinh (double *, double *); extern double *SLcomplex_acosh (double *, double *); extern double *SLcomplex_atanh (double *, double *); #ifdef _SLANG_SOURCE_ typedef struct _SLang_MMT_Type SLang_MMT_Type; #else typedef int SLang_MMT_Type; #endif extern void SLang_free_mmt (SLang_MMT_Type *); extern VOID_STAR SLang_object_from_mmt (SLang_MMT_Type *); extern SLang_MMT_Type *SLang_create_mmt (unsigned char, VOID_STAR); extern int SLang_push_mmt (SLang_MMT_Type *); extern SLang_MMT_Type *SLang_pop_mmt (unsigned char); extern void SLang_inc_mmt (SLang_MMT_Type *); /* Maximum number of dimensions of an array. */ #define SLARRAY_MAX_DIMS 7 typedef struct _SLang_Array_Type { unsigned char data_type; unsigned int sizeof_type; VOID_STAR data; unsigned int num_elements; unsigned int num_dims; int dims [SLARRAY_MAX_DIMS]; VOID_STAR (*index_fun)_PROTO((struct _SLang_Array_Type *, int *)); /* This function is designed to allow a type to store an array in * any manner it chooses. This function returns the address of the data * value at the specified index location. */ unsigned int flags; #define SLARR_DATA_VALUE_IS_READ_ONLY 1 #define SLARR_DATA_VALUE_IS_POINTER 2 #define SLARR_DATA_VALUE_IS_RANGE 4 #define SLARR_DATA_VALUE_IS_INTRINSIC 8 SLang_Class_Type *cl; unsigned int num_refs; } SLang_Array_Type; extern int SLang_pop_array_of_type (SLang_Array_Type **, unsigned char); extern int SLang_pop_array (SLang_Array_Type **, int); extern int SLang_push_array (SLang_Array_Type *, int); extern void SLang_free_array (SLang_Array_Type *);


context:
space:
mode: