Overview
Comment: | Changed to () form |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | origin/master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
2f1942ae912d3c92d2b067a6ca187a64 |
User & Date: | gawthrop@users.sourceforge.net on 2000-12-05 12:05:26 |
Other Links: | branch diff | manifest | tags |
Context
2000-12-05
| ||
12:11:45 | Changed function name to name() check-in: 436a0a6509 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
12:05:26 | Changed to () form check-in: 2f1942ae91 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
12:04:03 | Changed function name to name() check-in: 4445c30b1b user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/mtt_header from [dfc8551f84] to [690440172a].
︙ | ︙ | |||
8 9 10 11 12 13 14 15 16 17 18 19 20 21 | # Copyright (C) 2000 by Peter J. Gawthrop ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.23 2000/12/05 09:47:50 peterg ## Include crs as c files ## ## Revision 1.22 2000/12/04 12:19:12 peterg ## Changed $() to `` and $() to expr for sh compatibility -- geraint ## ## Revision 1.21 2000/12/04 08:52:40 peterg | > > > | 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | # Copyright (C) 2000 by Peter J. Gawthrop ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.24 2000/12/05 10:04:52 peterg ## Fixed dummy variable bug ## ## Revision 1.23 2000/12/05 09:47:50 peterg ## Include crs as c files ## ## Revision 1.22 2000/12/04 12:19:12 peterg ## Changed $() to `` and $() to expr for sh compatibility -- geraint ## ## Revision 1.21 2000/12/04 08:52:40 peterg |
︙ | ︙ | |||
283 284 285 286 287 288 289 | echo Language $language not supported - sorry; exit 1 esac if [ "$rep" = "simpar" ]; then output=${output}${map} # Output is simpar_map in this case fi | | | 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 | echo Language $language not supported - sorry; exit 1 esac if [ "$rep" = "simpar" ]; then output=${output}${map} # Output is simpar_map in this case fi zero_matrices() { ## Set matrices to zero echo ## echo '## Set matrices to zero' for name in $zeromatrices; do case $name in a) |
︙ | ︙ | |||
312 313 314 315 316 317 318 | *) esac echo " mtt$name = zeros($N,$M);" done } | | | 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 | *) esac echo " mtt$name = zeros($N,$M);" done } declare_dummies() { # Get the dummies dummies="mtt_tmp" rm -f mtt_dummies for dummy in $dummies; do grep "${dummy}[0-9]* " < ${fun_name}.m |\ awk '{ |
︙ | ︙ | |||
338 339 340 341 342 343 344 | EOF for dummy in $dummy_list; do echo ' ' $var_declaration $dummy';' done } # declare_dummies | | | | | 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 | EOF for dummy in $dummy_list; do echo ' ' $var_declaration $dummy';' done } # declare_dummies declare_switches () { cat <<EOF $Lc Declarations of switches $Rc EOF strip_comments <${system}_switch.txt |\ awk '{printf(" double %s_logic = 0;\n", tolower($1))}' } # declare_switches declare_vars() { # Grab the names names=`awk '{if ($1==var_type) print tolower($4)}' var_type=$1 ${system}_struc.txt` # Comments cat <<EOF $Lc Declarations for $1 names $Rc EOF # Declarations for name in $names; do echo ' '$var_declaration $name';' done } array2constant() { # Parameters if [ "$parameters" = "yes" ]; then cat <<EOF $Lc Parameters $Rc EOF |
︙ | ︙ | |||
423 424 425 426 427 428 429 | zero_matrices; } # Argument specific stuff | | | 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 | zero_matrices; } # Argument specific stuff get_arg_specific_stuff () { arg_name=${1:-""} case ${arg_name} in mtta | mtte) arg_type="Matrix" arg_size="(MTTNX,MTTNX)" ;; |
︙ | ︙ | |||
477 478 479 480 481 482 483 | ;; *) echo "Argument ${arg} not supported - sorry"; exit 1 esac } | | | | 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 | ;; *) echo "Argument ${arg} not supported - sorry"; exit 1 esac } get_field () { # parse comma separated string s=${1:-""} # comma separated string i=${2:-0} # field number in string if [ 0 -eq ${i} ]; then # return number of fields echo ${s} |\ awk -F\, '{ print NF }' else # return ith field echo ${s} |\ awk -F\, -v i=${i} '{ print $i }' fi } get_extra_fields () { # return list of words in s2 and not in s1 s1=${1:-""} # comma separated list s2=${2:-""} # comma separated list c1=`get_field ${s1} 0` # count words in s1 c2=`get_field ${s2} 0` # count words in s2 |
︙ | ︙ | |||
527 528 529 530 531 532 533 | fi fi done echo ${ans} } | | | 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 | fi fi done echo ${ans} } write_DLD_header() { cat <<EOF #include <octave/oct.h> #include <octave/ov-struct.h> #include <octave/toplev.h> #include <math.h> |
︙ | ︙ | |||
554 555 556 557 558 559 560 | octave_value_list retval; EOF } | | | 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 | octave_value_list retval; EOF } map_DLD_inputs () { s=${1:-""} # comma separated input list if [ -z ${s:-""} ];then return; fi c=`get_field ${s} 0` # count of inputs i=0 printf " if (${c} != args.length ()) usage (\"${fun_name} expected ${c} argument(s): ${s}\");\n\n" while [ ${i} -lt ${c} ]; do |
︙ | ︙ | |||
579 580 581 582 583 584 585 | ;; esac done printf "\n" } | | | | 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 | ;; esac done printf "\n" } declare_DLD_outputs () { s=${1:-""} # comma separated output list c=`get_field ${s} 0` # count of outputs i=0 while [ ${i} -lt ${c} ]; do i=`expr ${i} + 1` w=`get_field ${s} ${i}` # argument name get_arg_specific_stuff ${w} printf " ${arg_type}\t${w}\t${arg_size};\n" done } return_DLD_outputs () { s=${1:-""} # comma separated output list c=`get_field ${s} 0` # count of outputs i=0 cat <<EOF // END Code |
︙ | ︙ |