2.5: Remove OOPS code from the outliner space, as discussed
[blender-staging.git] / extern / ode / dist / ode / fbuild / BuildUtil
1 #!/usr/bin/perl -w
2 #
3 #########################################################################
4 #                                                                       #
5 # Open Dynamics Engine, Copyright (C) 2001,2002 Russell L. Smith.       #
6 # All rights reserved.  Email: russ@q12.org   Web: www.q12.org          #
7 #                                                                       #
8 # This library is free software; you can redistribute it and/or         #
9 # modify it under the terms of EITHER:                                  #
10 #   (1) The GNU Lesser General Public License as published by the Free  #
11 #       Software Foundation; either version 2.1 of the License, or (at  #
12 #       your option) any later version. The text of the GNU Lesser      #
13 #       General Public License is included with this library in the     #
14 #       file LICENSE.TXT.                                               #
15 #   (2) The BSD-style license that is included with this library in     #
16 #       the file LICENSE-BSD.TXT.                                       #
17 #                                                                       #
18 # This library is distributed in the hope that it will be useful,       #
19 # but WITHOUT ANY WARRANTY; without even the implied warranty of        #
20 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the files    #
21 # LICENSE.TXT and LICENSE-BSD.TXT for more details.                     #
22 #                                                                       #
23 #########################################################################
24
25 package BuildUtil;
26
27
28 # print out code. after newlines, indent according to the number of curly
29 # brackets we've seen
30
31 my $indent = 0;
32 my $startofline = 1;
33
34
35 sub main::output
36 {
37   my $line = $_[0];
38   my ($i,$j,$c);
39   for ($i=0; $i < length ($line); $i++) {
40     $c = substr ($line,$i,1);
41     print main::FOUT $c if $c eq '{';
42     $indent++ if $c eq '{';
43     $indent-- if $c eq '}';
44     if ($startofline) {
45       for ($j=0; $j < $indent; $j++) {
46         print main::FOUT "  ";
47       }
48       $startofline = 0;
49     }
50     print main::FOUT $c if $c ne '{';
51     $startofline = 1 if $c eq "\n";
52   }
53 }
54
55
56 # write a C comment with the correct indenting
57
58 sub main::comment
59 {
60   main::output ("/* $_[0] */\n");
61 }
62
63
64 # return an offset: N*skip = skipN where N=0,1,2,...
65
66 sub main::ofs1 # (N,skip)
67 {
68   my $N = $_[0];
69   my $skip = $_[1];
70   return '0' if $N==0;
71   return $skip . $N;
72 }
73
74
75 # return an offset: M+N*skip = M+skipN where N=0,1,2,...
76
77 sub main::ofs2 # (M,N,skip)
78 {
79   my $M = $_[0];
80   my $N = $_[1];
81   my $skip = $_[2];
82   $M = '0' if $M eq '-0';
83   my $a = $M;
84   $a .= '+' . $skip . $N if ($N > 0);
85   substr ($a,0,2)='' if substr ($a,0,2) eq '0+';
86   return $a;
87 }
88
89
90 # print an error message and exit
91
92 sub main::error
93 {
94   print "ERROR: $_[0]\n";
95   exit 1;
96 }
97
98
99 1;