assign to and read from global variable

[Malte Frank Gerdes]

Hi,

i'm trying to collect every definition of variables with it's according
value in a global variable. How i think it's supposed to work is:

(define *global* '())

(...
  (defvar . ,(lambda (_ . args)
               (set! *global* (cons *global* args))))
 ...)



This results in the following output:
((()
  "..."
  (...))
 "..."
 (...))

Why doesn't it result in:
("..."
 (...)
 "..."
 (...))
?

Also: is it possible to not have to define *global* before but rather
set-and-define-if-not-defined it? 

thanks for any help :D
Malte

---------------------------------------------------------------------------------

(use-modules (srfi srfi-1)
             (ice-9 peg)
             (ice-9 pretty-print)
             (ice-9 rdelim)
             (sxml transform))

(define *bp*
  (read-delimited "" (open-input-file (cadr (command-line))) 'concat))

(define-peg-string-patterns
  "blueprint  <-- (comment* (ws? defvar ws?)* module* comment*)* .*
   module     <-- rule ws? map ws?
   rule       <-- 'cc_binary_host' / 'cc_test_library' / 'cc_test_host' /
                  'cc_binary' / 'cc_test' /'cc_library_host_static' /
                  'cc_library_static' / 'cc_library_shared' /
                  'cc_library_headers' / 'cc_library' / 'cc_defaults' /
                  'cc_benchmark' / 'python_test_host' / 'genrule' / 'filegroup' 
/
                  'ndk_headers' / 'ndk_library' / 'llndk_library' /
                  'python_binary_host' / 'cc_prebuilt_binary' / 'prebuilt_etc' /
                  'python_defaults' / 'phony'
   defvar     <-- var ws? eq ws? value

   eq         < '='
   nl         < '\n'
   ws         < (' ' / '\t' / nl)+
   comma      < ','
   colon      < ':'
   maplb      < '{'
   maprb      < '}'
   listlb     < '['
   listrb     < ']'
   comment    < ws? '//' ( . !nl )* . ws?
   strb       < '\"'

   append     < '+'

   key        <-- ws? (comment ws?)* [-a-zA-Z0-9_]+
   bool       <-- 'true' / 'false'
   integer    <-- '-'? [0-9]+
   string     <-- strb (. !strb)* . strb
   map-enum   <-  attribute comma ws? map-enum / attribute comma / attribute
   map        <-- maplb ws? maprb / maplb ws? comment* ws? map-enum ws? 
comment* maprb
   attribute  <-- key ws? colon ws? expr
   expr       <-- value ws? append ws? expr / value
   value      <-- bool / integer / string / map / list / var
   var        <-  [-a-zA-Z0-9_]+
   list-enum  <-  value comma ws? list-enum / value comma / value
   list       <-- listlb ws? listrb / listlb ws? comment* ws? list-enum ws? 
comment* listrb
")

;; (pretty-print (peg:tree (match-pattern blueprint *bp*)))

(define (flatten-and-filter terms tree)
  (filter list? (keyword-flatten terms tree)))

(define (process-as-bool . args)
  (cond
   ((string=? "true"  (second args)) '#t)
   ((string=? "false" (second args)) '#f)
   (else (display "not a bool"))))

(define (process-as-string . args) (cadr args))

(define (process-as-symbol . args) (string->symbol (cadr args)))

(define (process-as-expr . args)
  (if (= (length args) 2)
      (second args)
      (keyword-flatten '(value) (cdr args))))

(define (process-as-attribute . args)
  (cons (second args) (cddr args)))

(define (process-as-append . args)
  (second args))

(define (process-as-value . args) (second args))

(define (process-as-map . args)
  (cdr args))

(define *global* '())

(define (preprocess-peg-tree tree)
  (pre-post-order tree
                  `((module    . ,process-as-map)
                    (blueprint *macro* . ,(lambda (_ . args)
                                            (flatten-and-filter '(module 
defvar) args)))
                    (append    . ,process-as-append)
                    (rule      . ,process-as-symbol)
                    (value     . ,process-as-value)
                    (defvar    . ,(lambda (_ . args)
                                    (set! *global* (cons *global* args))
                                    args))
                    (expr      . ,process-as-expr)
                    (attribute . ,process-as-attribute)
                    (key       . ,process-as-symbol)
                    (bool      . ,process-as-bool)
                    (string    . ,process-as-string)
                    (list *macro* . ,(lambda (_ . values)
                                       (flatten-and-filter '(value) values)))
                    (map *macro* . ,(lambda (_ . values)
                                      (flatten-and-filter '(attribute) values)))
                    (*text* . ,(lambda (_ value) value))
                    (*default* . ,(lambda tree tree)))))

(preprocess-peg-tree (peg:tree (match-pattern blueprint *bp*)))


+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


//
// Copyright (C) 2008 The Android Open Source Project
//
// Licensed under the Apache License, Version 2.0 (the "License");
// you may not use this file except in compliance with the License.
// You may obtain a copy of the License at
//
//      http://www.apache.org/licenses/LICENSE-2.0
//
// Unless required by applicable law or agreed to in writing, software
// distributed under the License is distributed on an "AS IS" BASIS,
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
// See the License for the specific language governing permissions and
// limitations under the License.
//

// some files must not be compiled when building against Mingw
// they correspond to features not used by our host development tools
// which are also hard or even impossible to port to native Win32
libcutils_nonwindows_sources = [
    "fs.cpp",
    "hashmap.cpp",
    "multiuser.cpp",
    "socket_inaddr_any_server_unix.cpp",
    "socket_local_client_unix.cpp",
    "socket_local_server_unix.cpp",
    "socket_network_client_unix.cpp",
    "sockets_unix.cpp",
    "str_parms.cpp",
]

cc_library_headers {
    name: "libcutils_headers",
    vendor_available: true,
    recovery_available: true,
    host_supported: true,
    export_include_dirs: ["include"],
    target: {
        vendor: {
            override_export_include_dirs: ["include_vndk"],
        },
        linux_bionic: {
            enabled: true,
        },
        windows: {
            enabled: true,
        },
    },
}

cc_library {
    name: "libcutils",
    vendor_available: true,
    vndk: {
        enabled: true,
        support_system_process: true,
    },
    recovery_available: true,
    host_supported: true,
    srcs: [
        "config_utils.cpp",
        "canned_fs_config.cpp",
        "iosched_policy.cpp",
        "load_file.cpp",
        "native_handle.cpp",
        "record_stream.cpp",
        "sockets.cpp",
        "strdup16to8.cpp",
        "strdup8to16.cpp",
        "strlcpy.c",
        "threads.cpp",
    ],

    target: {
        linux_bionic: {
            enabled: true,
        },
        not_windows: {
            srcs: libcutils_nonwindows_sources + [
                "ashmem-host.cpp",
                "fs_config.cpp",
                "trace-host.cpp",
            ],
        },
        windows: {
            host_ldlibs: ["-lws2_32"],

            srcs: [
                "socket_inaddr_any_server_windows.cpp",
                "socket_network_client_windows.cpp",
                "sockets_windows.cpp",
                "trace-host.cpp",
            ],

            enabled: true,
            cflags: [
                "-D_GNU_SOURCE",
            ],
        },

        android: {
            srcs: libcutils_nonwindows_sources + [
                "android_get_control_file.cpp",
                "android_reboot.cpp",
                "ashmem-dev.cpp",
                "fs_config.cpp",
                "klog.cpp",
                "partition_utils.cpp",
                "properties.cpp",
                "qtaguid.cpp",
                "trace-dev.cpp",
                "uevent.cpp",
            ],
        },

        android_arm: {
            srcs: ["arch-arm/memset32.S"],
            sanitize: {
                misc_undefined: ["integer"],
            },
        },
        android_arm64: {
            srcs: ["arch-arm64/android_memset.S"],
            sanitize: {
                misc_undefined: ["integer"],
            },
        },

        android_mips: {
            srcs: ["arch-mips/android_memset.c"],
            sanitize: {
                misc_undefined: ["integer"],
            },
        },
        android_mips64: {
            srcs: ["arch-mips/android_memset.c"],
            sanitize: {
                misc_undefined: ["integer"],
            },
        },

        android_x86: {
            srcs: [
                "arch-x86/android_memset16.S",
                "arch-x86/android_memset32.S",
            ],
            // TODO: This is to work around b/29412086.
            // Remove once __mulodi4 is available and move the "sanitize" block
            // to the android target.
            sanitize: {
                misc_undefined: [],
            },
        },

        android_x86_64: {
            srcs: [
                "arch-x86_64/android_memset16.S",
                "arch-x86_64/android_memset32.S",
            ],
            sanitize: {
                misc_undefined: ["integer"],
            },
        },

        vendor: {
            exclude_srcs: [
                // qtaguid.cpp loads libnetd_client.so with dlopen().  Since
                // the interface of libnetd_client.so may vary between AOSP
                // releases, exclude qtaguid.cpp from the VNDK-SP variant.
                "qtaguid.cpp",
            ],
        }
    },

    shared_libs: [
        "liblog",
        "libbase",
    ],
    header_libs: [
        "libbase_headers",
        "libcutils_headers",
        "libutils_headers",
        "libprocessgroup_headers",
    ],
    export_header_lib_headers: [
        "libcutils_headers",
        "libprocessgroup_headers",
    ],
    local_include_dirs: ["include"],

    cflags: [
        "-Werror",
        "-Wall",
        "-Wextra",
    ],
}

cc_defaults {
    name: "libcutils_test_default",
    srcs: ["sockets_test.cpp"],

    target: {
        android: {
            srcs: [
                "android_get_control_file_test.cpp",
                "android_get_control_socket_test.cpp",
                "ashmem_test.cpp",
                "fs_config_test.cpp",
                "memset_test.cpp",
                "multiuser_test.cpp",
                "properties_test.cpp",
                "sched_policy_test.cpp",
                "str_parms_test.cpp",
                "trace-dev_test.cpp",
            ],
        },

        not_windows: {
            srcs: [
                "str_parms_test.cpp",
            ],
        },
    },

    cflags: [
        "-Wall",
        "-Wextra",
        "-Werror",
    ],
}

test_libraries = [
    "libcutils",
    "liblog",
    "libbase",
    "libjsoncpp",
    "libprocessgroup",
    "libcgrouprc",
]

cc_test {
    name: "libcutils_test",
    test_suites: ["device-tests"],
    defaults: ["libcutils_test_default"],
    host_supported: true,
    shared_libs: test_libraries,
}

cc_test {
    name: "libcutils_test_static",
    test_suites: ["device-tests"],
    defaults: ["libcutils_test_default"],
    static_libs: [
        "libc",
        "libcgrouprc_format",
    ] + test_libraries,
    stl: "libc++_static",

    target: {
        android: {
            static_executable: true,
        },
        windows: {
            host_ldlibs: ["-lws2_32"],

            enabled: true,
        },
    },
}