public inbox for kawa@sourceware.org
 help / color / mirror / Atom feed
* variable definition in include files not usable in class file
@ 2017-10-03 13:41 Damien MATTEI
  2017-10-03 15:21 ` Sudarshan S Chawathe
  2017-10-03 16:13 ` Per Bothner
  0 siblings, 2 replies; 6+ messages in thread
From: Damien MATTEI @ 2017-10-03 13:41 UTC (permalink / raw)
  To: Kawa mailing list

hello,
i try to use a variable defined in an include files and i got an error,
i have a scheme class that run well:
https://github.com/damien-mattei/Jkawa/blob/master/DBtoWebObserversKawa.scm
after debug i had macros to hide the debug info in the log files, si i wrote some macros
that depending on a flag (debug-mode) print or not some info on output that go to log files,

those macros are in a  in a file used also by others scheme implementations (debug.scm : 
https://github.com/damien-mattei/LOGIKI/blob/master/lib/debug.scm 
)
that is included by the previous one (DBtoWebObserversKawa.scm)
by an instruction loke this (see DBtoWebObserversKawa.scm):
(include-relative  "../git/LOGIKI/lib/debug.scm") ;; for debug
it adds some macro like those:

;; debug with display-nl
(define-syntax debug-display-nl 
  (syntax-rules ()
    ((_ msg) (begin
	       (display "debug.scm : debug-display-nl : debug-mode = ") ;; this has been added for debugging the debug macros !!! (and should be removed later)
	       (display debug-mode)
	       (newline)
	       (if debug-mode
		  (begin (display msg) 
			 (newline)))))))

or this special one chich is a macro that take another macro in argument:
;; tired of rewriting debug macros starting from normal ones i wrote this one that encapsulate ANY one !!!
(define-syntax debug-only
  (syntax-rules ()

    ((_ fct-or-mac ...)
     (begin
       (display "debug.scm : debug-only : debug-mode = ") ;; this has been added for debugging the debug macros !!! (and should be removed later)
       (display debug-mode)
       (newline)
       (when debug-mode
	     (fct-or-mac ...))))
    
    ((_ instruction)
     (begin
       (display "debug.scm : debug-only : debug-mode = ") ;; this has been added for debugging the debug macros !!! (and should be removed later)
       (display debug-mode)
       (newline)
       (when debug-mode
	     (instruction))))))

this works well in another Scheme implementation named Bigloo as in this file (part also of the Sidonie web application):
https://github.com/damien-mattei/Jbigl/blob/master/BiglooCode.scm

i hoped it could work also in Kawa, but i can not find a way (place) to define the flag called debug-mode 
i tried many places, debug-mode is set to #t in debug.scm and DBtoWebObserversKawa.scm but at run-time appears to be #!null
in the log files:
(this does not prevent the application to run well but it is now impossible to have debug info in the Kawa part of the application)


