e98981c661f66f2227152db51213ecf427ba9b1d
[perl.git] / do / sort
1 int
2 do_sort(TARG,arg,gimme,arglast)
3 STR *TARG;
4 ARG *arg;
5 int gimme;
6 int *arglast;
7 {
8     register STR **st = stack->ary_array;
9     int sp = arglast[1];
10     register STR **up;
11     register int max = arglast[2] - sp;
12     register int i;
13     int sortcmp();
14     int sortsub();
15     STR *oldfirst;
16     STR *oldsecond;
17     ARRAY *oldstack;
18     HASH *stash;
19     STR *sortsubvar;
20
21     if (gimme != G_ARRAY) {
22         str_sset(TARG,&str_undef);
23         STABSET(TARG);
24         st[sp] = TARG;
25         return sp;
26     }
27     up = &st[sp];
28     sortsubvar = *up;
29     st += sp;           /* temporarily make st point to args */
30     for (i = 1; i <= max; i++) {
31         /*SUPPRESS 560*/
32         if (*up = st[i]) {
33             if (!(*up)->str_pok)
34                 (void)str_2ptr(*up);
35             else
36                 (*up)->str_pok &= ~SP_TEMP;
37             up++;
38         }
39     }
40     st -= sp;
41     max = up - &st[sp];
42     sp--;
43     if (max > 1) {
44         STAB *stab;
45
46         if (arg[1].arg_type == (A_CMD|A_DONT)) {
47             sortcmd = arg[1].arg_ptr.arg_cmd;
48             stash = curcmd->c_stash;
49         }
50         else {
51             if ((arg[1].arg_type & A_MASK) == A_WORD)
52                 stab = arg[1].arg_ptr.arg_stab;
53             else
54                 stab = stabent(str_get(sortsubvar),TRUE);
55
56             if (stab) {
57                 if (!stab_sub(stab) || !(sortcmd = stab_sub(stab)->cmd))
58                     fatal("Undefined subroutine \"%s\" in sort", 
59                         stab_ename(stab));
60                 stash = stab_estash(stab);
61             }
62             else
63                 sortcmd = Nullcmd;
64         }
65
66         if (sortcmd) {
67             int oldtmps_base = tmps_base;
68
69             if (!sortstack) {
70                 sortstack = anew(Nullstab);
71                 astore(sortstack, 0, Nullstr);
72                 aclear(sortstack);
73                 sortstack->ary_flags = 0;
74             }
75             oldstack = stack;
76             stack = sortstack;
77             tmps_base = tmps_max;
78             if (sortstash != stash) {
79                 firststab = stabent("a",TRUE);
80                 secondstab = stabent("b",TRUE);
81                 sortstash = stash;
82             }
83             oldfirst = stab_val(firststab);
84             oldsecond = stab_val(secondstab);
85 #ifndef lint
86             qsort((char*)(st+sp+1),max,sizeof(STR*),sortsub);
87 #else
88             qsort(Nullch,max,sizeof(STR*),sortsub);
89 #endif
90             stab_val(firststab) = oldfirst;
91             stab_val(secondstab) = oldsecond;
92             tmps_base = oldtmps_base;
93             stack = oldstack;
94         }
95 #ifndef lint
96         else
97             qsort((char*)(st+sp+1),max,sizeof(STR*),sortcmp);
98 #endif
99     }
100     return sp+max;
101 }
102