scilab/modules/xcos/tests/unit_tests/computational_functions.tst

   1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   2 // Copyright (C) DIGITEO - 2010-2010 - Clément DAVID <clement.david@scilab.org>
   3 //
   4 // This file is distributed under the same license as the Scilab package.
   5
   6 // <-- XCOS TEST -->
   7 //
   8 // <-- Short Description -->
   9 // Check that all computational function are available.
  10
  11 //
  12 // load the source file list for languages
  13 //
  14
  15 ilib_verbose(0);
  16
  17 BLOCKS_C = [
  18 "absblk",
  19 "absolute_value",
  20 "acos_blk",
  21 "acosh_blk",
  22 "affich2",
  23 "andlog",
  24 "asin_blk",
  25 "asinh_blk",
  26 "assignment",
  27 "atan_blk",
  28 "atanh_blk",
  29 "automat",
  30 "backlash",
  31 "bidon",
  32 "bit_clear_16",
  33 "bit_clear_32",
  34 "bit_clear_8",
  35 "bit_set_16",
  36 "bit_set_32",
  37 "bit_set_8",
  38 "bounce_ball",
  39 "bouncexy",
  40 "canimxy",
  41 "canimxy3d",
  42 "cdummy",
  43 "cevscpe",
  44 "cfscope",
  45 "cmat3d",
  46 "cmatview",
  47 "cmscope",
  48 "constraint_c",
  49 "convert",
  50 "cosblk",
  51 "cos_blk",
  52 "cosh_blk",
  53 "counter",
  54 "cscope",
  55 "cscopxy",
  56 "cscopxy3d",
  57 "csslti4",
  58 "cstblk4",
  59 "cstblk4_m",
  60 "cumsum_c",
  61 "cumsum_m",
  62 "cumsum_r",
  63 "cumsumz_c",
  64 "cumsumz_m",
  65 "cumsumz_r",
  66 "curve_c",
  67 "dband",
  68 "deadband",
  69 "delay4",
  70 "delay4_i16",
  71 "delay4_i32",
  72 "delay4_i8",
  73 "delay4_ui16",
  74 "delay4_ui32",
  75 "delay4_ui8",
  76 "deriv",
  77 "diffblk_c",
  78 "dmmul",
  79 "dmmul1",
  80 "dollar4",
  81 "dollar4_m",
  82 "dsslti4",
  83 "edgetrig",
  84 "evaluate_expr",
  85 "evtdly4",
  86 "evtvardly",
  87 "expblk_m",
  88 "extdiag",
  89 "extdiagz",
  90 "extract",
  91 "extract_bit_16_LH",
  92 "extract_bit_16_LSB",
  93 "extract_bit_16_MSB0",
  94 "extract_bit_16_MSB1",
  95 "extract_bit_16_RB0",
  96 "extract_bit_16_RB1",
  97 "extract_bit_16_UH0",
  98 "extract_bit_16_UH1",
  99 "extract_bit_32_LH",
 100 "extract_bit_32_LSB",
 101 "extract_bit_32_MSB0",
 102 "extract_bit_32_MSB1",
 103 "extract_bit_32_RB0",
 104 "extract_bit_32_RB1",
 105 "extract_bit_32_UH0",
 106 "extract_bit_32_UH1",
 107 "extract_bit_8_LH",
 108 "extract_bit_8_LSB",
 109 "extract_bit_8_MSB0",
 110 "extract_bit_8_MSB1",
 111 "extract_bit_8_RB0",
 112 "extract_bit_8_RB1",
 113 "extract_bit_8_UH0",
 114 "extract_bit_8_UH1",
 115 "extract_bit_u16_MSB1",
 116 "extract_bit_u16_RB1",
 117 "extract_bit_u16_UH1",
 118 "extract_bit_u32_MSB1",
 119 "extract_bit_u32_RB1",
 120 "extract_bit_u32_UH1",
 121 "extract_bit_u8_MSB1",
 122 "extract_bit_u8_RB1",
 123 "extract_bit_u8_UH1",
 124 "extractor",
 125 "extractz",
 126 "exttril",
 127 "exttrilz",
 128 "exttriu",
 129 "exttriuz",
 130 "foriterator",
 131 "fromws_c",
 132 "gain",
 133 "gainblk",
 134 "gainblk_i16e",
 135 "gainblk_i16n",
 136 "gainblk_i16s",
 137 "gainblk_i32e",
 138 "gainblk_i32n",
 139 "gainblk_i32s",
 140 "gainblk_i8e",
 141 "gainblk_i8n",
 142 "gainblk_i8s",
 143 "gainblk_ui16e",
 144 "gainblk_ui16n",
 145 "gainblk_ui16s",
 146 "gainblk_ui32e",
 147 "gainblk_ui32n",
 148 "gainblk_ui32s",
 149 "gainblk_ui8e",
 150 "gainblk_ui8n",
 151 "gainblk_ui8s",
 152 "hystheresis",
 153 "integral_func",
 154 "integralz_func",
 155 "invblk4",
 156 "logic",
 157 "logicalop",
 158 "logicalop_i16",
 159 "logicalop_i32",
 160 "logicalop_i8",
 161 "logicalop_m",
 162 "logicalop_ui16",
 163 "logicalop_ui32",
 164 "logicalop_ui8",
 165 "lookup2d",
 166 "lookup_c",
 167 "mat_bksl",
 168 "matbyscal",
 169 "matbyscal_e",
 170 "matbyscal_s",
 171 "mat_cath",
 172 "mat_catv",
 173 "mat_det",
 174 "mat_diag",
 175 "mat_div",
 176 "mat_expm",
 177 "mathermit_m",
 178 "mat_inv",
 179 "mat_lu",
 180 "matmul2_e",
 181 "matmul2_m",
 182 "matmul2_s",
 183 "matmul_i16e",
 184 "matmul_i16n",
 185 "matmul_i16s",
 186 "matmul_i32e",
 187 "matmul_i32n",
 188 "matmul_i32s",
 189 "matmul_i8e",
 190 "matmul_i8n",
 191 "matmul_i8s",
 192 "matmul_m",
 193 "matmul_ui16e",
 194 "matmul_ui16n",
 195 "matmul_ui16s",
 196 "matmul_ui32e",
 197 "matmul_ui32n",
 198 "matmul_ui32s",
 199 "matmul_ui8e",
 200 "matmul_ui8n",
 201 "matmul_ui8s",
 202 "mat_pinv",
 203 "mat_reshape",
 204 "mat_sing",
 205 "mat_sqrt",
 206 "mat_sum",
 207 "mat_sumc",
 208 "mat_suml",
 209 "mat_svd",
 210 "mattran_m",
 211 "mat_vps",
 212 "mat_vpv",
 213 "matz_abs",
 214 "matz_absc",
 215 "matz_bksl",
 216 "matz_cath",
 217 "matz_catv",
 218 "matz_conj",
 219 "matz_det",
 220 "matz_diag",
 221 "matz_div",
 222 "matz_expm",
 223 "matz_inv",
 224 "matz_lu",
 225 "matzmul2_m",
 226 "matzmul_m",
 227 "matz_pinv",
 228 "matz_reim",
 229 "matz_reimc",
 230 "matz_reshape",
 231 "matz_sing",
 232 "matz_sqrt",
 233 "matz_sum",
 234 "matz_sumc",
 235 "matz_suml",
 236 "matz_svd",
 237 "matztran_m",
 238 "matz_vps",
 239 "matz_vpv",
 240 "m_frequ",
 241 "minmax",
 242 "modulo_count",
 243 "mswitch",
 244 "multiplex",
 245 "plusblk",
 246 "prod",
 247 "product",
 248 "ramp",
 249 "ratelimiter",
 250 "readau",
 251 "readc",
 252 "relationalop",
 253 "relational_op",
 254 "relational_op_i16",
 255 "relational_op_i32",
 256 "relational_op_i8",
 257 "relational_op_ui16",
 258 "relational_op_ui32",
 259 "relational_op_ui8",
 260 "relay",
 261 "ricc_m",
 262 "rndblk_m",
 263 "rndblkz_m",
 264 "root_coef",
 265 "rootz_coef",
 266 "samphold4",
 267 "samphold4_m",
 268 "satur",
 269 "scalar2vector",
 270 "scicosexit",
 271 "selector",
 272 "selector_m",
 273 "shift_16_LA",
 274 "shift_16_LC",
 275 "shift_16_RA",
 276 "shift_16_RC",
 277 "shift_32_LA",
 278 "shift_32_LC",
 279 "shift_32_RA",
 280 "shift_32_RC",
 281 "shift_8_LA",
 282 "shift_8_LC",
 283 "shift_8_RA",
 284 "shift_8_RC",
 285 "shift_u16_RA",
 286 "shift_u32_RA",
 287 "shift_u8_RA",
 288 "signum",
 289 "sin_blk",
 290 "sinh_blk",
 291 "step_func",
 292 "submat",
 293 "submatz",
 294 "sum",
 295 "summation",
 296 "summation_i16e",
 297 "summation_i16n",
 298 "summation_i16s",
 299 "summation_i32e",
 300 "summation_i32n",
 301 "summation_i32s",
 302 "summation_i8e",
 303 "summation_i8n",
 304 "summation_i8s",
 305 "summation_ui16e",
 306 "summation_ui16n",
 307 "summation_ui16s",
 308 "summation_ui32e",
 309 "summation_ui32n",
 310 "summation_ui32s",
 311 "summation_ui8e",
 312 "summation_ui8n",
 313 "summation_ui8s",
 314 "summation_z",
 315 "switch2",
 316 "switch2_m",
 317 "switchn",
 318 "tablex2d_c",
 319 "tan_blk",
 320 "tanh_blk",
 321 "tcslti4",
 322 "tcsltj4",
 323 "time_delay",
 324 "tows_c",
 325 "variable_delay",
 326 "whileiterator",
 327 "writeau",
 328 "writec",
 329 "zcross2",
 330 ];
 331
 332 BLOCKS_FORTRAN = [
 333 "csslti",
 334 "cstblk",
 335 "delay",
 336 "delayv",
 337 "demux",
 338 "diffblk",
 339 "dlradp",
 340 "dollar",
 341 "dsslti",
 342 "eselect",
 343 "evtdly",
 344 "expblk",
 345 "forblk",
 346 "fsv",
 347 "gensin",
 348 "gensqr",
 349 "hltblk",
 350 "ifthel",
 351 "integr",
 352 "intplt",
 353 "intpol",
 354 "intrp2",
 355 "intrpl",
 356 "invblk",
 357 "iocopy",
 358 "logblk",
 359 "lookup",
 360 "lsplit",
 361 "lusat",
 362 "maxblk",
 363 "memo",
 364 "mfclck",
 365 "minblk",
 366 "mux",
 367 "pload",
 368 "powblk",
 369 "qzcel",
 370 "qzflr",
 371 "qzrnd",
 372 "qztrn",
 373 "readf",
 374 "rndblk",
 375 "samphold",
 376 "sawtth",
 377 "sciblk",
 378 "selblk",
 379 "sinblk",
 380 "sqrblk",
 381 "sum2",
 382 "sum3",
 383 "tanblk",
 384 "tcslti",
 385 "tcsltj",
 386 "timblk",
 387 "trash",
 388 "writef",
 389 "zcross",
 390 ];
 391
 392 BLOCKS_CPP = [
 393 "affich2",
 394 ];
 395
 396 //
 397 // load the scicos libs
 398 //
 399
 400 //
 401 // Link them
 402 //
 403
 404 // binary case or source case
 405 if getos() <> "Windows" then
 406     LIB = SCI + "/../../lib/scilab/libsciscicos_blocks" + getdynlibext();
 407     if ~isfile(LIB) then
 408         LIB = SCI + "/modules/scicos_blocks/.libs/libsciscicos_blocks" + getdynlibext();
 409         if ~isfile(LIB) then pause, end
 410     end
 411     if execstr("link(LIB, BLOCKS_C, ""c"");", "errcatch") <> 0 then pause, end
 412     if execstr("link(LIB, BLOCKS_FORTRAN, ""f"");", "errcatch") <> 0 then pause, end
 413     if execstr("link(LIB, BLOCKS_CPP, ""c"");", "errcatch") <> 0 then pause, end
 414
 415 else
 416     LIBCCPP = SCI + "/bin/scicos_blocks" + getdynlibext();
 417     LIBFOR = SCI + "/bin/scicos_blocks_f" + getdynlibext();
 418     if ~isfile(LIBCCPP) then pause, end
 419     if ~isfile(LIBFOR) then pause, end
 420
 421     if execstr("link(LIBCCPP, BLOCKS_C, ""c"");", "errcatch") <> 0 then pause, end
 422     if execstr("link(LIBCCPP, BLOCKS_CPP, ""c"");", "errcatch") <> 0 then pause, end
 423     if execstr("link(LIBFOR, BLOCKS_FORTRAN, ""f"");", "errcatch") <> 0 then pause, end
 424 end
 425
 426 ulink();