source: trunk/libIGCM/libIGCM_card/IGCM_card_WriteOption.awk @ 58

Last change on this file since 58 was 23, checked in by sdipsl, 16 years ago

PB + MM : - great optimisation for libIGCM_date

  • add IGCM_card_WriteArrayOption. Write an array option for a given file.card and section
  • Property licence set to
    The following licence information concerns ONLY the libIGCM tools
    ==================================================================

    Copyright © Centre National de la Recherche Scientifique CNRS
    Commissariat à l'Énergie Atomique CEA

    libIGCM : Library for Portable Models Computation of IGCM Group.

    IGCM Group is the french IPSL Global Climate Model Group.

    This library is a set of shell scripts and functions whose purpose is
    the management of the initialization, the launch, the transfer of
    output files, the post-processing and the monitoring of datas produce
    by any numerical program on any plateforme.

    This software is governed by the CeCILL license under French law and
    abiding by the rules of distribution of free software. You can use,
    modify and/ or redistribute the software under the terms of the CeCILL
    license as circulated by CEA, CNRS and INRIA at the following URL
    "http://www.cecill.info".

    As a counterpart to the access to the source code and rights to copy,
    modify and redistribute granted by the license, users are provided only
    with a limited warranty and the software's author, the holder of the
    economic rights, and the successive licensors have only limited
    liability.

    In this respect, the user's attention is drawn to the risks associated
    with loading, using, modifying and/or developing or reproducing the
    software by the user in light of its specific status of free software,
    that may mean that it is complicated to manipulate, and that also
    therefore means that it is reserved for developers and experienced
    professionals having in-depth computer knowledge. Users are therefore
    encouraged to load and test the software's suitability as regards their
    requirements in conditions enabling the security of their systems and/or
    data to be ensured and, more generally, to use and operate it in the
    same conditions as regards security.

    The fact that you are presently reading this means that you have had
    knowledge of the CeCILL license and that you accept its terms.
  • Property svn:keywords set to Date Author Revision
File size: 2.4 KB
Line 
1#!/usr/bin/awk -f
2
3#**************************************************************
4# Author: Patrick Brockmann
5# Contact: Patrick.Brockmann@cea.fr
6# $Date$
7# $Author$
8# $Revision$
9# IPSL (2006)
10#  This software is governed by the CeCILL licence see libIGCM/libIGCM_CeCILL.LIC
11# History:
12# Modification:
13#
14#**************************************************************
15
16#==========================
17function myprint(str) {
18        if (debug) {
19                print str
20        }
21}
22
23#==========================
24BEGIN {
25
26nbarg=ARGC
27if (match(ARGV[1],"-d")) {
28        debug=1
29        file=ARGV[2]
30        section=ARGV[3]
31        option=ARGV[4]
32        value=ARGV[5]
33        delete ARGV[1] ; delete ARGV[3] ; delete ARGV[4] ; delete ARGV[5]
34        nbarg--
35} else {
36        debug=0
37        file=ARGV[1]
38        section=ARGV[2]
39        option=ARGV[3]
40        value=ARGV[4]
41        delete ARGV[2] ; delete ARGV[3] ; delete ARGV[4]
42}
43
44
45# When exit statement, 'END' rule is always executed, so defined a exit_value to manage this
46exit_value=0
47if (nbarg != 5) {
48        print "Usage: IGCM_card_WriteOption [-d] file section option value"
49        print 
50        print "Args:"
51        print "      file = file at CARD format" 
52        print "      section = section to find" 
53        print "      option = option to find" 
54        print "      value = value option to write" 
55        print 
56        print "Options:" 
57        print "       -d = debug mode" 
58        print
59        exit_value=1
60        exit
61}
62
63section_found=0
64section_inside=0
65option_found=0
66}
67
68#==========================
69{
70
71myprint($0) 
72
73# Find section with delimiters '[' and ']'
74if (match($0, "\\[" section "\\]")) {
75
76        myprint("---->section found")
77        section_found=1
78        section_inside=1
79        print $0
80
81} else if (section_inside == 1 && (match($0, "^[ ]*" option "[ ]*="))) {
82
83        myprint("---->option found")
84        option_found=1
85
86        print option "= " value
87        myprint("---->new value ")
88
89} else if (section_inside == 1 && match($0, /^[\[*\]]/)) {
90
91        myprint("---->end section")
92        section_inside=0
93        print $0
94
95} else {
96        print $0
97}
98
99}
100
101#==========================
102END {
103
104    if (! exit_value ) {
105
106        myprint("###############################")
107        myprint("section      ====> " section)
108        myprint("option       ====> " option)
109        myprint("value        ====> " value)
110       
111        if (section_found == 0) {
112            print "Error: Section not found", section, option
113        } else if (option_found == 0) {
114            print "Error: Option not found", section, option
115        }       
116       
117    } else {
118
119        print "Error in with IGCM_WriteOption : ", section, option
120
121    }
122
123}
124 
125#==========================
Note: See TracBrowser for help on using the repository browser.