Re: distributed octave

[Jason Tillett]

Thank you JD,

You were right. I had not installed gperf.
Also the header file you attached was required (mine was empty).

Here some other little gotcha that might assist others.

1. Need to add /usr/local/lib/octave-2.1.45 to /etc/ld.so.conf and run
ldconfig.
2. ./configure of mpi_pil... fails with out-of-box redhat 9 lam-6.5.8-4
binary rpm.
3. I removed the lam binary rpm and installed the redhat lam src rpm but the
make fails.
4. I used lam-7.0.2 from lam-mpi.org. No problem

Thank you very much for your help.
Jason
----- Original Message -----
From: "JD Cole" <address@hidden>
To: "Jason Tillett" <address@hidden>
Cc: <address@hidden>
Sent: Friday, November 07, 2003 5:13 AM
Subject: Re: distributed octave


> Jason,
>     I tried recompiling the "pre-patched" source, also under RedHat 9,
> and succeeded. So here are my thoughts:
> (1) The build_parallel source tries to apply the patch a specifically
> dated CVS tree. (I.e. I grab the CVS source ats of a certain date and
> patch that.) It's possible that there is a problem with my script, or as
> your inquiry has brought to light, there may be some changes in CVS
> which have causes a problem. (In the future it would be best if JWE
> could tag major Octave releases in CVS so they could be used as
> synchronization points.;-))
>
> (2) My best guess as to why you couldn't "make" the pre-patched sources
> is that you don't have gperf installed (you can get that here:
>
ftp://rpmfind.net/linux/redhat/9/en/os/i386/RedHat/RPMS/gperf-2.7.2-9.i386.r
pm
> or, alternatively, it should be on one of your RedHat CDs), ./configure
> looks for gperf prior to compilation time. Generally the file
> oct-gperf.h is included in the Octave source, but since I changed
> octave.gperf, I forgot to add it to my distribution, sorry about that. I
> have attached the generated file if you would prefer not to install
> gperf (above).
>
> (3) In addition to (2), don't forget to ./configure w/ the --enable-dl
> and --enable-shared flags. These are key. (I've changed this on the web
> site, again my apologies.)
>
> If this doesn't help, please try to include more details about WHY the
> make command failed. I'm happy to help out.
>
> Best,
>
> JDoct
> Jason Tillett wrote:
>
> >Has anyone successfully built a distributed octave binary (for mpi)
> >using  http://www.transientresearch.com/d-octave/index.php?menu=Download
> >
> >I am trying to build on Redhat 9.
> >
> >I am unable to get the ./build_parallel_sources to complete
> >and when I try to build the pre-patched source tree I get
> >through configure but am unable to make.
> >
> >thank you
> >--------------------------------------
> >
> >
>


----------------------------------------------------------------------------
----


