Curl Language Examples

See CurlLanguage

From

 The Curl Programming Environment
 Dr. Dobb's Journal September 2001
 http://www.ddj.com/documents/s=1485/ddj0109f/0109f.htm

---

 || File: start2.curl
 || Contents:
 ||     This applet allows to enter a value to a TextField
 ||     The prompt and result will be shown with funny, jumping letters
 || Author: Friedger Mueffke
 || Version: 1.2 

 {curl 1.5 applet}

 {import * from MUEFFKE.COMPONENTS.LETTERBOX,
    location="letterbox.curl"}

 || Create a document without margins and scrollbars
 || that it can neatly integrated in a HTML document
 {document-style PlainDocument}


 || Define function that fetches a string from a web site
 {define-proc {get-web-string}:String
    {let nr: int = {value
                         {let rand:LinearRandom={LinearRandom}}
                         {rand.next-in-range 0, 6}
                     },
        result: String ="Welcome"
    }

    {try
        let intext: TextInputStream =
            {read-open{url "txt.php3?nr=" & nr}}
        {set result={{intext.read-one-line}.to-String}}
         {intext.close}
     catch err: MissingFileException do
        {error "Cannot find that file. Sorry!"}
    }
    {return result}

 }

 || Declare a global variable without instanziation
 {let c:#LetterBox}

 || The output of this environement is its last line
 {value
    {set
        || Define Canvas containing the letters
         c={LetterBox
                        "Enter your Name",
                        width=10cm,
                        height=5cm,
                        background="black"
                     }
    }
    {let
        || Define TextField to enter a value
        tf:TextField={TextField
                         {on ValueFinished do
                             {if (tf.value != null ) then
                                 {do
                                     {c.set-string ({get-web-string} & " " & tf.value)}
                                     {c.move-string-to-center}
                                 }
                             }
                         }
                     }
    }

    {c.add tf,
        x=1cm,
        y=1cm
    }

    c
 }

 || This environment doesn't produce any output!
 || Resize the Letter Box to a size of 500 x 400 pixel
 {do
    {set c.height=c.points-per-pixel*400}
    {set c.width=c.points-per-pixel*500}

 }
 || File: start2.curl
 || Contents:
 ||     This applet allows to enter a value to a TextField
 ||     The prompt and result will be shown with funny, jumping letters
 || Author: Friedger Mueffke
 || Version: 1.2 

 {curl 1.5 applet}

 {import * from MUEFFKE.COMPONENTS.LETTERBOX,
    location="letterbox.curl"}

 || Create a document without margins and scrollbars
 || that it can neatly integrated in a HTML document
 {document-style PlainDocument}


 || Define function that fetches a string from a web site
 {define-proc {get-web-string}:String
    {let nr: int = {value
                         {let rand:LinearRandom={LinearRandom}}
                         {rand.next-in-range 0, 6}
                     },
        result: String ="Welcome"
    }

    {try
        let intext: TextInputStream =
            {read-open{url "txt.php3?nr=" & nr}}
        {set result={{intext.read-one-line}.to-String}}
         {intext.close}
     catch err: MissingFileException do
        {error "Cannot find that file. Sorry!"}
    }
    {return result}

 }

 || Declare a global variable without instanziation
 {let c:#LetterBox}

 || The output of this environement is its last line
 {value
    {set
        || Define Canvas containing the letters
         c={LetterBox
                        "Enter your Name",
                        width=10cm,
                        height=5cm,
                        background="black"
                     }
    }
    {let
        || Define TextField to enter a value
        tf:TextField={TextField
                         {on ValueFinished do
                             {if (tf.value != null ) then
                                 {do
                                     {c.set-string ({get-web-string} & " " & tf.value)}
                                     {c.move-string-to-center}
                                 }
                             }
                         }
                     }
    }

    {c.add tf,
        x=1cm,
        y=1cm
    }

    c
 }

 || This environment doesn't produce any output!
 || Resize the Letter Box to a size of 500 x 400 pixel
 {do
    {set c.height=c.points-per-pixel*400}
    {set c.width=c.points-per-pixel*500}

 }