James Hearon | 20 Jun 19:38 2016
Picon

Snd Scheme note lists

Hi,

For Snd using Scheme what would be best workflow or best practices for stitching together several with-sound calls or note lists?  Ex. I have my insts loading from a separate .scm  file using the "load" command and ten or so with-sound calls in a separate .scm file.  I was doing that in lisp and CLM using "with-mix" but don't seem to see that thru scheme. 


I found the ":continue-old-file #t" with-sound flag and also the Notehook feature in the Snd Scheme manual but not sure this is best way to add those in sequence, programmatically.


(with-sound ( :continue-old-file #t :reverb nrev :output "/home/MyTest.wav" :srate 48000 :channels 2
             :header-type mus-riff :statistics #t :play #t)
(nssb_sub 4.25 2  1440 .5  0.01  1.0  0  0.1  1 )
)

Regards,

Jim

_______________________________________________
Cmdist mailing list
Cmdist@...
https://cm-mail.stanford.edu/mailman/listinfo/cmdist
bil | 14 Jun 17:10 2016
Picon

Snd 16.6

Snd 16.6.

added snd-lint.scm (Snd extensions for lint)

s7's symbol function now takes any number of string args
   these are all concatenated to form the new symbol name
s7's make-vector no longer takes an optional fourth argument.

checked: gtk 3.21.2, sbcl 1.3.6, Fedora 24

Thanks!: Joe Python, Tito Latini.
andersvi | 1 Jun 10:27 2016
Picon

snd-nogui - graph->ps in batch file?

Hi.

Sparked by a question on linux-audio-users just now, i wanted to check
if i could create sonograms and similar by scripting Snd (which could be
very useful), but the .eps-file Snd leaves is empty.

Evaluating the same list of calls step by step works fine.

Putting in some (sleep 3) calls along the route didn't help either.

Is this achievable?

Here's what i'm trying:

    (open-sound "mono-10s.wav")
    (set! (transform-graph?) #t)
    (set! (time-graph?) #f)
    (set! (transform-graph-type) graph-as-sonogram)
    (set! (fft-log-frequency) #t)
    (graph->ps "mono-10s-sonogram.eps")
    (exit)

-anders
Matti Koskinen | 29 May 21:58 2016
Picon
Picon

quick tip please

hi,

Just wanted to try Akai LPK25, but now I really can’t remember how to set up fluidsynth on terminal using OS
X 10.10, to get the virtual port for Grace.
tnx

-m
_______________________________________________
Cmdist mailing list
Cmdist <at> ccrma.stanford.edu
https://cm-mail.stanford.edu/mailman/listinfo/cmdist
James Hearon | 19 May 19:09 2016
Picon

s7 and c


re: gcc -o repel_test repel_test.c s7.o -Wl, -export-dynamic -lm -I. -ldl

I think your problem is that you have a space
after -Wl, -- it'a all one argument:
-Wl,-export-dynamic
-----------
Yes.  Great.  Thank you.  I was stumped, but am now off and compiling.

Regards,
Jim
James Hearon | 18 May 19:18 2016
Picon

s7 with c


Hi,

I'm stuck on figuring out compiling a simple s7 repel test in c.  I'm on fedora 23.  I've tried a few different things but not sure what /usr/bin/ld error is trying to tell me.



gcc error:

/usr/bin/ld: cannot find : No such file or directory


//gcc -o repel_test repel_test.c s7.o -Wl, -export-dynamic -lm -I. -ldl

#include "/opt/snd-16/s7.h"

int main (int argc, char **argv)
{
    s7_scheme *sc;
    sc = s7_init();
    s7_load(sc, "/opt/snd-16/repl.scm");
    s7_eval_c_string(sc, "((*repl* 'run))");
    return(0);
}


Regards,

Jim

_______________________________________________
Cmdist mailing list
Cmdist@...
https://cm-mail.stanford.edu/mailman/listinfo/cmdist
bil | 18 May 13:37 2016
Picon

Re: negative number in cond

(I accidentally deleted the original, and there's
no undelete in this mailer), but I think your
problem is that in both these cases, you're not
getting a range:

     ((and (>= -6 theslope) (<= theslope -10))
     ((and (>= 6 theslope) (<= theslope 10))

You get (<= theslope -10) in the first case -- I think
you accidentally reversed the order of the arguments.
It might be more clear to use (<= 6 theslope 10) etc.
Lynn Artas | 18 May 01:32 2016
Picon

possible to compare negatives in cond

Hi list!
  
I've isolated my problem, but have no idea how to fix it and would really appreciate some help

I'm using a span of numbers within a cond to set case. Some of the values in the number span in the cond are
negative. This doesn't work. The same version of the code with all the slopes positive works as expected. 

Notes:
1. please ignore the things about longdurs—they shouldn't come into play with the envelope set to '(0 1000 630 1000). If they
happen, it'll still work, but won't go into the case statement.
2. the doubled midi calls inside the case statement are for keyswitching. If you have EastWest, set your DAW to cello
to add a little interest to the listening. (You may miss a col legno if it goes out of range. This version
doesn't include the transposition loop.)

This is a simplified version of my code. I tried to cut as much of the fat as possible while still giving an idea of how it works, when it 
works with the positive slopes. Also pasting in case attachments aren't allowed on the list.

Any and all help appreciated, 
Best, 
~L.


;;;;;;;;;;;;;;;;;;;;;ruby-simple5-noNegs;;;;;;;;;;;;;;;;;;;;;;;;
;;; -*- syntax: Lisp; font-size: 16; line-numbers: no; -*-

(define headings (make-cycle '(
 258.6 299.5 334.1 38.5 318.5 210.3 215.1 255.5 210.3 221.3 270 297.6 320.2 188.9 239.5 285.7 277 254.2 212.4 
209.8 172.1 191.1 308 327.1 242.8 111.3 161.9 329.3 163.5 168.7 
)))

(define slopes (make-cycle '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30)))

(define speeds (make-cycle '(.125 .125 .125 .125 .125  .25 .25 .25 .25 .25  .5 .5 .5 .5 .5 .75 .75 .75 .75 .75  1 1 1 1 1 1.5 1.5 1.5 1.5 1.5 )))


(define (ruby4 zeronote fullcirclenote shortestnote longestnote quantVal longdurs longdurchanceenv datapoints)
(let* (
       (longdurs longdurs)
       (datapoints datapoints)
       (shortestnote shortestnote)
       (longestnote longestnote)
       (longdurchanceenv longdurchanceenv)
       (quantVal quantVal)
       (count 0)
       (newkey 0)
       (thelongdur 0)
       (longdurchance 0)
       (thecase 0)
       (theslope 0)
       (outrhythm 0)
       (start-time 0)
       (thedurpick 0)
       (waittime 0)
       (thespeed 0)
       (thedur 0)
       (theheading 0)
       (theamp 0)
       (zeronote zeronote)
       (fullcirclenote fullcirclenote)
       )

 (process repeat datapoints
   do

   (set! theslope (next slopes))

   (print "theslope is") (print theslope)
   (cond 
      ((and (>= theslope 1) (<= theslope 5))
      (begin
        (print "chose case 0")
        (set! thecase 0)
         ))
     
     ((and (>= 6 theslope) (<= theslope 10))
      (begin
        (print "chose case 1")
        (set! thecase 1)
      ))
      
      ((and (>= theslope 11 ) (<= theslope 15))
      (begin
        (print "chose case 2")
        (set! thecase 2)
      )) 
     
     ((and (>= theslope 16) (<= theslope 20))
      (begin
        (print "chose case 3")
        (set! thecase 3)
      ))
     
     ((and (>= theslope 21 ) (<= theslope 25))
      (begin
        (print "chose case 4")
        (set! thecase 4)
      )) 
     
     ((and (>= theslope 26) (< theslope 30))
      (begin
        (print "chose case 5")
        (set! thecase 5)
        )) 
     )
 
 append
  
   (set! longdurchance  (interp count longdurchanceenv))
   (if (<= (random longdurchance) 1)
     (begin
       (set! thedurpick (floor (interp count 0 0 631 (- (length longdurs) 1 ))))
       (set! thelongdur (nth longdurs thedurpick))
       (mp:midi :time start-time :key (pick 28 29) :dur (quantize thelongdur quantVal) :amp 1 :chan 0) 
       (mp:midi :time start-time :key newkey :dur (quantize thelongdur quantVal) :amp (between 0.6 0.75) :chan 1)
       (mp:midi :time start-time :key (+ newkey (pick 8 9)) :dur (quantize thelongdur quantVal) :amp (between 0.6 0.75)  :chan 1)
       (set! start-time (+ start-time thelongdur))
       )
     )
   (set! outrhythm .5)
   (set! theheading (next headings))
   (set! newkey (floor (rescale theheading 0 359.4 zeronote fullcirclenote)))
   (set! theamp (between 0.6 0.75))
   
   (case thecase 
         ((0)
          (print "IN CASE 0")
          (mp:midi :time start-time :key (pick 28 29) :dur outrhythm :amp theamp :chan 0);normal E0 and F0
          (mp:midi :time start-time :key  newkey :dur outrhythm :amp theamp :chan 1)
          (set! start-time (+ start-time outrhythm))
         )
         
         ((1)
          (print "IN CASE 1-pizz")
          (mp:midi :time start-time :key 90 :dur outrhythm :amp theamp :chan 0) ;pizz
          (mp:midi :time start-time :key  newkey :dur outrhythm :amp theamp :chan 1)
          (set! start-time (+ start-time outrhythm))
          )
         
         ((2)
          (print "IN CASE 2")
          (mp:midi :time start-time :key (pick 28 29) :dur outrhythm :amp theamp :chan 0) ;normal
          (mp:midi :time start-time :key newkey :dur outrhythm :amp theamp :chan 1)
          (mp:midi :time start-time :key (+ 4 newkey) :dur outrhythm :amp theamp :chan 1)
          (set! start-time (+ start-time outrhythm))
          )
         
         ((3)
          (print "IN CASE 3")
          (mp:midi :time start-time :key 89  :dur outrhythm :amp theamp :chan 0) 
          (mp:midi :time start-time :key newkey :dur outrhythm :amp theamp :chan 1)
          (set! start-time (+ start-time outrhythm))
          ) 
         
         ((4)
          (print "IN CASE 4")
          (mp:midi :time start-time :key (pick 28 29) :dur outrhythm :amp theamp :chan 0);normal E0 and F0
          (mp:midi :time start-time :key newkey :dur outrhythm :amp theamp :chan 1) 
          (mp:midi :time start-time :key (+ 2 newkey) :dur outrhythm :amp theamp :chan 1)
          (set! start-time (+ start-time outrhythm))
          ) 
         
         ((5) 
          (print "IN CASE 5")
          (mp:midi :time start-time :key 91 :dur outrhythm :amp theamp :chan 0) 
          (mp:midi :time start-time :key newkey :dur outrhythm :amp theamp :chan 1)
          (set! start-time (+ start-time outrhythm))
          )
         )
   )
 )
)

(sprout (ruby4 36 82         .125              1         .125     '(2 1 .75 1 2) '(0 1000 630 1000 ) 100))


;;;;;;;;;;;;;;;;;;;;;ruby-simple5-withNegs;;;;;;;;;;;;;;;;;;;;;;;;
;;; -*- syntax: Lisp; font-size: 16; line-numbers: no; -*-

(define headings (make-cycle '(
 258.6 299.5 334.1 38.5 318.5 210.3 215.1 255.5 210.3 221.3 270 297.6 320.2 188.9 239.5 285.7 277 254.2 212.4 
209.8 172.1 191.1 308 327.1 242.8 111.3 161.9 329.3 163.5 168.7 
)))

(define slopes (make-cycle '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30)))

(define speeds (make-cycle '(.125 .125 .125 .125 .125  .25 .25 .25 .25 .25  .5 .5 .5 .5 .5 .75 .75 .75 .75 .75  1 1 1 1 1 1.5 1.5 1.5 1.5 1.5 )))



(define (ruby4 zeronote fullcirclenote shortestnote longestnote quantVal longdurs longdurchanceenv datapoints)
(let* (
       (longdurs longdurs)
       (datapoints datapoints)
       (shortestnote shortestnote)
       (longestnote longestnote)
       (longdurchanceenv longdurchanceenv)
       (quantVal quantVal)
       (count 0)
       (newkey 0)
       (thelongdur 0)
       (longdurchance 0)
       (thecase 0)
       (theslope 0)
       (outrhythm 0)
       (start-time 0)
       (thedurpick 0)
       (waittime 0)
       (thespeed 0)
       (thedur 0)
       (theheading 0)
       (theamp 0)
       (zeronote zeronote)
       (fullcirclenote fullcirclenote)
       )

 (process repeat datapoints
   do

   (set! theslope (next slopes))
   (cond 
      ((and (>= theslope -5) (<= theslope -1))
      (begin
        (print "chose case 0")
        (set! thecase 0)
         ));normal
     
     ((and (>= -6 theslope) (<= theslope -10))
      (begin
        (print "chose case 1")
        (set! thecase 1)
      ));pizz
      
      ((and (>= theslope -11 ) (<= theslope -15))
      (begin
        (print "chose case 2")
        (set! thecase 2)
      )) ; M3 sing 
     
     ((and (>= theslope -16) (<= theslope -20))
      (begin
        (print "chose case 3")
        (set! thecase 3)
      )) ;martele
     
     ((and (>= theslope -21 ) (<= theslope -25))
      (begin
        (print "chose case 4")
        (set! thecase 4)
      )) ;M2 for sul pont
     
     ((and (>= theslope -26) (< theslope -30))
      (begin
        (print "chose case 5")
        (set! thecase 5)
        )) ;col legno
     )
 
 append
  
   (set! longdurchance  (interp count longdurchanceenv))
   (if (<= (random longdurchance) 1)
     (begin
       (set! thedurpick (floor (interp count 0 0 631 (- (length longdurs) 1 ))))
       (set! thelongdur (nth longdurs thedurpick))
       (mp:midi :time start-time :key (pick 28 29) :dur (quantize thelongdur quantVal) :amp 1 :chan 0) 
       (mp:midi :time start-time :key newkey :dur (quantize thelongdur quantVal) :amp (between 0.6 0.75) :chan 1)
       (mp:midi :time start-time :key (+ newkey (pick 8 9)) :dur (quantize thelongdur quantVal) :amp (between 0.6 0.75)  :chan 1)
       (set! start-time (+ start-time thelongdur))
       )
     )
   (set! outrhythm .5)
   (set! theheading (next headings))
   (set! newkey (floor (rescale theheading 0 359.4 zeronote fullcirclenote)))
   (set! theamp (between 0.6 0.75))
   
   (case thecase 
         ((0)
          (print "IN CASE 0")
          (mp:midi :time start-time :key (pick 28 29) :dur outrhythm :amp theamp :chan 0);normal E0 and F0
          (mp:midi :time start-time :key  newkey :dur outrhythm :amp theamp :chan 1)
          (set! start-time (+ start-time outrhythm))
         )
         
         ((1)
          (print "IN CASE 1-pizz")
          (mp:midi :time start-time :key 90 :dur outrhythm :amp theamp :chan 0) ;pizz
          (mp:midi :time start-time :key  newkey :dur outrhythm :amp theamp :chan 1)
          (set! start-time (+ start-time outrhythm))
          )
         
         ((2)
          (print "IN CASE 2")
          (mp:midi :time start-time :key (pick 28 29) :dur outrhythm :amp theamp :chan 0) ;normal
          (mp:midi :time start-time :key newkey :dur outrhythm :amp theamp :chan 1)
          (mp:midi :time start-time :key (+ 4 newkey) :dur outrhythm :amp theamp :chan 1)
          (set! start-time (+ start-time outrhythm))
          )
         
         ((3)
          (print "IN CASE 3")
          (mp:midi :time start-time :key 89  :dur outrhythm :amp theamp :chan 0) 
          (mp:midi :time start-time :key newkey :dur outrhythm :amp theamp :chan 1)
          (set! start-time (+ start-time outrhythm))
          ) 
         
         ((4)
          (print "IN CASE 4")
          (mp:midi :time start-time :key (pick 28 29) :dur outrhythm :amp theamp :chan 0);normal E0 and F0
          (mp:midi :time start-time :key newkey :dur outrhythm :amp theamp :chan 1) 
          (mp:midi :time start-time :key (+ 2 newkey) :dur outrhythm :amp theamp :chan 1)
          (set! start-time (+ start-time outrhythm))
          ) 
         
         ((5) 
          (print "IN CASE 5")
          (mp:midi :time start-time :key 91 :dur outrhythm :amp theamp :chan 0) 
          (mp:midi :time start-time :key newkey :dur outrhythm :amp theamp :chan 1)
          (set! start-time (+ start-time outrhythm))
          )
         )
   )
 )
)


(sprout (ruby4 36 82         .125              1         .125     '(2 1 .75 1 2) '(0 1000 630 1000 ) 100))






Attachment (ruby-simple5-noNegs): application/octet-stream, 7720 bytes
Attachment (ruby-simple5-withNegs): application/octet-stream, 7760 bytes
_______________________________________________
Cmdist mailing list
Cmdist@...
https://cm-mail.stanford.edu/mailman/listinfo/cmdist
Dave Phillips | 9 May 15:01 2016
Picon

[OT] Fomus build problem

Greetings,

I decided to update my Fomus installation. Things went well until here :

Making all in exe
make[3]: Entering directory '/home/dlphilp/src/fomus-code/src/exe'
depbase=`echo main.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
g++ -DHAVE_CONFIG_H -I. -I../..  -DNDEBUG -DNDEBUGOUT -pthread 
-I/usr/include -I../../src/lib/api -w -DNDEBUG -DNDEBUGOUT -O2 
-fomit-frame-pointer -O2 -MT main.o -MD -MP -MF $depbase.Tpo -c -o 
main.o main.cc &&\
mv -f $depbase.Tpo $depbase.Po
/bin/sh ../../libtool  --tag=CXX   --mode=link g++ -O2 
-fomit-frame-pointer -O2 -L/usr/lib64 -rpath /usr/local/lib  -o fomus 
main.o ../../src/lib/libfomus.la -lncursesw -lboost_program_options -ldl
libtool: link: g++ -O2 -fomit-frame-pointer -O2 -o .libs/fomus main.o  
-L/usr/lib64 ../../src/lib/.libs/libfomus.so -lltdl -lboost_system 
-lboost_filesystem -lboost_thread -lncursesw -lboost_program_options 
-ldl -Wl,-rpath -Wl,/usr/local/lib
../../src/lib/.libs/libfomus.so: undefined reference to 
`fomus::fom_get_rval_up(int)'
collect2: error: ld returned 1 exit status
Makefile:440: recipe for target 'fomus' failed
make[3]: *** [fomus] Error 1
make[3]: Leaving directory '/home/dlphilp/src/fomus-code/src/exe'
Makefile:404: recipe for target 'all-recursive' failed
make[2]: *** [all-recursive] Error 1
make[2]: Leaving directory '/home/dlphilp/src/fomus-code/src'
Makefile:460: recipe for target 'all-recursive' failed
make[1]: *** [all-recursive] Error 1
make[1]: Leaving directory '/home/dlphilp/src/fomus-code'
Makefile:391: recipe for target 'all' failed
make: *** [all] Error 2

Can anyone tell me what's going on here ? I ran make clean, rebuilt, 
still the same error.

System here is Fedora 21, GCC 4.9.2.

Best,

dp
Joe Python | 9 May 04:33 2016
Picon

warnings and errors while compiling with Oracle Solaris Studio 12.4 compiler on SPARC Solaris 10

Compilation failed with following warnings and errors while compiling with Oracle Solaris Studio 12.4 compiler on SPARC Solaris 10. Am i using the right options while compiling?

$ c99 s7.c -o repl -DWITH_MAIN -I. -g3 -ldl -lm -Wl,-export-dynamic
"s7.c", line 2458: warning: statement not reached
"s7.c", line 10478: warning: statement not reached
"s7.c", line 11397: warning: statement not reached
"s7.c", line 11651: warning: statement not reached
"s7.c", line 11749: invalid token: 1.0fi
"s7.c", line 11749: syntax error before or at: )
"s7.c", line 14404: invalid token: 1.0fi
"s7.c", line 14404: syntax error before or at: )
"s7.c", line 14550: invalid token: 1.0fi
"s7.c", line 14550: syntax error before or at: )
"s7.c", line 14596: invalid token: 1.0fi
"s7.c", line 14596: syntax error before or at: )
"s7.c", line 14635: invalid token: 1.0fi
"s7.c", line 14635: syntax error before or at: )
"s7.c", line 14660: invalid token: 1.0fi
"s7.c", line 14660: cannot dereference non-pointer type
"s7.c", line 14691: invalid token: 1.0fi
"s7.c", line 14691: syntax error before or at: )
"s7.c", line 14696: invalid token: 1.0fi
"s7.c", line 14696: syntax error before or at: )
"s7.c", line 14731: invalid token: 1.0fi
"s7.c", line 14731: cannot dereference non-pointer type
"s7.c", line 14732: invalid token: 1.0fi
"s7.c", line 14732: cannot dereference non-pointer type
"s7.c", line 14759: invalid token: 1.0fi
"s7.c", line 14759: syntax error before or at: )
"s7.c", line 14815: invalid token: 1.0fi
"s7.c", line 14815: syntax error before or at: )
"s7.c", line 14859: invalid token: 1.0fi
"s7.c", line 14859: syntax error before or at: )
"s7.c", line 14899: invalid token: 1.0fi
"s7.c", line 14899: syntax error before or at: )
"s7.c", line 14935: invalid token: 1.0fi
"s7.c", line 14935: syntax error before or at: )
"s7.c", line 14968: invalid token: 1.0fi
"s7.c", line 14968: syntax error before or at: )
"s7.c", line 15166: invalid token: 1.0fi
"s7.c", line 15166: syntax error before or at: )
"s7.c", line 16970: warning: statement not reached
"s7.c", line 16994: warning: statement not reached
"s7.c", line 17039: warning: statement not reached
"s7.c", line 17069: warning: statement not reached
"s7.c", line 17088: warning: statement not reached
"s7.c", line 17107: warning: statement not reached
"s7.c", line 17139: warning: statement not reached
"s7.c", line 18056: warning: statement not reached
"s7.c", line 18086: warning: statement not reached
"s7.c", line 18113: warning: statement not reached
"s7.c", line 18145: warning: statement not reached
"s7.c", line 18165: warning: statement not reached
"s7.c", line 18185: warning: statement not reached
"s7.c", line 18205: warning: statement not reached
"s7.c", line 18236: warning: statement not reached
"s7.c", line 19134: warning: statement not reached
"s7.c", line 19176: warning: statement not reached
"s7.c", line 19213: warning: statement not reached
"s7.c", line 19233: warning: statement not reached
"s7.c", line 19253: warning: statement not reached
"s7.c", line 19289: warning: statement not reached
"s7.c", line 20967: warning: statement not reached
"s7.c", line 20999: warning: statement not reached
"s7.c", line 21067: warning: statement not reached
"s7.c", line 22046: warning: statement not reached
"s7.c", line 22074: warning: statement not reached
"s7.c", line 22126: warning: statement not reached
"s7.c", line 22201: warning: statement not reached
"s7.c", line 22254: warning: statement not reached
"s7.c", line 22324: warning: statement not reached
"s7.c", line 22355: warning: statement not reached
"s7.c", line 22408: warning: statement not reached
"s7.c", line 22510: warning: statement not reached
"s7.c", line 22614: warning: statement not reached
"s7.c", line 26670: warning: statement not reached
"s7.c", line 27334: warning: statement not reached
"s7.c", line 28966: warning: statement not reached
"s7.c", line 33507: warning: implicit function declaration: popen
"s7.c", line 33507: warning: improper pointer/integer combination: op "="
"s7.c", line 33522: warning: implicit function declaration: pclose
"s7.c", line 34116: warning: statement not reached
"s7.c", line 34345: warning: statement not reached
"s7.c", line 34397: warning: statement not reached
"s7.c", line 34446: warning: statement not reached
"s7.c", line 35552: warning: statement not reached
"s7.c", line 35606: warning: statement not reached
"s7.c", line 35758: warning: statement not reached
"s7.c", line 35774: warning: statement not reached
"s7.c", line 35808: warning: statement not reached
"s7.c", line 35856: warning: statement not reached
"s7.c", line 35876: warning: statement not reached
"s7.c", line 35903: warning: statement not reached
"s7.c", line 35935: warning: statement not reached
"s7.c", line 35988: warning: statement not reached
"s7.c", line 36019: warning: statement not reached
"s7.c", line 36059: warning: statement not reached
"s7.c", line 36083: warning: statement not reached
"s7.c", line 43807: warning: statement not reached
"s7.c", line 44689: warning: statement not reached
"s7.c", line 49534: warning: statement not reached
"s7.c", line 56661: warning: improper pointer/integer combination: op "="
"s7.c", line 56693: warning: improper pointer/integer combination: op "="
"s7.c", line 56696: warning: improper pointer/integer combination: op "="
"s7.c", line 56698: warning: improper pointer/integer combination: op "="
"s7.c", line 56715: warning: improper pointer/integer combination: op "="
"s7.c", line 56718: warning: improper pointer/integer combination: op "="
"s7.c", line 56720: warning: improper pointer/integer combination: op "="
"s7.c", line 56734: warning: improper pointer/integer combination: op "="
"s7.c", line 56738: warning: improper pointer/integer combination: op "="
"s7.c", line 56782: warning: improper pointer/integer combination: op "="
"s7.c", line 56805: warning: improper pointer/integer combination: op "="
"s7.c", line 56809: warning: improper pointer/integer combination: op "="
"s7.c", line 60500: warning: statement not reached
"s7.c", line 67829: warning: statement not reached
c99: acomp failed for s7.c

- Jo
_______________________________________________
Cmdist mailing list
Cmdist@...
https://cm-mail.stanford.edu/mailman/listinfo/cmdist
Joe Python | 8 May 23:27 2016
Picon

Warnings while using S7 repl in Ubuntu 14.04

s7.c was compiled with gcc 4.8.4

$ ./repl
writing libc_s7.c
libc_s7.o: In function `s7_dl_tmpnam':
libc_s7.c:(.text+0x4787): warning: the use of `tmpnam' is dangerous, better use `mkstemp'
libc_s7.o: In function `s7_dl_tempnam':
libc_s7.c:(.text+0x489e): warning: the use of `tempnam' is dangerous, better use `mkstemp'
libc_s7.o: In function `s7_dl_mktemp':
libc_s7.c:(.text+0x78fa): warning: the use of `mktemp' is dangerous, better use `mkstemp' or `mkdtemp'
loading libc_s7.so
<1> (exit)

All references to tmpnam, tempnam and mktemp are in libc.scm
_______________________________________________
Cmdist mailing list
Cmdist@...
https://cm-mail.stanford.edu/mailman/listinfo/cmdist

Gmane