Changeset c3acb0b for perlconfig.c


Ignore:
Timestamp:
Dec 23, 2003, 4:38:44 PM (17 years ago)
Author:
James M. Kretchmar <kretch@mit.edu>
Branches:
master, barnowl_perlaim, debian, owl, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
ba9f236
Parents:
8b16467
Message:
If the config exists but is not readable, print an error before exiting
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlconfig.c

    rb0430a6 rc3acb0b  
    1515extern XS(boot_owl);
    1616
    17 static void owl_perl_xs_init(pTHX) {
     17static void owl_perl_xs_init(pTHX)
     18{
    1819  char *file = __FILE__;
    1920  dXSUB_SYS;
     
    2324}
    2425
    25 SV *owl_perlconfig_message2hashref(owl_message *m) { /*noproto*/
     26SV *owl_perlconfig_message2hashref(owl_message *m)  /*noproto*/
     27{
    2628  HV *h;
    2729  SV *hr;
     
    8486
    8587
    86 SV *owl_perlconfig_curmessage2hashref(void) { /*noproto*/
     88SV *owl_perlconfig_curmessage2hashref(void) /*noproto*/
     89{
    8790  int curmsg;
    8891  owl_view *v;
     
    98101/* Calls in a scalar context, passing it a hash reference.
    99102   If return value is non-null, caller must free. */
    100 char *owl_perlconfig_call_with_message(char *subname, owl_message *m) {
     103char *owl_perlconfig_call_with_message(char *subname, owl_message *m)
     104{
    101105  dSP ;
    102106  int count, len;
     
    146150}
    147151
    148 char *owl_perlconfig_readconfig(char *file) {
     152char *owl_perlconfig_readconfig(char *file)
     153{
    149154  int ret;
    150155  PerlInterpreter *p;
     
    233238
    234239/* returns 0 on success */
    235 int owl_perlconfig_get_hashkeys(char *hashname, owl_list *l) {
     240int owl_perlconfig_get_hashkeys(char *hashname, owl_list *l)
     241{
    236242  HV *hv;
    237243  HE *he;
     
    253259
    254260/* caller is responsible for freeing returned string */
    255 char *owl_perlconfig_execute(char *line) {
     261char *owl_perlconfig_execute(char *line)
     262{
    256263  STRLEN len;
    257264  SV *response;
     
    281288}
    282289
    283 char *owl_perlconfig_getmsg(owl_message *m, int mode, char *subname) {
     290char *owl_perlconfig_getmsg(owl_message *m, int mode, char *subname)
     291{
    284292  /* if mode==1 we are doing message formatting.  The returned
    285293   * formatted message needs to be freed by the caller.
Note: See TracChangeset for help on using the changeset viewer.