← Back to branch summary

~ubuntu-branches/debian/squeeze/erlang/squeeze

« back to all changes in this revision

Viewing changes to erts/etc/common/escript.c

  • Committer: Bazaar Package Importer
  • Author(s): Sergei Golovan
  • Date: 2010-03-09 17:34:57 UTC
  • mfrom: (10.1.2 sid)
  • Revision ID: james.westby@ubuntu.com-20100309173457-4yd6hlcb2osfhx31
Tags: 1:13.b.4-dfsg-3
Manpages in section 1 are needed even if only arch-dependent packages are
built. So, re-enabled them.

Show diffs side-by-side

added added

removed removed

Lines of Context:
erts/etc/common/escript.c
1
1
/*
2
2
 * %CopyrightBegin%
3
 
 * 
4
 
 * Copyright Ericsson AB 2007-2009. All Rights Reserved.
5
 
 * 
 
3
 *
 
4
 * Copyright Ericsson AB 2007-2010. All Rights Reserved.
 
5
 *
6
6
 * The contents of this file are subject to the Erlang Public License,
7
7
 * Version 1.1, (the "License"); you may not use this file except in
8
8
 * compliance with the License. You should have received a copy of the
9
9
 * Erlang Public License along with this software. If not, it can be
10
10
 * retrieved online at http://www.erlang.org/.
11
 
 * 
 
11
 *
12
12
 * Software distributed under the License is distributed on an "AS IS"
13
13
 * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
14
14
 * the License for the specific language governing rights and limitations
15
15
 * under the License.
16
 
 * 
 
16
 *
17
17
 * %CopyrightEnd%
18
18
 */
19
19
/*
199
199
                    continue;
200
200
                } else {
201
201
                    /* Wow we found the executable. */
202
 
                    strcpy(abspath, wildcard);
 
202
                    strcpy(relpath, wildcard);
203
203
                    FindClose(dir_handle);
204
 
                    return strsave(abspath);
 
204
                    look_for_sep = FALSE;
 
205
                    break;
205
206
                }
206
207
#else
207
208
                dp = opendir(dir);
216
217
 
217
218
                        if (strcmp(origpath, dirp->d_name) == 0) {
218
219
                            /* Wow we found the executable. */
219
 
                            strcpy(abspath, dir);
220
 
                            strcat(abspath, DIRSEPSTR);
221
 
                            strcat(abspath, dirp->d_name);
 
220
                            strcpy(relpath, dir);
 
221
                            strcat(relpath, DIRSEPSTR);
 
222
                            strcat(relpath, dirp->d_name);
222
223
                            closedir(dp);
223
 
                            return strsave(abspath);
 
224
                            look_for_sep = FALSE;
 
225
                            break;
224
226
                        }
225
227
                    }
226
228
                }
239
241
#else
240
242
        if (!realpath(relpath, abspath)) {
241
243
#endif /* __WIN32__ */
242
 
            /* Cannot determine absolute path to escript. Try the relative.  */
243
 
            return strsave(relpath);
 
244
            /* Cannot determine absolute path to escript. Try the origin.  */
 
245
            return strsave(origpath);
244
246
        } else {
245
247
            return strsave(abspath);
246
248
        }
373
375
    if (strcmp(basename, "escript") == 0) {
374
376
#endif
375
377
        /*
376
 
         * Push all options (without the hyphen) before the script name.
 
378
         * Locate all options before the script name.
377
379
         */
378
380
        
379
381
        while (argc > 1 && argv[1][0] == '-') {
380
 
            PUSH(argv[1]+1);
381
382
            argc--;
382
383
            argv++;
383
384
            last_opt = argv;
402
403
            scriptname[len-4] = '\0';
403
404
        }
404
405
#endif
 
406
 
405
407
        strcat(scriptname, ".escript");
406
408
    }
407
409
 
418
420
    PUSH3("-run", "escript", "start");
419
421
 
420
422
    /*
421
 
     * Push all options (without the hyphen) before the script name.
 
423
     * Push all options before the script name. But omit the leading hyphens.
422
424
     */
423
425
    
424
426
    while (first_opt != last_opt) {
500
502
    *(--p) = '\0';
501
503
 
502
504
    if (debug) {
503
 
        printf("Processed commandline:%s\n",buff);
 
505
        printf("Processed command line:%s\n",buff);
504
506
    }
505
507
    return buff;
506
508
}