03-Oct-2017 14:46:16.824 INFO [http-nio-127.0.0.1-8080-exec-767]
org.apache.catalina.startup.HostConfig.deployWAR Déploiement de l'archive
/usr/local/apache-tomcat-8.0.27/webapps/Sidonie.war de l'application web
03-Oct-2017 14:46:17.840 INFO [http-nio-127.0.0.1-8080-exec-767]
org.apache.jasper.servlet.TldScanner.scanJars At least one JAR was scanned
for TLDs yet contained no TLDs. Enable debug logging for this logger for a
complete list of JARs that were scanned but no TLDs were found in them.
Skipping unneeded JARs during scanning can improve startup time and JSP
compilation time.
03-Oct-2017 14:46:17.882 INFO [http-nio-127.0.0.1-8080-exec-767]
org.glassfish.jersey.servlet.init.JerseyServletContainerInitializer.addServletWithApplication
Registering the Jersey servlet application, named eu.oca.ApplicationConfig,
at the servlet mapping /jersey/*, with the Application class of the same
name.
Sidonie : ApplicationConfig : getClasses : alreadyRun = false
Sidonie : ApplicationConfig : initSidonie : registering Scheme
environment...
Sidonie : ApplicationConfig : initSidonie : Scheme environment registered.
Sidonie : ApplicationConfig : initSidonie : path =
/usr/local/apache-tomcat-8.0.27/logs
Sidonie : ApplicationConfig : Hostname = moita.oca.eu
Sidonie : ApplicationConfig : webapps_dir =
/usr/local/apache-tomcat-8.0.27/webapps
Sidonie : DBtoWebObserversKawa : *init* : (WebAppsDirParam
::java.lang.String)
Sidonie : DataBase : searchDriver : driver found
Sidonie : DBtoWebObserversKawa : work : eu.oca.DataBase:searchDriverStatic
PASSED
Sidonie : DataBase : connectStatic : Hostname = moita.oca.eu
Sidonie : DataBase : connectStatic : using localhost as computer name and
mattei as user for sidonie database
Sidonie : DataBase : connectStatic : connection established
Sidonie : DBtoWebObserversKawa : work : eu.oca.DataBase:connectStatic PASSED
Sidonie : DataBase : createStatementStatic : done
Sidonie : DBtoWebObserversKawa : work :
eu.oca.DataBase:createStatementStatic PASSED
Sidonie : DBtoWebObserversKawa : work : fetching
http://ad.usno.navy.mil/wds/Webtextfiles/wdsnewref.txt ... could take a few
seconds to GET file ...
Sidonie : DBtoWebObserversKawa : work : before java.lang.System:getProperty
Sidonie : DBtoWebObserversKawa : work : after fetching or reading file
Sidonie : DBtoWebObserversKawa : work : creating regex.
Sidonie : DBtoWebObserversKawa : work : running
map-nil-iter-optim-tail-calls-call....
Sidonie : DBtoWebObserversKawa : work :: debug-mode = #t
Sidonie : DBtoWebObserversKawa : work : after let* declarations.
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
Sidonie : DBtoWebObserversKawa : work : Voila la valeur SQL de la requète :
marequete = SELECT * FROM Obs ORDER BY Auteur
Sidonie : DataBase : executeQueryStatic(String,String) : query: SELECT *
FROM Obs ORDER BY Auteur | name : Observateurs
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-display-nl : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
debug.scm : debug-only : debug-mode = #!null
Sidonie : DBtoWebObserversKawa : work : total = 492
Sidonie : DBtoWebObserversKawa : work : debug = #f
Sidonie : DBtoWebObserversKawa : work : result : entering HTML footer
writing...
Sidonie : DBtoWebObserversKawa : write-HTML-file-str : writing file
/usr/local/apache-tomcat-8.0.27/webapps/Sidonie/ObserversCodes.html...
Sidonie : DBtoWebObserversKawa : write-HTML-file-str : file written.
Sidonie : DBtoWebObserversKawa : work : debug = #f
Sidonie : DBtoWebObserversKawa : work : fullPathFileName =
/usr/local/apache-tomcat-8.0.27/webapps/Sidonie/ObservateursCodes.html
Sidonie : DBtoWebObserversKawa : work : writing file...
Sidonie : DBtoWebObserversKawa : write-HTML-file : writing file
/usr/local/apache-tomcat-8.0.27/webapps/Sidonie/ObservateursCodes.html...
Sidonie : DBtoWebObserversKawa : write-HTML-file : file written.
Sidonie : DBtoWebObserversKawa : work : after write-HTML-file
Sidonie : DBtoWebObserversKawa : write-HTML-file-str : writing file
/usr/local/apache-tomcat-8.0.27/webapps/Sidonie/ObservateursCodesAlphab.html...
Sidonie : DBtoWebObserversKawa : write-HTML-file-str : file written.
Sidonie : DataBase : closeStatic : resultSetObservateurs closed.
Sidonie : DataBase : closeStatic : statement closed.
Sidonie : DataBase : closeStatic : connect closed.
Sidonie : DataBase : closeStatic : connection to database closed.
Sidonie : DBtoWebObserversKawa : work : eu.oca.DataBase:closeStatic PASSED
Sidonie : ApplicationConfig : getClasses : alreadyRun = true
03-Oct-2017 14:46:23.949 INFO [http-nio-127.0.0.1-8080-exec-767]
org.glassfish.jersey.server.ApplicationHandler.initialize Initiating Jersey
application, version Jersey: 2.5.1 2014-01-02 13:43:00...
03-Oct-2017 14:46:24.243 INFO [http-nio-127.0.0.1-8080-exec-767]
org.apache.catalina.startup.HostConfig.deployWAR Deployment of web
application archive /usr/local/apache-tomcat-8.0.27/webapps/Sidonie.war has
finished in 7 419 ms

Damien

^ permalink raw reply	[flat|nested] 6+ messages in thread

end of thread, other threads:[~2017-10-04 13:46 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2017-10-03 13:41 variable definition in include files not usable in class file Damien MATTEI
2017-10-03 15:21 ` Sudarshan S Chawathe
2017-10-03 15:34   ` Damien Mattei
2017-10-03 15:35     ` Damien Mattei
2017-10-03 16:13 ` Per Bothner
2017-10-04 13:46   ` Damien MATTEI

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).