perl 5.0 alpha 3
[perl.git] / do / gsent
1 int
2 do_gsent(which,gimme,arglast)
3 int which;
4 int gimme;
5 int *arglast;
6 {
7     register ARRAY *ary = stack;
8     register int sp = arglast[0];
9     register char **elem;
10     register STR *TARG;
11     struct servent *getservbyname();
12     struct servent *getservbynumber();
13     struct servent *getservent();
14     struct servent *sent;
15
16     if (which == O_GSBYNAME) {
17         char *name = str_get(ary->ary_array[sp+1]);
18         char *proto = str_get(ary->ary_array[sp+2]);
19
20         if (proto && !*proto)
21             proto = Nullch;
22
23         sent = getservbyname(name,proto);
24     }
25     else if (which == O_GSBYPORT) {
26         int port = (int)str_gnum(ary->ary_array[sp+1]);
27         char *proto = str_get(ary->ary_array[sp+2]);
28
29         sent = getservbyport(port,proto);
30     }
31     else
32         sent = getservent();
33
34     if (gimme != G_ARRAY) {
35         astore(ary, ++sp, TARG = str_mortal(&str_undef));
36         if (sent) {
37             if (which == O_GSBYNAME) {
38 #ifdef HAS_NTOHS
39                 str_numset(TARG, (double)ntohs(sent->s_port));
40 #else
41                 str_numset(TARG, (double)(sent->s_port));
42 #endif
43             }
44             else
45                 str_set(TARG, sent->s_name);
46         }
47         return sp;
48     }
49
50     if (sent) {
51 #ifndef lint
52         (void)astore(ary, ++sp, TARG = str_mortal(&str_no));
53         str_set(TARG, sent->s_name);
54         (void)astore(ary, ++sp, TARG = str_mortal(&str_no));
55         for (elem = sent->s_aliases; *elem; elem++) {
56             str_cat(TARG, *elem);
57             if (elem[1])
58                 str_ncat(TARG," ",1);
59         }
60         (void)astore(ary, ++sp, TARG = str_mortal(&str_no));
61 #ifdef HAS_NTOHS
62         str_numset(TARG, (double)ntohs(sent->s_port));
63 #else
64         str_numset(TARG, (double)(sent->s_port));
65 #endif
66         (void)astore(ary, ++sp, TARG = str_mortal(&str_no));
67         str_set(TARG, sent->s_proto);
68 #else /* lint */
69         elem = Nullch;
70         elem = elem;
71         (void)astore(ary, ++sp, str_mortal(&str_no));
72 #endif /* lint */
73     }
74
75     return sp;
76 }
77