^period-switch () ^p (= p 'now) ([GetXLTime format="W3C-DTF"]) (= p 'undef) ^"" 1 ^p ^gb-template1 () ^keyword ^property ^period.type ^period.from ^period.to () ^period.from (period-switch period.from) ^period.to (period-switch period.to) ^property (quote ([qualifier cond="part"] ($ gb-ns) 0 "property" () ($ property))) ^period (quote ([qualifier cond="boundary"] ($ gb-ns) 0 "content.period" ($ period.type) ($ (+ period.from " / " period.to)))) (Or (= keyword ()) (= keyword "")) (List 'AND property period) (List 'AND (quote ([qualifier cond="part"] ($ gb-ns) -1 () () ($ keyword))) property period) ^Env0 ^resource-homepage () ^rid ^title ^h (gv-get-bib gb-ns -1 "homepage") (= h ()) ^title ^a (GetElement (car h) 4) (quote( ($ title) )) ^resource-title () ^rid ^title (gv-get-bib gb-ns 0 "title") ^subtitle (gv-get-bib gb-ns 0 "subtitle") (= subtitle ()) ^ret () ^ret (List ")") (Not (= subtitle ())) () ^ret (cons (GetElement (car subtitle) 4) ret) ^subtitle (cdr subtitle) (Not (= ret ())) ^ret (cons "(" ret) (Not (= title ())) () ^ret (cons (GetElement (car title) 4) ret) ^title (cdr title) (= ret ()) (resource-homepage rid "UNTITLED") (resource-homepage rid ret) ^element-link () ^sym () ^rid (GetElement (GetElement sym 'rid) 1) ^entry-URI (GetElement (GetElement sym 'entry-URI) 1) ^target-URI (GetElement (GetElement sym 'target-URI) 1) (= rid ()) 1 (= (/ rid 0x10000) rt-coordinate) ^element-uri (+ "/resource/coordinate/" rid "/") (= (/ rid 0x10000) rt-map) ^element-uri (+ "/resource/map/" rid "/") (= (/ rid 0x10000) rt-luster.r64) ^element-uri (+ "/resource/luster.r64/" rid "/") (= (/ rid 0x10000) rt-vector) ^element-uri (+ "/resource/vector/" rid "/") (= rid ()) () ( "ID:" ($ rid)
($ (resource-title rid))
"Entry:" ($ entry-URI)
"Target:" ($ target-URI)
) ^HTMLdb ^content-type () (+ "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=" (GetHTMLCharSet) "\">") ^main-menu (quote( ("AboutCOSMOS" () "/") ("Radar" Radar-menu "/sys/radar/layer.html") ("Search" Search-menu "/sys/search/periquery.html") ("Preferences" Pref-menu "/sys/pref/setuphome-1.html") )) ^Radar-menu (quote( ("CoordinateLayer" () "/sys/radar/layer.html") ("Notes" () "/sys/radar/notes.html") ("Status" () "/sys/radar/radar.html") )) ^Search-menu (quote( ("PeriodicSearch" () "/sys/search/periquery.html") ("URLSearch" () "/sys/search/urlquery.html") ("GoHome" () "/sys/search/gohome.html") )) ^Pref-menu (quote( ("SetupHome" () "/sys/pref/setuphome-1.html") ("HTTPProxy" () "/sys/pref/httpproxy.html") ("NativeProxy" () "/sys/pref/nativeproxy.html") ("Cache" () "/sys/pref/cache.html") ("ResetAll" () "/sys/pref/reset.html") )) ^menu () ^ind () ^menu ^main-menu ^ret () (And (Not (= ind ())) (Not (= menu ()))) () ^target (car ind) ^n-menu () ^ret (Append ret '("|")) (Not (= menu ())) () ^ref (GetElement (car menu) 2) ^ret (Append ret (If (= (car(car menu)) target) (Then (List target "|")) (Else (quote( ($ (car(car menu))) "|" )))) ) (If (= (car(car menu)) target) (Then (set n-menu (GetElement (car menu) 1)))) ^menu (cdr menu) ^ret (Append ret (quote (
))) ^menu (Eval (CurrentEnvironment) n-menu) ^ind (cdr ind) ^ret ^PollingClass ^PollingClass ^url (CutString GET 13 (StringLength GET)) (gv-get-raw-image (DecodeURLString url)) ^element ^sym (
  • ($ (element-link sym)) ) ^header-style () ^path () ^polling-count (+ polling-count 1) (
    GLOBALBASE CONTROL PAGE
    )         ^header-style-simple () ^path () ^polling-count (+ polling-count 1) ( ) ^indicated ^sym () ^'UL () (Next sym) ^hide ^sym () ^'UL () (Next sym)
    GLOBALBASE COSMOS ($ (content-type))
    ($ (header-style GET)) ($ (menu '("AboutCOSMOS")))

    COSMOS GLOBALBASE VIEWER

    http://www.globalbase.org/

    Version: ($ (GetElement ([GetVersion layer="AP.code"]) 3))
    Copyright: ($ (GetElement ([GetVersion layer="AP.code"]) 2))
    This program is free software; you can redistribute it and/or modify it under the terms of the GLOBALBASE Library General Public License ^"(G-LGPL) " as published by http://www.globalbase.org/ .

    This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
    Layer Name Version
    GLOBALBASE Protocol Version: ($ (GetElement ([GetVersion layer="GB.code"]) 1)) ($ (GetElement ([GetVersion layer="GB.code"]) 3))
    XL Protocol Version: ($ (GetElement ([GetVersion layer="XL.proto"]) 1)) ($ (GetElement ([GetVersion layer="XL.proto"]) 3))
    XL Language Version: ($ (GetElement ([GetVersion layer="XL.lang"]) 1)) ($ (GetElement ([GetVersion layer="XL.lang"]) 3))
    Contributors to GLOBALBASE Development

    Heartfelt thanks go to following people and companies who have given us so much assistance.

    • Apr.2003. -

      NAKAJIMA Tomohito
      Zeta Co.
      Porting and debuging the Windows Version.

    • Apr.2003. -

      ABE Masato
      Testing the Windows Version.

    • Jan.2003. -

      SOURCEFORGE JP
      sourceforge.jp

    • Apr.2002. - Mar.2003.

      MRAMATSU Atsushi ^""
      Sophia Cradle, Inc.
      Research and Development Depertment
      Development Engineer

      Porting the FreeBSD Version.
      ^"(src/arch/unix/machine/FreeBSD)"

    • Sun Microsystems
      Making a machines donation to this project

    GRANT-IN-AID

    • Apr.2000. - Mar.2002.

      The Ministry of Education, Culture, Sprots, Science and Technorogy ^"(MEXT)" Japan
      http://www.mext.go.jp/
      Grant-in-Aid for University and Society Collaboration

      Information Infrastructure of Historical Geography of Hei-an / Kyoto Applied Distributed Computing and Visual Technology
    GLOBALBASE CONTROL PAGE ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Radar" "CoordinateLayer")))
    ($ (Eval HTMLdb ([gv-resource rid="2"] (gv-status))))
    ($ (Eval HTMLdb ([gv-resource rid="3"] (gv-status))))
    GLOBALBASE CONTROL PAGE ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Radar" "Notes")))
    ($ (Eval notes-style ([gv-resource rid="2"] (gv-status))) )
    ($ () ^rid ([Cast type="integer"] (GetElement (DivideString GET "/") 3)) (= QUERY_STRING "pointer-on") (= QUERY_STRING "pointer-off") 1 )
    GLOBALBASE CONTROL PAGE ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Radar" "")))
    ($ (Eval coordinate-style ([gv-resource rid="^rid"] (gv-status)))) ($ () ^rid ([Cast type="integer"] (GetElement (DivideString GET "/") 3)) () )
    GLOBALBASE CONTROL PAGE ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Radar" "")))
    ($ () ^gets ([gv-resource rid="^rid"] (gv-status)) (Eval coordinate-style gets) ) ($ () ^rid ([Cast type="integer"] (GetElement (DivideString GET "/") 3)) )
    GLOBALBASE CONTROL PAGE ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Radar" "")))
    ($ (Eval vector-style ([gv-resource rid="^rid"] (gv-status)))) ($ () ^rid ([Cast type="integer"] (GetElement (DivideString GET "/") 3)) () )
    GLOBALBASE CONTROL PAGE ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Radar" "")))
    ($ (Eval vector-style ([gv-resource rid="^rid"] (gv-status)))) ($ () ^rid ([Cast type="integer"] (GetElement (DivideString GET "/") 3)) )
    GLOBALBASE CONTROL PAGE ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Radar" "")))
    ($ (Eval luster.r64-style ([gv-resource rid="^rid"] (gv-status)))) ($ () ^rid ([Cast type="integer"] (GetElement (DivideString GET "/") 3)) () )
    GLOBALBASE CONTROL PAGE ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Radar" "")))
    ($ (Eval luster.r64-style ([gv-resource rid="^rid"] (gv-status)))) ($ () ^rid ([Cast type="integer"] (GetElement (DivideString GET "/") 3)) () )
    GLOBALBASE CONTROL PAGE ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Radar" "")))
    ($ (Eval map-style ([gv-resource rid="^rid"] (gv-status)))) ($ () ^rid ([Cast type="integer"] (GetElement (DivideString GET "/") 3)) )
    GLOBALBASE CONTROL PAGE ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Radar" "")))
    ($ (Eval map-style ([gv-resource rid="^rid"] (gv-status)))) ($ () ^data (indicate-info QUERY_STRING) () )
    GLOBALBASE CONTROL PAGE ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Radar" "")))
    ($ data)
    GLOBALBASE CONTROL PAGE (URLSearch) ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Search" "URLSearch")))
    ($ (Sequence query-style (url-query-page)))
    GLOBALBASE CONTROL PAGE (URLSearch) ($ (content-type))
    ($ (Sequence (NewEnvPair (CurrentEnvironment) query-style) (url-query-cgi)))
    GLOBALBASE CONTROL PAGE (PeriodicSearch) ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Search" "PeriodicSearch")))
    ($ (Sequence query-style (period-query-page)))
    GLOBALBASE CONTROL PAGE (PeriodicSearch) ($ (content-type))
    ($ (Sequence (NewEnvPair (CurrentEnvironment) query-style) (period-query-cgi)))
    GLOBALBASE CONTROL PAGE (PeriodicSearch) ($ (content-type))
    ($ ([gv-resource rid="6"] (gv-delete-query ([Cast type="integer"] no))))
    GLOBALBASE CONTROL PAGE (GoHome) ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Search" "GoHome")))

    Goto Home

    [Goto Home]
    GLOBALBASE CONTROL PAGE (GoHome) ($ ([gv-resource rid="6"] ^query ([gv-resource rid="4"] (get-initial-query)) ^u (GetElement (GetElement query 'URL) 1) (= u ()) ^u (GetElement query 1) (gv-set-query ($ query)) (gv-zoom u) )) ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Search" "GoHome")))

    Goto Home

    [Goto Home]
    GLOBALBASE CONTROL PAGE (RADAR) ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Radar" "Status")))
    ($ (Eval radar-style ([gv-resource rid="6"] (gv-status))))
    GLOBALBASE CONTROL PAGE (SetupHome) ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Preferences" "SetupHome")))
    ($ (Sequence query-style (setuphome-1-query-page)))
    GLOBALBASE CONTROL PAGE (SetupHome) ($ (content-type))
    ($ (Sequence (NewEnvPair (CurrentEnvironment) query-style) (setuphome-1-query-cgi)))
    GLOBALBASE CONTROL PAGE (SetupHome) ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Preferences" "SetupHome")))
    ($ (Sequence query-style (setuphome-2-query-page)))
    GLOBALBASE CONTROL PAGE (SetupHome) ($ (content-type))
    ($ (Sequence (NewEnvPair (CurrentEnvironment) query-style) (setuphome-2-query-cgi)))
    GLOBALBASE CONTROL PAGE (HTTPProxy) ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Preferences" "HTTPProxy")))

    HTTP Proxy Setup

    ($ (Eval proxy-style ([gv-resource rid="4"] (GetProxy))))
    GLOBALBASE CONTROL PAGE (HTTPProxy) ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Preferences" "Proxy"))) ($ ((NewEnvPair (CurrentEnvironment) proxy-style) (proxy-setup)))

    HTTP Proxy Setup

    ($ (Eval proxy-style ([gv-resource rid="4"] (GetProxy))))
    GLOBALBASE CONTROL PAGE (NativeProxy) ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Preferences" "NativeProxy")))

    Native Proxy Setup

    ($ (Eval native-proxy-style ([gv-resource rid="4"] (GetNativeProxy))))
    GLOBALBASE CONTROL PAGE (NativeProxy) ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Preferences" "Proxy"))) ($ ((NewEnvPair (CurrentEnvironment) native-proxy-style) (proxy-setup)))

    Native Proxy Setup

    ($ (Eval native-proxy-style ([gv-resource rid="4"] (GetNativeProxy))))
    GLOBALBASE CONTROL PAGE (Cache) ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Preferences" "Cache")))

    Cache Setup

    ($ (Eval cache-style ([gv-resource rid="4"] (gv-get-cache))))
    GLOBALBASE CONTROL PAGE (Cache) ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Preferences" "Cache"))) ($ ((NewEnvPair (CurrentEnvironment) cache-style) (cache-setup)))

    Cache Setup

    ($ (Eval cache-style ([gv-resource rid="4"] (gv-get-cache))))
    GLOBALBASE CONTROL PAGE (Reset) ($ (content-type))
    ($ (header-style GET)) ($ (menu '("Preferences" "ResetAll")))

    Reset to Initail State



    [RESET]
    GLOBALBASE CONTROL PAGE (Reset) ($ (content-type))
    ($ ([gv-resource rid="4"] (gv-reset-status))) ($ (header-style GET)) ($ (menu '("Preferences" "Reset")))

    Reset Complete

    ^indicate-info () ^query () ^d (DivideString (DivideString query "-") ":") ^ret () (Not (= d ())) () ^el (GetElement d 0) ^rid (GetElement el 0) ^code ([Cast type="integer"] (GetElement el 1)) ^ret
    ^ret     ^ret ^code ^ret ^d (Next d)     ^ret     ^style (NewEnvironment HTMLdb) ^style ^rid () ^id ( ID: ($ id)
    )         ^entry-URI () ^uri ( Entry: ($ uri)
    )         ^target-URI () ^uri ( Target: ($ uri)
    Pointer Position : "[" INDICATE "]" "[" HIDE "]"
    )         ^initial-status () ^sts (= (ListLength sts) 2) ( Internal Status: ($ (GE sts 1))
    )         (= (ListLength sts) 3) ( Internal Status: ($ (GE sts 1)) ($ (GE sts 2))
    )         ^incremental-status () ^sts ( Incremental Status: ($ sts)
    )         ^indicate () ^sts (= sts "on") ( Indicate: on --- |on| off| auto|
    )         (= sts "off") ( Indicate: off --- |on| off| auto|
    )         (= sts "auto") ( Indicate: auto --- |on| off| auto|
    )         ^category () ^type ( Category: ($ type) ) ^file () ^filename () (= (ListLength filename) 1) ( Target File Type: ($ type) Target File Name: This file ) ( Target File Type: ($ type) Target File Name: ($ filename) ) ^data-ref () ^type ^data (= type "url") (quote( ($ data) )) ^data ^ref-qualifier () ^q (quote( ($ no) ($ q) ($ (EA (CurrentEnvironment) "type" "text")) ($ (data-ref (EA (CurrentEnvironment) "type" "text") data)) )) ^inheritance ^sym (quote( - -- -- -- ($ (bib-list (cdr sym))) )) ^bib-list () ^sym () ^ret () (Not (= sym ())) () ^s (car sym) (= (GetTag (car s)) 'inheritance) ^ret (Append ret (Eval (CurrentEnvironment) s)) 1 ^attr (GetAttribute (car s)) (Not (= attr ())) () () (car (car attr)) (car (cdr (car attr))) ^attr (cdr attr) ^ret (Append ret (cons (ref-qualifier ([Cast type="string"] (GetSymbolCore (car s)))) ())) ^sym (cdr sym) ^ret ^print-namespace () ^namelist () ^ret () (Not (= namelist ())) () ^ns ([Cast type="string"] (car (car namelist))) (= (CutString ns 0 6) "xmlns:") ^ret (cons (quote( ($ (CutString ns 6 (- (StringLength ns) 6))) "-->" ($ (car (cdr (car namelist))))
    )) ret )     ^namelist (cdr namelist)     ^ret     ^bib ^sym () ^namespace (GetAttribute (car sym)) ^no 0 (quote( Bibliography:
    ($ (print-namespace namespace))
    ($ (bib-list (cdr sym)))
    inh qualifier type data
    ))     ^mr ^sym () ^rect (GetElement sym 1) ^tl (GetElement rect 0) ^br (GetElement rect 1) ( Minimam Rectangle:
    Top Left: ($ (GetElement tl 0)) ($ (GetElement tl 1))
    Bottom Right: ($ (GetElement br 0)) ($ (GetElement br 1))
    )         ^coordinate-style (NewEnvironment style) ^coordinate-style ^resolution () ^reso-arg (= (ListLength reso-arg) 3) ( min: ($ (GE reso-arg 1)) max: ($ (GE reso-arg 2)) ) 1 (GE reso-arg 1) ^v () ^reso ( Visible Resolution: ($ reso) ) ^cid () ^list ( Coordinate ID: ($ (cdr list)) ) ^modify () ^list ( Modify Time: ($ (cdr list)) ) ^base-unit () Base Unit: ($ unit) ^"(" ($ (EA () "system" "base")) ^")" ^meta ^sym (

    Meta Information

    ($ (ListEval () (Next sym) 'bib "<TABLE>" )) "</TABLE>" )         ^parents ^sym () ^element ^sym (
  • Mapped Resource: ($ (element-link (GetElement sym 'dest)))
    Mapping Resource: ($ (element-link (GetElement sym 'map)))
    ) (

    Parents List

      ($ (ListEval () (Next sym)))
    )     ^children ^sym () ^element ^sym (
  • Mapped Resource: ($ (element-link (GetElement sym 'src)))
    Mapping Resource: ($ (element-link (GetElement sym 'map)))
    ) (

    Children List

      ($ (ListEval () (Next sym)))
    )     ^coordinate ^sym (

    Coordinate Resource Information

    ($ (ListEval () (Next sym))) )         ^vector-style (NewEnvironment style) ^vector-style ^meta-style (NewEnvironment vector-style) ^meta-style ^modify () ^list ( Modify Time: ($ (cdr list)) ) ^base-unit () Base Unit: ($ unit) ^"(" ($ (EA () "system" "base")) ^")" ^type () ^tp Resource Type: ($ tp) ^level () ^max Max LOD Level: ($ max) ^resolution () ^reso-arg Resolution: ($ (GE reso-arg 1)) ^meta ^sym (

    Meta Information

    ($ (ListEval meta-style (Next sym) 'bib "<TABLE>")) "</TABLE>" )         ^resolution () ^reso-arg () ^type () ^reso () ^level () ^reso () ^vector ^sym (

    Vector Resource Information

    ($ (ListEval () (Next sym))) )         ^luster.r64-style (NewEnvironment style) ^luster.r64-style ^meta-style (NewEnvironment luster.r64-style) ^meta-style ^modify () ^list ( Modify Time: ($ (cdr list)) ) ^type () ^tp Resource Type: ($ tp) ^scan-resolution () ^reso Scan Resolution: ($ reso) ^base-unit () Base Unit: ($ unit) ^"(" ($ (EA () "system" "base")) ^")" ^scale ^sym (= (GetElement (GetElement sym 1) 0) '/) Scale: ($ (GetElement (GetElement sym 1) 1)) : ($ (GetElement (GetElement sym 1) 2)) 1 Scale: ($ (GetElement sym 1)) ^r64 ^sym ( R64 Format Type ($ (GetElement (GetElement sym 'type) 1)) R64 Format Levels ($ (GetElement (GetElement sym 'level) 1)) R64 Format Pixels ^"(" ($ (GetElement (GetElement sym 'rect) 1)) ^")" ) ^cr ^sym ( CR Format Type ($ (GetElement (GetElement sym 'type) 1)) CR Format Levels ($ (GetElement (GetElement sym 'level) 1)) CR Format Pixels ^"(" ($ (GetElement (GetElement sym 'rect) 1)) ^")" ) ^meta ^sym (

    Meta Information

    ($ (ListEval meta-style (Next sym)))
    )         ^resolution () ^reso-arg () ^type () ^reso () ^level () ^reso () ^luster ^sym (

    Luster Resource Information

    ($ (ListEval () (Next sym))) )         ^map-style (NewEnvironment style) ^map-style ^meta-style (NewEnvironment map-style) ^meta-style ^modify () ^list ( Modify Time: ($ (cdr list)) ) ^src () ^uri Source Resource: ($ (ComposeURL entry uri)) ^dest () ^uri Destination Resource: ($ (ComposeURL entry uri)) ^dp () ^depth Depth: ($ depth) ^meta ^sym (

    Meta Information

    ($ (ListEval (NewEnvPair meta-style (CurrentEnvironment)) (Next sym) 'category 'src 'dest ))
    )         ^map ^sym () ^entry (GetElement (GetElement sym 'entry-URI) 1) (

    Map Resource Information

    ($ (ListEval () (Next sym))) )         ^query-style (NewEnvironment (CurrentEnvironment)) ^URL () ^url (+ " Coordinate URL: " url) ^$ () ^cmd ^cmd ^gb-template1 () ^keyword ^property ^period.type ^period.from ^period.to () (= period.from 'now) ^period.from today (= period.to 'now) ^period.to today (quote( GLOBALBASE METADATA ^"(" FORMAT TYPE1 ^")"
    Keyword: ($ keyword)
    GB-Property: ($ property)
    Content Period ^"(" ($ period.type) ^")" : ($ period.from) - ($ period.to) ))     ^or-mode 0 ^OR ^list (= or-mode 0) ^or-mode 1 ^list (Next list) ^no 0 ^ret () (Not (= list ())) () ^ret (cons (+ "[DELETE]") ret) ^ret (cons (Eval (CurrentEnvironment) (GetElement list 0)) ret) ^ret (cons '(LI) ret) ^list (Next list) ^no (+ no 1) (cons 'OL ret) (= or-mode 1) (cons ^'OR (ListEval () (Next list))) ^url-query-page () () ^delete-url urlquery.cgi (
    NEW Coordinate URL:

    ($ (Eval (NewEnvPair query-style (CurrentEnvironment)) ([gv-resource rid="6"] (gv-get-query))))
    )         ^url-query-cgi () () (Not (= (GetElement (ErrHandler action) 5) 0)) ([gv-resource rid="6"] (gv-insert-query (URL ($ url)))) (= action "Insert") ([gv-resource rid="6"] (gv-insert-query (URL ($ url)))) (= action "Replace") ([gv-resource rid="6"] (gv-set-query (URL ($ url)))) (= action "Delete") ([gv-resource rid="6"] (gv-delete-query ([Cast type="integer"] no))) () ^period-query-page () () ^today ([GetXLTime format="W3C-DTF"]) ^delete-url perioddelete.cgi (

    GLOBALBASE METADATA ^"(" FORMAT TYPE 1 ^")"

    NEW Query:
    Keyword:
    GB-Property:
    Period: format: from to
    ($ (Eval (NewEnvPair query-style (CurrentEnvironment)) ([gv-resource rid="6"] (gv-get-query))))
    )         ^period-query-cgi () () (= from "now") ^from ^'(quote now) (= from "today") ^from ^'(quote now) (= to "now") ^to ^'(quote now) (= to "today") ^to ^'(quote now) ^tmp (List '$ (List 'gb-template1 keyword prop timeformat from to )) (Not (= (GetElement (ErrHandler action) 5) 0)) ([gv-resource rid="6"] (gv-insert-query (URL ($ url)))) (= action "Insert") ([gv-resource rid="6"] (gv-insert-query ($ tmp))) (= action "Replace") ([gv-resource rid="6"] (gv-set-query ($ tmp))) () ^setuphome-1-query-cgi () () (= from "now") ^from ^'(quote now) (= from "today") ^from ^'(quote now) (= to "now") ^to ^'(quote now) (= to "today") ^to ^'(quote now) ^tmp (List '$ (List 'gb-template1 keyword prop timeformat from to )) (Not (= (GetElement (ErrHandler action) 5) 0)) (PrintStd 1) (= action "OK") ([gv-resource rid="4"] ([initial-query type="normal"] (OR (URL ($ url)) ($ tmp)))) ([gv-resource rid="6"] (gv-set-query (URL ($ url))) (gv-insert-query ($ tmp))) ([gv-resource rid="4"] (gv-set-status)) () ^setuphome-2-query-cgi () () (Not (= (GetElement (ErrHandler action) 5) 0)) (PrintStd 1) (= action "OK") ([gv-resource rid="4"] ([initial-query type="normal"] (URL ($ url)))) ([gv-resource rid="6"] (gv-set-query (URL ($ url)))) ([gv-resource rid="4"] (gv-set-status)) () ^setuphome-1-query-page () () ^query ([gv-resource rid="4"] (get-initial-query)) ^u (GetElement (GetElement query 'URL) 1) (= u ()) ^u (GetElement query 1) (

    Input Your Home URL

    URL:
    [Don't care Era]

    Input Your Home Era

    Keyword:
    GB-Property:
    Period: format: from to
    )         ^setuphome-2-query-page () () ^query ([gv-resource rid="4"] (get-initial-query)) ^u (GetElement (GetElement query 'URL) 1) (= u ()) ^u (GetElement query 1) (

    Input Your Home URL

    URL:
    [Use Era]
    )         ^radar-style (NewEnvironment (CurrentEnvironment)) ^pmd ^sym (quote(
  • Plate Metadata
    Database Path ($ (GetElement sym 1))
    Sphere ^"((" ($ (GetElement (GetElement (GetElement sym 2) 0) 0)) ($ (GetElement (GetElement (GetElement sym 2) 0) 1)) ^") (" ($ (GetElement (GetElement (GetElement sym 2) 1) 0)) ($ (GetElement (GetElement (GetElement sym 2) 1) 1)) ^"))"
    LOD ($ (GetElement sym 3)) - ($ (GetElement sym 4))
    )) ^lump ^sym (quote(
  • ($ (GetElement sym 1))
      ($ (ListEval () (cdr (cdr sym))))

    )) ^status ^sym (quote(

    Lump Information

      ($ (ListEval () (Next sym)))
    ))     ^notes-style (NewEnvironment (CurrentEnvironment)) ^element-notes () ^sym () ^rid (GetElement (GetElement sym 'rid) 1) ^lst ([gv-resource rid="^rid"] ([gv-get-notes obj="search"])) (Not (= lst ())) ^lst (cdr lst) ^ret () ^url (GetElement (car lst) 2) ^data (GetElement (car lst) 1) (= (GetElement (car lst) 0) 'image) ^img (+ "/sys/symbols/" (URLStringCode (GetElement (car lst) 3))) (= url ()) ^ret (cons(quote( ($ data) )) ret) 1 ^ret (cons(quote( ($ data) )) ret) 1 ^fill (GetElement (car lst) 3) ^line (GetElement (car lst) 4) (= url ()) ^ret (cons(quote( [*] ($ data) )) ret) 1 ^ret (cons(quote( [*] ($ data) )) ret) ^ret ^element ^sym (quote(
  • ($ (element-link sym))
    ($ (element-notes sym))
    )) ^indicated () ^sym (quote(
      ($ (cdr sym))
    ))     ^cache-style (NewEnvironment(CurrentEnvironment)) ^check-radio () ^name ^val (= val "off") (quote( OFF: ($ name) cache is off.
    W: Read from network and write into the cache.
    R/W: ($ name) cache is full active.
    ))     (= val "w") (quote( OFF: ($ name) cache is off.
    W: Read from network and write into the cache.
    R/W: ($ name) cache is full active.
    ))     (= val "r/w") (quote( OFF: ($ name) cache is off.
    W: Read from network and write into the cache.
    R/W: ($ name) cache is full active.
    ))     ^cache ^sym (quote(
    Routing Cache

    ($ (check-radio "Routing" (GE (GE sym 'routing) 1)))
    Resource Cache

    ($ (check-radio "Resource" (GE (GE sym 'resource) 1)))

    ))     ^cache-setup () () ()     ^proxy-style (NewEnvironment(CurrentEnvironment)) ^server () ^sym (GE sym 2) ^server-list () ^list () ^ret ^"" ^ret (+ ret (car list) "\n") ^ret ^proxyinfo () ^sym (= (GE sym 1) "NoProxy") (quote(
    NoProxy HTTPProxy
    ProxyServer: ProxyPort:
    --------------------------
    DirectAccess: ^""
    ^""
    ))     (= (GE sym 1) "HTTPProxy") ^server (GE sym 2) ^port (GE sym 3) (quote(
    NoProxy HTTPProxy
    ProxyServer: ProxyPort:
    --------------------------
    DirectAccess: ($ (+ ""))
    ^""
    ))     1 (GE sym 1)     ^proxy-setup () () (= proxytype "NoProxy") (And (= proxytype "HTTPProxy") (= (EA () 'direct 0) 0)) (= proxytype "HTTPProxy") ^direct 1 ()     ^native-proxy-style (NewEnvironment(CurrentEnvironment)) ^server () ^sym (GE sym 2) ^server-list () ^list () ^ret ^"" ^ret (+ ret (car list) "\n") ^ret ^proxyinfo () ^sym (= (GE sym 1) "NoProxy") (quote(
    NoProxy NativeProxy
    ProxyServer: ProxyPort:
    --------------------------
    DirectAccess: ^""
    ^""
    ))     (= (GE sym 1) "NativeProxy") ^server (GE sym 2) ^port (GE sym 3) (quote(
    NoProxy NativeProxy
    ProxyServer: ProxyPort:
    --------------------------
    DirectAccess: ($ (+ ""))
    ^""
    ))     1 (GE sym 1)     ^proxy-setup () () (= proxytype "NoProxy") (And (= proxytype "NativeProxy") (= (EA () 'direct 0) 0)) (= proxytype "NativeProxy") ^direct 1 ()     ^gv-event () ^rid ^type (NewEnvPair HTMLdb (CurrentEnvironment)) ^gv-event () ^rid ^type (NewEnvPair HTMLdb (CurrentEnvironment)) ^gv-event () ^rid ^type () ^event-uri (+ "/resource/coordinate/" rid "/") (NewEnvPair HTMLdb (CurrentEnvironment)) ^gv-event () ^rid ^type () ^event-uri (+ "/resource/map/" rid "/") (NewEnvPair HTMLdb (CurrentEnvironment)) ^gv-event () ^rid ^type () ^event-uri (+ "/resource/luster.r64/" rid "/") ^this-type ^type (NewEnvPair HTMLdb (CurrentEnvironment)) ^gv-event () ^rid ^type () ^event-uri (+ "/resource/vector/" rid "/") ^this-type ^type (NewEnvPair HTMLdb (CurrentEnvironment)) ^information () ( "[name]" ($ name) "
    " "[code]" ($ code) )         ^information () ( ($ name) ) ^information () ^uri ($ name) ^information () ^uri ^name