00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023 #include "dhry.h"
00024 #include <string.h>
00025
00026 #ifndef REG
00027 #define REG
00028
00029
00030 #endif
00031 extern Boolean Func_3 (Enumeration Enum_Par_Val);
00032 extern int Int_Glob;
00033 extern char Ch_1_Glob;
00034
00035
00036
00037
00038 Boolean Func_3 (Enumeration Enum_Par_Val)
00039
00040 {
00041
00042 Enumeration Enum_Loc;
00043
00044 Enum_Loc = Enum_Par_Val;
00045 if (Enum_Loc == Ident_3)
00046
00047 return (true);
00048 else
00049 return (false);
00050
00051 }
00052
00053 void Proc_6 ( Enumeration Enum_Val_Par, Enumeration *Enum_Ref_Par)
00054
00055
00056
00057 {
00058 *Enum_Ref_Par = Enum_Val_Par;
00059 if (! Func_3 (Enum_Val_Par))
00060
00061 *Enum_Ref_Par = Ident_4;
00062 switch (Enum_Val_Par)
00063 {
00064 case Ident_1:
00065 *Enum_Ref_Par = Ident_1;
00066 break;
00067 case Ident_2:
00068 if (Int_Glob > 100)
00069 *Enum_Ref_Par = Ident_1;
00070 else
00071 *Enum_Ref_Par = Ident_4;
00072 break;
00073 case Ident_3:
00074 *Enum_Ref_Par = Ident_2;
00075 break;
00076 case Ident_4:
00077 break;
00078 case Ident_5:
00079 *Enum_Ref_Par = Ident_3;
00080 break;
00081 }
00082 }
00083
00084
00085 void Proc_7 ( One_Fifty Int_1_Par_Val,
00086 One_Fifty Int_2_Par_Val,
00087 One_Fifty *Int_Par_Ref )
00088
00089
00090
00091
00092
00093
00094
00095
00096 {
00097 One_Fifty Int_Loc;
00098
00099 Int_Loc = Int_1_Par_Val + 2;
00100 *Int_Par_Ref = Int_2_Par_Val + Int_Loc;
00101 }
00102
00103
00104 void Proc_8 ( Arr_1_Dim Arr_1_Par_Ref,
00105 Arr_2_Dim Arr_2_Par_Ref,
00106 int Int_1_Par_Val,
00107 int Int_2_Par_Val)
00108
00109
00110
00111
00112 {
00113 REG One_Fifty Int_Index;
00114 REG One_Fifty Int_Loc;
00115
00116 Int_Loc = Int_1_Par_Val + 5;
00117 Arr_1_Par_Ref [Int_Loc] = Int_2_Par_Val;
00118 Arr_1_Par_Ref [Int_Loc+1] = Arr_1_Par_Ref [Int_Loc];
00119 Arr_1_Par_Ref [Int_Loc+30] = Int_Loc;
00120 for (Int_Index = Int_Loc; Int_Index <= Int_Loc+1; ++Int_Index)
00121 Arr_2_Par_Ref [Int_Loc] [Int_Index] = Int_Loc;
00122 Arr_2_Par_Ref [Int_Loc] [Int_Loc-1] += 1;
00123 Arr_2_Par_Ref [Int_Loc+20] [Int_Loc] = Arr_1_Par_Ref [Int_Loc];
00124 Int_Glob = 5;
00125 }
00126
00127
00128 Enumeration Func_1 (Capital_Letter Ch_1_Par_Val, Capital_Letter Ch_2_Par_Val)
00129
00130
00131
00132
00133
00134 {
00135 Capital_Letter Ch_1_Loc;
00136 Capital_Letter Ch_2_Loc;
00137
00138 Ch_1_Loc = Ch_1_Par_Val;
00139 Ch_2_Loc = Ch_1_Loc;
00140 if (Ch_2_Loc != Ch_2_Par_Val)
00141
00142 return (Ident_1);
00143 else
00144 {
00145 Ch_1_Glob = Ch_1_Loc;
00146 return (Ident_2);
00147 }
00148 }
00149
00150
00151 Boolean Func_2 (Str_30 Str_1_Par_Ref, Str_30 Str_2_Par_Ref)
00152
00153
00154
00155
00156
00157 {
00158 REG One_Thirty Int_Loc;
00159 Capital_Letter Ch_Loc;
00160
00161 Int_Loc = 2;
00162 while (Int_Loc <= 2)
00163 if (Func_1 (Str_1_Par_Ref[Int_Loc],
00164 Str_2_Par_Ref[Int_Loc+1]) == Ident_1)
00165
00166 {
00167 Ch_Loc = 'A';
00168 Int_Loc += 1;
00169 }
00170
00171 if (Ch_Loc >= 'W' && Ch_Loc < 'Z')
00172
00173 Int_Loc = 7;
00174 if (Ch_Loc == 'R')
00175
00176 return (true);
00177 else
00178 {
00179 if (strcmp (Str_1_Par_Ref, Str_2_Par_Ref) > 0)
00180
00181 {
00182 Int_Loc += 7;
00183 Int_Glob = Int_Loc;
00184 return (true);
00185 }
00186 else
00187 return (false);
00188 }
00189 }
00190
00191
00192