/[gcl]/gcl/lsp/gcl_info.data
ViewVC logotype

Diff of /gcl/lsp/gcl_info.data

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.2 by camm, Sun Sep 14 02:43:05 2003 UTC
# Line 0  Line 1 
1          
2    #(#!
3    (lisp::in-package "SI")
4    #(:element-type lisp::string-char :fill-pointer #\" "sharp-u-reader reader needs a \" right after it" #\\ ((#\n . #\Newline) (#\t . #\Tab) (#\r . #\Return)) system::*allow-gzipped-file* "illegal file start ~a" system::*match-data* system::*case-fold-search* "[
5    ]+Indirect:" "" "
6    ([^
7    ]+): ([0-9]+)" "[
8     ]+Tag Table:" "" "Need tags if have multiple files" "\\()[]+.*|^$?" "Node: ([^]*" "[^]*)" system::*current-info-data* "index" "
9    \\* ([^:
10    ]*" "[^:
11    ]*):[   ]+([^  
12    ,.]+)" "Node: " "([0-9]+)" "cant find node ~s" lisp::nth (lisp::string system::begin system::end system::header system::name system::info-subfile system::file system::tags) system::*old-lib-directory* system::*lib-directory* "info/" system::*info-paths* "DIR" "dir" ("" ".info" ".gz") ".gz" "dir" "(dir)Top" "\\(([^(]*" "(.info)?)\\)" system::*info-data* "(not found ~s)" system::index system::*tk-connection* system::*last-info-file* :exists :return lisp::boolean :configure :cursor "watch" "" "" "[
13     ][^
14    ]*Node:[        ]+([^
15            ,]+)[
16            ,][^
17    ]*
18    " "[ ]" "bad arg" system::*info-window* "^\\(([^(]+)\\)([^)]*)" "" "Top" "~%Sorry, Can't find node ~a" "[
19     ][^
20    ]*Node:[        ]+" "[,
21    ][^
22    ]*
23    " "[ ]" "
24     - [A-Za-z ]+: " "[
25    ]" "
26    
27     - [A-Z]" "Cant find node  ~a?" system::node system::*default-info-files* "~%From ~a:~%" "~% ~d: ~@[~a :~]~@[(~a)~]~a." 2147483646 "~%Enter n, all, none, or multiple choices eg 1 3 : " "0" "" :start "ALL" "~%Info from file ~a:" "hotlist" :direction :output :if-exists :append :if-does-not-exist :create "
28    File:   hotlist Node: Top
29    
30    * Menu: Hot list of favrite info items.
31    
32    " "* (~a)~a::~%" lisp::make-array lisp::vector-push-extend lisp::open system::fread system::file-to-string system::string-match system::match-end system::match-beginning system::atoi system::get-match system::info-error lisp::position system::re-quote-string system::string-concatenate system::get-nodes system::show-info system::get-index-node system::fix-load-path system::file-search lisp::search system::info-get-tags system::nodes-from-index system::tkerror system::winfo system::info-subfile system::info-get-file system::waiting system::setup-info system::get-node-index system::print-node system::end-waiting system::get-info-choices system::add-file system::info-aux system::offer-choices lisp::type-error lisp::read-from-string lisp::remove-if lisp::user-homedir-pathname system::default-info-hotlist (system::%init . #((system::mf (lisp::quote system::sharp-u-reader) 0) (lisp::set-dispatch-macro-character #\# #\u (lisp::quote system::sharp-u-reader)) (system::*make-special (lisp::quote system::*info-data*)) (lisp::or (lisp::boundp (lisp::quote system::*info-data*)) (lisp::setq system::*info-data* lisp::nil)) (system::*make-special (lisp::quote system::*current-info-data*)) (lisp::or (lisp::boundp (lisp::quote system::*current-info-data*)) (lisp::setq system::*current-info-data* lisp::nil)) (system::mf (lisp::quote system::file-to-string) 1) (system::mf (lisp::quote system::atoi) 2) (system::mf (lisp::quote system::info-get-tags) 3) (system::mf (lisp::quote system::re-quote-string) 4) (system::mf (lisp::quote system::get-match) 5) (system::mf (lisp::quote system::get-nodes) 6) (system::mf (lisp::quote system::get-index-node) 7) (system::mf (lisp::quote system::nodes-from-index) 8) (system::mf (lisp::quote system::get-node-index) 9) (system::mf (lisp::quote system::all-matches) 10) (system::mm (lisp::quote system::node) 11) (system::mf (lisp::quote system::node-offset) 12) (system::*make-special (lisp::quote system::*info-paths*)) (lisp::or (lisp::boundp (lisp::quote system::*info-paths*)) (lisp::setq system::*info-paths* (lisp::quote ("" "/usr/info/" "/usr/local/lib/info/" "/usr/local/info/" "/usr/local/gnu/info/" "/usr/share/info/")))) (system::*make-special (lisp::quote system::*old-lib-directory*)) (lisp::or (lisp::boundp (lisp::quote system::*old-lib-directory*)) (lisp::setq system::*old-lib-directory* lisp::nil)) (system::mf (lisp::quote system::setup-info) 13) (system::mf (lisp::quote system::get-info-choices) 14) (system::mf (lisp::quote system::add-file) 15) (system::*make-special (lisp::quote system::*info-window*)) (lisp::or (lisp::boundp (lisp::quote system::*info-window*)) (lisp::setq system::*info-window* lisp::nil)) (system::*make-special (lisp::quote system::*tk-connection*)) (lisp::or (lisp::boundp (lisp::quote system::*tk-connection*)) (lisp::setq system::*tk-connection* lisp::nil)) (system::mf (lisp::quote system::info-error) 16) (system::*make-special (lisp::quote system::*last-info-file*)) (lisp::or (lisp::boundp (lisp::quote system::*last-info-file*)) (lisp::setq system::*last-info-file* lisp::nil)) (system::mf (lisp::quote system::info-get-file) 17) (system::mf (lisp::quote system::waiting) 18) (system::mf (lisp::quote system::end-waiting) 19) (system::mf (lisp::quote system::info-subfile) 20) (system::mf (lisp::quote system::info-node-from-position) 21) (system::mf (lisp::quote system::show-info) 22) (system::*make-special (lisp::quote system::*default-info-files*)) (lisp::or (lisp::boundp (lisp::quote system::*default-info-files*)) (lisp::setq system::*default-info-files* (lisp::quote ("gcl-si.info" "gcl-tk.info" "gcl.info")))) (system::mf (lisp::quote system::info-aux) 23) (system::mf (lisp::quote system::info-search) 24) (system::mf (lisp::quote system::idescribe) 25) (system::mf (lisp::quote system::info) 26) (system::mf (lisp::quote system::default-info-hotlist) 27) (system::*make-special (lisp::quote system::*info-window*)) (lisp::or (lisp::boundp (lisp::quote system::*info-window*)) (lisp::setq system::*info-window* lisp::nil)) (system::mf (lisp::quote system::add-to-hotlist) 28) (system::mf (lisp::quote system::list-matches) 29) (system::debug (lisp::quote system::sharp-u-reader) (lisp::quote (lisp::stream system::subchar system::arg))) (system::debug (lisp::quote system::file-to-string) (lisp::quote (system::file system::start lisp::nil system::len system::st))) (system::debug (lisp::quote system::atoi) (lisp::quote (lisp::string system::start))) (system::debug (lisp::quote system::info-get-tags) (lisp::quote (system::file))) (system::debug (lisp::quote system::re-quote-string) (lisp::quote (system::x))) (system::debug (lisp::quote system::get-match) (lisp::quote (lisp::string system::i))) (system::debug (lisp::quote system::get-nodes) (lisp::quote (system::pat system::node-string))) (system::debug (lisp::quote system::get-index-node) (lisp::quote (system::node-string system::node))) (system::debug (lisp::quote system::nodes-from-index) (lisp::quote (system::pat))) (system::debug (lisp::quote system::get-node-index) (lisp::quote (system::pat system::node-string))) (system::debug (lisp::quote system::all-matches) (lisp::quote (system::pat system::st lisp::nil #:g1430))) (system::debug (lisp::quote system::node-offset) (lisp::quote (system::node))) (system::debug (lisp::quote system::setup-info) (lisp::quote (system::name #:g1434))) (system::debug (lisp::quote system::get-info-choices) (lisp::quote (system::pat lisp::type))) (system::debug (lisp::quote system::add-file) (lisp::quote (system::v system::file #:g1442))) (system::debug (lisp::quote system::info-error) (lisp::quote (system::l))) (system::debug (lisp::quote system::info-get-file) (lisp::quote (lisp::pathname))) (system::debug (lisp::quote system::waiting) (lisp::quote (system::win))) (system::debug (lisp::quote system::end-waiting) (lisp::quote (system::win))) (system::debug (lisp::quote system::info-subfile) (lisp::quote (system::n system::v))) (system::debug (lisp::quote system::info-node-from-position) (lisp::quote (system::n system::info-subfile system::s system::end system::i system::beg system::name system::end system::node))) (system::debug (lisp::quote system::show-info) (lisp::quote (system::name system::position-pattern system::use-tk lisp::nil system::s system::start system::i system::beg system::end system::node))) (system::debug (lisp::quote system::info-aux) (lisp::quote (system::x system::dirs))) (system::debug (lisp::quote system::info-search) (lisp::quote (system::pattern system::start system::end system::s system::beg system::i system::leng))) (system::debug (lisp::quote system::idescribe) (lisp::quote (system::name system::items system::v))) (system::debug (lisp::quote system::info) (lisp::quote (system::x system::dirs system::*current-info-data* system::nitems #:g1509))) (system::debug (lisp::quote system::add-to-hotlist) (lisp::quote (system::node system::st))) (system::debug (lisp::quote system::list-matches) (lisp::quote (system::s system::l #:g1526))))))
33    )

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26