> /* ANSI-C code produced by gperf version 2.7.2 */
> /* Command-line: gperf -t -C -D -E -G -L ANSI-C -H octave_kw_hash -N
octave_kw_lookup octave.gperf  */
>
> enum octave_kw_id
> {
>   all_va_args_kw,
>   break_kw,
>   case_kw,
>   catch_kw,
>   continue_kw,
>   do_kw,
>   else_kw,
>   elseif_kw,
>   end_kw,
>   end_try_catch_kw,
>   end_unwind_protect_kw,
>   endfor_kw,
>   endfunction_kw,
>   endif_kw,
>   endswitch_kw,
>   endwhile_kw,
>   endparallel_kw,
>   for_kw,
>   function_kw,
>   global_kw,
>   gplot_kw,
>   gsplot_kw,
>   if_kw,
>   magic_file_kw,
>   magic_line_kw,
>   otherwise_kw,
>   replot_kw,
>   return_kw,
>   static_kw,
>   switch_kw,
>   try_kw,
>   until_kw,
>   unwind_protect_kw,
>   unwind_protect_cleanup_kw,
>   varargin_kw,
>   varargout_kw,
>   while_kw,
>   parallel_kw,
>   parallelsection_kw
> };
>
> struct octave_kw { const char *name; int tok; octave_kw_id kw_id; };
> enum
>   {
>     TOTAL_KEYWORDS = 40,
>     MIN_WORD_LENGTH = 2,
>     MAX_WORD_LENGTH = 22,
>     MIN_HASH_VALUE = 2,
>     MAX_HASH_VALUE = 78
>   };
>
> /* maximum key range = 77, duplicates = 1 */
>
> #ifdef __GNUC__
> __inline
> #else
> #ifdef __cplusplus
> inline
> #endif
> #endif
> static unsigned int
> octave_kw_hash (register const char *str, register unsigned int len)
> {
>   static const unsigned char asso_values[] =
>     {
>       79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79,  5, 79, 25, 10, 35,
>        0,  0, 25, 25, 15,  0, 79,  0, 15, 79,
>       45,  0,  0, 79, 10,  0, 35,  0, 10,  0,
>       79, 10, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
>       79, 79, 79, 79, 79, 79
>     };
>   return len + asso_values[(unsigned char)str[len - 1]] +
asso_values[(unsigned char)str[0]];
> }
>
> static const struct octave_kw wordlist[] =
>   {
>     {"do", DO, do_kw},
>     {"end", END, end_kw},
>     {"else", ELSE, else_kw},
>     {"while", WHILE, while_kw},
>     {"endwhile", END, endwhile_kw},
>     {"otherwise", OTHERWISE, otherwise_kw},
>     {"break", BREAK, break_kw},
>     {"endfor", END, endfor_kw},
>     {"__FILE__", STRING, magic_file_kw},
>     {"__LINE__", NUM, magic_line_kw},
>     {"until", UNTIL, until_kw},
>     {"switch", SWITCH, switch_kw},
>     {"unwind_protect_cleanup", CLEANUP, unwind_protect_cleanup_kw},
>     {"parallel", PARALLEL, parallel_kw},
>     {"endswitch", END, endswitch_kw},
>     {"endparallel", END, endparallel_kw},
>     {"if", IF, if_kw},
>     {"end_try_catch", END, end_try_catch_kw},
>     {"endif", END, endif_kw},
>     {"elseif", ELSEIF, elseif_kw},
>     {"all_va_args", ALL_VA_ARGS, all_va_args_kw},
>     {"for", FOR, for_kw},
>     {"case", CASE, case_kw},
>     {"static", STATIC, static_kw},
>     {"continue", CONTINUE, continue_kw},
>     {"persistent", STATIC, static_kw},
>     {"global", GLOBAL, global_kw},
>     {"try", TRY, try_kw},
>     {"unwind_protect", UNWIND, unwind_protect_kw},
>     {"replot", PLOT, replot_kw},
>     {"end_unwind_protect", END, end_unwind_protect_kw},
>     {"varargout", VARARGOUT, varargout_kw},
>     {"catch", CATCH, catch_kw},
>     {"endfunction", END, endfunction_kw},
>     {"parallelsection", PARALLELSECTION, parallelsection_kw},
>     {"return", FUNC_RET, return_kw},
>     {"varargin", VARARGIN, varargin_kw},
>     {"gplot", PLOT, gplot_kw},
>     {"gsplot", PLOT, gsplot_kw},
>     {"function", FCN, function_kw}
>   };
>
> static const signed char gperf_lookup[] =
>   {
>      -1,  -1,   0,   1,   2,   3,  -1,  -1,   4,   5,
>      -1,  -1,  -1,  -1,  -1,   6,   7,  -1, -73,  -1,
>      10,  11,  12,  13,  14,  -1,  15,  16,  17,  -1,
>      18,  19, -32,  -2,  -1,  -1,  20,  -1,  21,  22,
>      -1,  23,  -1,  24,  -1,  25,  26,  -1,  27,  28,
>      -1,  29,  -1,  30,  31,  32,  33,  -1,  -1,  -1,
>      34,  35,  -1,  36,  -1,  37,  38,  -1,  -1,  -1,
>      -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  39
>   };
>
> #ifdef __GNUC__
> __inline
> #endif
> const struct octave_kw *
> octave_kw_lookup (register const char *str, register unsigned int len)
> {
>   if (len <= MAX_WORD_LENGTH && len >= MIN_WORD_LENGTH)
>     {
>       register int key = octave_kw_hash (str, len);
>
>       if (key <= MAX_HASH_VALUE && key >= 0)
>         {
>           register int index = gperf_lookup[key];
>
>           if (index >= 0)
>             {
>               register const char *s = wordlist[index].name;
>
>               if (*str == *s && !strcmp (str + 1, s + 1))
>                 return &wordlist[index];
>             }
>           else if (index < -TOTAL_KEYWORDS)
>             {
>               register int offset = - 1 - TOTAL_KEYWORDS - index;
>               register const struct octave_kw *wordptr =
&wordlist[TOTAL_KEYWORDS + gperf_lookup[offset]];
>               register const struct octave_kw *wordendptr = wordptr
+ -gperf_lookup[offset + 1];
>
>               while (wordptr < wordendptr)
>                 {
>                   register const char *s = wordptr->name;
>
>                   if (*str == *s && !strcmp (str + 1, s + 1))
>                     return wordptr;
>                   wordptr++;
>                 }
>             }
>         }
>     }
>   return 0;
> }
>



-------------------------------------------------------------
Octave is freely available under the terms of the GNU GPL.

Octave's home on the web:  http://www.octave.org
How to fund new projects:  http://www.octave.org/funding.html
Subscription information:  http://www.octave.org/archive.html
-------------------------------------------------------------