~ubuntu-branches/ubuntu/intrepid/digikam/intrepid

« back to all changes in this revision

Viewing changes to digikam/imageplugins/coreplugin/sharpnesseditor/clapack/s_stop.c

  • Committer: Bazaar Package Importer
  • Author(s): Mark Purcell
  • Date: 2008-07-17 20:25:39 UTC
  • mfrom: (1.3.2 upstream) (37 hardy)
  • mto: This revision was merged to the branch mainline in revision 39.
  • Revision ID: james.westby@ubuntu.com-20080717202539-1bw3w3nrsso7yj4z
* New upstream release
  - digiKam 0.9.4 Release Plan (KDE3) ~ 13 July 08 (Closes: #490144)
* DEB_CONFIGURE_EXTRA_FLAGS := --without-included-sqlite3
* Debhelper compatibility level V7
* Install pixmaps in debian/*.install
* Add debian/digikam.lintian-overrides

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
#include "stdio.h"
 
2
#include "f2c.h"
 
3
 
 
4
#ifdef KR_headers
 
5
extern void f_exit();
 
6
VOID s_stop(s, n) char *s; ftnlen n;
 
7
#else
 
8
#undef abs
 
9
#undef min
 
10
#undef max
 
11
#include "stdlib.h"
 
12
#ifdef __cplusplus
 
13
extern "C" {
 
14
#endif
 
15
void f_exit(void);
 
16
 
 
17
int s_stop(char *s, ftnlen n)
 
18
#endif
 
19
{
 
20
int i;
 
21
 
 
22
if(n > 0)
 
23
        {
 
24
        fprintf(stderr, "STOP ");
 
25
        for(i = 0; i<n ; ++i)
 
26
                putc(*s++, stderr);
 
27
        fprintf(stderr, " statement executed\n");
 
28
        }
 
29
#ifdef NO_ONEXIT
 
30
f_exit();
 
31
#endif
 
32
exit(0);
 
33
 
 
34
/* We cannot avoid (useless) compiler diagnostics here:         */
 
35
/* some compilers complain if there is no return statement,     */
 
36
/* and others complain that this one cannot be reached.         */
 
37
 
 
38
return 0; /* NOT REACHED */
 
39
}
 
40
#ifdef __cplusplus
 
41
}
 
42
#endif